i - параметр цикла, выполняет роль счетчика;
a1 - начальное значение счетчика;
a2 - конечное значение счетчика.
FOR i:=1 TO N DO действие1;
действие2;
Блок-схема цикла с параметром
Виды циклов
ДЛЯ i:=1 ДО N ВЫПОЛНЯТЬ действие;
FOR i:=1 TO N DO действие;
FOR i:=1 TO N DO BEGIN
действие1;
действие2;
END;
FOR i:=N DOWNTO 1 DO действие;
Виды циклов
если переменная i убывает
если в теле цикла несколько
действий
если в теле цикла одно действие
Условие выполнения тела цикла: i ≥ a1.
Тело цикла будет выполнено a2 – a1 + 1 раз.
14 13 12 11 10
Если переменная-счётчик имеет символьный char тип, то оператор
For ch:=‘a’ to ‘e’ do write (ch:2);
Выведет на экран последовательность букв в виде:
a b c d e
Оператор
For ch:=‘e’ to ‘a’ downto write (ch:2);
Выведет на экран последовательность букв в виде:
e d c b a
Задача 2. Вывести на экран значение y2 (y=1,2,…,10) в возрастающем и убывающем порядке
Значение счетчика цикла может использоваться в выражениях, входящих в операторы тела цикла, но изменение значения счетчика цикла этими операторами недопустимо.
Program Chisla;
uses crt;
var n, i, k, p1, p2:integer;
begin
clrscr;
k:=0;
writeln (‘Ввести n’);
readln (n);
for i:=10 to 99 do
begin
p1:=i div 10;
p2:= i mod 10;
if (p1+ p2) =n then
begin
writeln (i);
k:=k+1;
end;
end;
writeln (‘Количество чисел’, k);
readln;
end.
II. Цикл с предусловием
Может не выполнится ни разу.
Выполняется пока условие истинно.
WHILE – пока
DO – выполнять
ПОКА (УСЛОВИЕ ИСТИННО) ВЫПОЛНЯТЬ
НАЧАЛО
действие1;
действие2;
КОНЕЦ;
Виды циклов
условие
Действие 1
Действие 2
да
нет
WHILE (УСЛОВИЕ ИСТИННО) DO
действие1;
действие2;
условие
Действие 1
Действие 2
да
нет
Виды циклов
. . .
Write(‘n=‘);
Readln(n);
m := n; k :=0;
While m <> o do
Begin
m := m div 10;
k := k +1;
End;
Writeln (‘количество цифр в числе‘, n, ‘=‘, k);
Readln;
End.
Постройте блок-схему решения данной задачи
Постройте блок-схему решения данной задачи
REPEAT – повторять
UNTIL – до тех пор
ПОВТОРЯТЬ
действие1;
действие2;
ДО ТЕХ ПОР (ПОКА УСЛОВИЕ ЛОЖНО);
REPEAT
действие1;
действие2;
UNTIL (ПОКА УСЛОВИЕ ЛОЖНО);
Виды циклов
. . .
Write(‘n=‘);
Readln(n);
m := n; k :=0;
Repeat
m := m div 10;
k := k +1;
Until m = 0;
Writeln (‘количество цифр в числе‘, n, ‘=‘, k);
Readln;
End.
Операторные скобки (begin ... end)
здесь не нужны;
2. Тело цикла выполнится хотя бы раз независимо от условия.
Постройте блок-схему решения данной задачи
Задача 8 .
Program n1;
Uses Crt;
var x,y,dx:real;
begin
ClrScr;
x:= -1;
dx:=0.1;
repeat
y:= 3*sin(x) + cos(2*x);
writeln ('x= ',x:7:5,' y= ',y:7:5);
x:=x+dx;
until (x>1);
end.
Расчетные задачи на циклы
Постройте блок-схему решения данной задачи
Program n1;
Uses Crt;
var x,y,dx:real;
begin
ClrScr;
x:= -1;
dx:=0.1;
repeat
if (x<>0) then begin
y:= 1/x;
writeln ('x= ',x,' y= ',y:7:5);
end;
x:=x+dx;
until (x>1);
end.
Расчетные задачи на циклы
Постройте блок-схему решения данной задачи и выполните её на компьютере
Расчетные задачи на циклы
Program n1;
Uses crt;
var s:real;
i,n:Integer;
begin
Clrscr;
Write(‘Введи n=');Readln(n);
s:=0;
For i:=1 to N do s:=s+1/i;
writeln('s=',s:10:5);
End.
Расчетные задачи на циклы
Задание 11. Сформулируйте условие задачи, для которой составлена следующая программа
Пример.
Найти сумму квадратов всех натуральных чисел от 1 до 100.
Решим эту задачу с использованием всех трех видов циклов
I. С использованием цикла "Пока".
Program Ex1;
Var
A : Integer;
S : Longint;
Begin
A:=1; S:=0;
While A<=100 Do
Begin
S:=S+A*A;
A:=A+1
End;
Writeln(S)
End.
II. С использованием цикла "До".
Program Ex2;
Var
A : Integer;
S : Longint;
Begin
A:=1; S:=0;
Repeat
S:=S+A*A;
A:=A+1
Until A>100;
Writeln(S)
End.
Задание 12. Постройте по данной программе блок-схему решения задачи и сформулируйте её условие
Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:
Email: Нажмите что бы посмотреть