Циклы Паскаль

Этапы решения задачи
Постановка задачи
Формализация
Разработка алгоритма
Программирование
Тестирование, анализ получившихся результатов

Алгоритмы
Алгоритм – последовательность действий, приводящая к решению поставленной задачи

Типы алгоритмов
Линейные – полностью состоят из простых команд (не требующих проверки условия)
Циклические – содержат команду повторения
Разветвляющиеся – содержат команду ветвления

Циклические программы
Цикл ДЛЯ (с параметром)

Циклические программы
Цикл ДЛЯ (с параметром)
for i := m1 to m2 do begin
…
end;
for i := m1 downto m2 do
begin
…
end;
нц для i := m1 до m2
…
кц

Циклические программы
Цикл ДЛЯ (с параметром)
Для переменной а, которая изменяется от 5 до 10
for a:= 5 to 10 do

Циклические программы
Цикл ДЛЯ (с параметром)
Для переменной а, которая изменяется от 10 до 1
for a:= 10 downto 1 do

N = 1
X = 5 + 1 = 6
Х = 5
N = 2
X = 6 + 2 = 8
N = 3
X = 8 + 3 = 11
Ответ: X=11, N=3
Цикл ДЛЯ (с параметром)
Циклические алгоритмы

Цикл ДО (с постусловием)
Циклические программы

Цикл ДО (с постусловием)
Циклические программы
repeat
…
until <логическое выражение> ;
повторять
…
до <логическое выражение>

Цикл ПОКА (с предусловием)
Циклические программы

Циклические программы
while <логическое выражение> do
begin
…
end;
Цикл ПОКА (с предусловием)
нц пока <логическое выражение>
…
кц

Задача 1 (цикл для)
Вычислить все значения у, если x изменяется от 1 до 10.
Значение у вычисляется по формуле y = 4,5x + 2
program pr1;
var x : integer;
y : real;
begin
for x := 1 to 10 do
begin
y:=4.5*x+2;
writeln (' х=' , x, ' у=', y);
end
end.

Задача 1 (цикл пока)
Вычислить все значения у, если x изменяется от 1 до 10.
Значение у вычисляется по формуле y = 4,5x + 2
program pr1;
var x : integer;
y : real;
begin
x:=1;
while x<=10 do
begin
y:=4.5*x+2;
writeln ( ' х=' , x, ' у= ' , y );
x:=x+1;
end
end.