АЛГОРИТМЫ , КОТОРЫЕ НЕ СОДЕРЖАТ ЛОГИЧЕСКИХ УСЛОВИЙ И ИМЕЮТ ТОЛЬКО ОДНУ ВЕТВЬ ВЫЧИСЛЕНИЯ, НАЗЫВАЮТСЯ
линейные
АЛГОРИТМЫ , КОТОРЫЕ СОДЕРЖАТ НЕСКОЛЬКО ВЕТВЕЙ ВЫЧИСЛЕНИЯ, НАЗЫВАЮТСЯ
Разветвляющиеся
АЛГОРИТМЫ , КОТОРЫЕ СОДЕРЖАТ МНОГОКРАТНО ПОВТОРЯЕМЫЕ ЧАСТИ, НАЗЫВАЮТСЯ
Циклические
ЦИКЛИЧЕСКИЕ АЛГОРИТМЫ С ПАРАМЕТРОМ (СЧЕТЧИКОМ)
ЦИКЛ – КОМАНДА ИСПОЛНИТЕЛЮ ПОВТОРИТЬ МНОГОКРАТНО, УКАЗАННУЮ ПОСЛЕДОВАТЕЛЬНОСТЬ ДЕЙСТВИЙ. (ПРИМЕР – ОРНАМЕНТЫ).
:= A TO B DO BEGIN ОПЕРАТОР 1; ОПЕРАТОР 2; … . ОПЕРАТОР N; END; ГДЕ A - НАЧАЛЬНОЕ ЗНАЧЕНИЕ ПАРАМЕТРА, B – КОНЕЧНОЕ ЗНАЧЕНИЕ ПАРАМЕТРА. В-А+1 – КОЛ-ВО ПОВТОРЕНИЙ ЦИКЛА Со словом To , значение переменной цикла увеличивается на 1 при каждой итерации цикла. " width="640"
В ТОМ СЛУЧАЕ, КОГДА КОЛИЧЕСТВО УКАЗАННЫХ ДЕЙСТВИЙ ИЗВЕСТНО ПЕРЕД НАЧАЛОМ ИХ ВЫПОЛНЕНИЯ, ИСПОЛЬЗУЮТ ОПЕРАТОР ЦИКЛА С ПАРАМЕТРОМ:
FOR ПАРАМЕТР:= A TO B DO BEGIN
ОПЕРАТОР 1;
ОПЕРАТОР 2;
… .
ОПЕРАТОР N;
END;
ГДЕ A - НАЧАЛЬНОЕ ЗНАЧЕНИЕ ПАРАМЕТРА, B – КОНЕЧНОЕ ЗНАЧЕНИЕ ПАРАМЕТРА. В-А+1 – КОЛ-ВО ПОВТОРЕНИЙ ЦИКЛА
Со словом To , значение переменной цикла увеличивается на 1 при каждой итерации цикла.
:= A DOWNTO B DO BEGIN ОПЕРАТОР 1; ОПЕРАТОР 2; … . ОПЕРАТОР N; END; ГДЕ A - НАЧАЛЬНОЕ ЗНАЧЕНИЕ ПАРАМЕТРА, B – КОНЕЧНОЕ ЗНАЧЕНИЕ ПАРАМЕТРА. A-B+1 – КОЛ-ВО ПОВТОРЕНИЙ ЦИКЛА Со словом downt o , значение переменной цикла уменьшается на 1 при каждой итерации цикла. " width="640"
ЕСЛИ НАЧАЛЬНОЕ ЗНАЧЕНИЕ А БОЛЬШЕ ЧЕМ КОНЕЧНОЕ B , ТО ИСПОЛЬЗУЕТСЯ КОМАНДА DOWNTO
FOR ПАРАМЕТР:= A DOWNTO B DO BEGIN
ОПЕРАТОР 1;
ОПЕРАТОР 2;
… .
ОПЕРАТОР N;
END;
ГДЕ A - НАЧАЛЬНОЕ ЗНАЧЕНИЕ ПАРАМЕТРА, B – КОНЕЧНОЕ ЗНАЧЕНИЕ ПАРАМЕТРА. A-B+1 – КОЛ-ВО ПОВТОРЕНИЙ ЦИКЛА
Со словом downt o , значение переменной цикла уменьшается на 1 при каждой итерации цикла.
ПРИМЕР
FOR i :=1 TO 3 DO begin
writeln(i,’x’,i,’=‘,i*i);
end;
ответ
1x1=1
2x2=4
3x3=9
Пример : Дан фрагмент программы, ответьте сколько раз выполнится цикл и каким будет результат выполнения программы ?
FOR I:=1 TO 3 DO WRITE(‘*’);
3 раза ответ: ***
Пример : Дан фрагмент программы, ответьте сколько раз выполнится цикл и каким будет результат выполнения программы ?
FOR I:=5 TO 9 DO WRITELN(‘*’);
5 раз ответ: *****
Пример : Дан фрагмент программы, ответьте сколько раз выполнится цикл и каким будет результат выполнения программы ?
FOR I:=9 DOWNTO 3 DO WRITE(‘*’);
7 раз ответ: *******
Пример : Дан фрагмент программы, ответьте сколько раз выполнится цикл и каким будет результат выполнения программы ?
FOR I:=1 TO 3 DO BEGIN WRITE(‘*’); WRITE(‘**’); END;
3 раза ответ:*********
НАПИСАТЬ ПРОГРАММУ, КОТОРАЯ ВЫВОДИТ ТАБЛИЦУ КВАДРАТОВ ПЕРВЫХ 10 ЦЕЛЫХ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ.
Число
Квадрат
1
2
3
4
5
6
7
8
9
10
1
4
9
16
25
36
49
64
81
100
Решение
program pro;
var i,F: integer ;
begin
writeln( ' Число Квадрат' );
For i:= 1 to 10 do
Begin
F:=i*i;
Writeln(i, ' ' ,F);
End ;
end .