for i:=1 to 8 do begin
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
end;
end.
Айнымалысы кеміп отыратын цикл үшін
Есеп. 8-ден 1-ге дейінгі бүтін сандардың квадраттары мен кубтарын есептеп шығару. (кері қарай есептеу).
Ерекшелігі: цикл айнымалысы кеміп отыруы керек.
Ш
for i:=8 downto 1 do begin
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
end;
ығарылуы:
Ерекшеліктері:
цикл айнымалысының мәні бүтін немесе символдық типті болуы керек (integer,char немесе longint)
цикл айнымалысының өзгеру қадамы қашанда 1-ге (to) немесе -1-ге (downto) тең
е
for i:=1 to 8 do
writeln('Салем');
гер цикл денесінде бір ғана оператор болса, begin мен end сөздерін жазбай кетуге болады:
егер соңғы мән алғашқы мәннен кіші болса, (to) циклы бірде бір рет орындалмайды (шартты циклдың басында тексеру, шартты алдын ала тексеретін цикл)
Цикл денесінде цикл айнымалысын өзгертуге рұқсат етілмейді (неліктен?)
А лғашқы және соңғы мәндер өзгертілгенімен цикл ішіндегі қадамдар саны өзгермейді:
n := 8;
for i:=1 to n do begin
writeln('Салем');
n := n + 1;
end;
Жаңа тақырыпты пысықтау. Айнымалысы бар цикл.
Бекіту тапсырмалары:
№1 тапсырма. Цикл неше рет орындалған?
№2 тапсырма. Қадамдарды қалай өзгертуге болады?
№3 тапсырма. Программаның үзіндісін орындау нәтижесін анықтаңдар,
цикл неше рет қайталанады(компьютерсіз)?:
begin
s:= 0;
for i:= -4 to 1 do
s:=s+i;
Достарыңызбен бөлісу: |