“Үшін” циклі. Цикл ішінде цикл

Егер цикл деқайталану саны белгілі болса,программада“Үшін” циклін пайдаланған дұрыс.Бейсиктебұл құрылымныңтүзілісі:

FORk=k0TOKn[STEP H]

S

NEXT<[цикл параметрі]>

FOR-цикл басының операторы,не циклтақырыбы деп, NEXT-цикл соңы операторы деп, К-цикл параметрі,цикл санауыш,не басқарушыайнымалы деп те аталады;K0менKn-параметрдің бастапқы және соңғы мәндері. (FOR-үшін, NEXT-келесі,n-қадам ұзындығы,s-цикл денесі)

Цикл денесі басқарушы айнымалының мәні К0-ден бастап Kn-нен асқанға дейін қайталанып орындала береді. Құрылымда көрсетілгендей , FORоператорының құрамында TO(дейін)жәнеSTEP(қадам)қызметші сөздері бар.Егер n=1болса,STEP Hқызметші сөзінпрограммада тастап кету де мүмкін, NEXT операторында дацикл параметрін жазбауға болады,ал жазылған кезде басқарушы айнымалы атымен бірдей болуы тиіс. Цикл санауыш Бейсикте рұқсат етілген кез-келген идентификатор бола алады.K0,Kn,n-бүтін, бөлшек, теріс сандар немесеарифметикалықөрнек түрінде берілуідемүмкін.

Өткен тақырыптағыфакториалдыесептейтінпрограмманыңFOR-NEXTоператорынпайдаланып құрылған түрі:

REMФакториал

INPUT ”n=”; N:R=1

FORk=1TON

R=R*k

NEXT k

PRINTn; ” !=”;R

Бұл программада к=1командасыныңкіргізілмегенікөрініптұр,ал FORоператорындабірінші болып пайдаланылады.

Ескерту. FORk=k0TOKnSTEP H цикліндеK0>Kп, h>0болса,цикл орындалмай,тастап кетіледі,сондай-ақ k0<Knжәнеh<0 болса да.

Мысалы y=ln(1+x)/(x^2+1) функциясын [0; 1]кесіндісінде0.2қадам бойыншакестелеу керек.

Программаның орындалу нәтижесінавтоматтытүрдекесте бойынша беру есептің талабына сай келеді.Осыған сәйкес, прогрмманытөмендегіше құру мүмкін.

REMкестелеу

INPUT“a, b, n=”;A, B, N

H=(B-A)/N

PRINTSTRING $(38, “-”)

PRINT “|”; TAB(2)“k”;TAB(4)“|”;TAB(10)“x”;TAB(20) “|”;TAB (26) “y”; TAB (38) “|”;

PRINT STRING $(38, “_”)

FORk=1TON

X=A+K*H

Y= LOG (1+X)/(S^2+1)

PRINT“|”; TAB(2) K;TAB (4) “|”; TAB (10) X; TAB (20) “|”; TAB (22) Y:TAB (38) “|”;

NEXT k

PRINTSTRING $ (38, “-”)

Run

-0, 1, 5

Программада:

a,b,n- мәндерін ендіру (а=0, в=1, n=5, n-[a,b] кесіндісін тең бөліктерге бөлу саны);H мәнін есептеу

PRINT “|”; TAB(2)“k”;TAB(4)“|”;TAB(10)“x”;TAB(20) “|”;TAB (26) “y”; TAB (38) “|”;

PRINT STRING $(38, “_”)жолдары кесте басындағы екі кесіндіні сызып, аралығына k, x, y айнымалыларын енгізу:

FORk=1TON

X=A+K*H

Y= LOG (1+X)/(S^2+1)

PRINT“|”; TAB(2) K;TAB (4) “|”; TAB (10) X; TAB (20) “|”; TAB (22) Y:TAB (38) “|”;

NEXT k

х=в-ға дейін (b=a+n*h) y функциясының мәндерін n қадаммен жай дәлдік бойынша есептеу, кестеге енгізу.

2. Цикл ішінде цикл

Бейсикте цикл ішінде циклдің жазылу түрі.

FORK=K0TOKn

FORJ=J0 TOJn

S

NEXTj:NEXTK

Мұндағы j – ішкі цикл параметрі, К – сыртқы цикл параметрі, NEXT J: NEXTK операторын NEXT j, kтүрінде жазу да мүмкін (бірінші параметр ішкі цикл параметрі болуы тиіс)

Мысалы: Көбейту кестесін есептеп, көбейту нәтижелерін экранға шығару керек.

REM кесте

FORK=1TO10

FORj=1TO10

A=K*J

PRINTUSING “###”; A;

NEXTj

PRINT

NEXTK

Программадағы сыртқы цикл параметрі бірінші мәнді қабылдаған кезде (К=1 кезінде) ішкі цикл параметрі кезекпен 1,2,3,4,5,6,7,8,9,10 мәндерін қабылдап шығады да,

A=K*J

PRINTUSING “###”; A;

жолдарының орындалу нәтижесі болатын мәндерді (1,2,3,4,5,6,7,8,9,10 сандарын) бір жол бойында экранда көрсетеді.

PRINTUSING “###”; A;

жолының соңына нүктелі үтір символы сол үшін қойылған.

PRINTенгізілген жолдың орындалу нәтижесінде курсор экранның бір жолын бос тастап кетіп, онан соңғы жол басына орналасады. Бұдан әрі ішкі цикл к=2 үшін орындала бастайды.т.с.с

Программаның орындалу нәтижесінің матрица түрінде экранда көріну түрі мынадай: