Циклы в языке программирования Pascal

– до
DO - выполнить
ДЛЯ i:=1 ДО N ВЫПОЛНЯТЬ действие;
FOR i:=1

FOR i:=1 TO N DO BEGIN
действие1;
действие2;
END;

FOR i:=N DOWNTO 1 DO действие;

Виды циклов. 1

если переменная i убывает

если в теле цикла несколько
действий

если в теле цикла одно действие

FOR i:=1 TO N DO действие1;
действие2;

Блок-схема цикла с параметром.

Виды циклов. 2

первой линии        For i:=1 to 64 do begin        // перебираем от 1

Пример 1.

Вывести на экран 64 вертикальные
линии.

Виды циклов. 3

условие ложно.
REPEAT – повторять
UNTIL – до тех пор
ПОВТОРЯТЬ

REPEAT
действие1;
действие2;
UNTIL (ПОКА УСЛОВИЕ ЛОЖНО);

Виды циклов. 4

GraphABC; var x:Integer; begin     x:=1;       repeat            Line (x,0,x,400);            x:=x+10;      until (x>640) 
end.
Виды циклов.

повторять до тех пор пока условие ложно

END;
III. Цикл с предусловием.
Может не выполнится не разу.
Выполняется пока

WHILE – пока
DO – выполнять

ПОКА (УСЛОВИЕ ИСТИННО) ВЫПОЛНЯТЬ
НАЧАЛО
действие1;
действие2;
КОНЕЦ;

Виды циклов. 6

END;
условие
Действие 1
Действие 2
да
нет
WHILE (УСЛОВИЕ ИСТИННО) DO
действие1;
действие2;

условие

Действие 1

Действие 2

да

нет

Виды циклов. 7

GraphABC; var x:Integer; begin      x:=1;        while(x

Виды циклов. 8

повторять пока Х меньше 640

GraphABC;
var x,i:Integer;
begin
x:=1;
For i:=1 to 64 do begin

Более короткое решение:
Program n1;
Uses Crt, GraphABC;
var x:Integer;
begin
For x:=1 to 64 do line(320,400,x*10,1);
end.

Графические задачи на циклы. 9

GraphABC;
var x,y:Integer;
begin
x:=1;
y:=1;
repeat

В теле цикла могут изменяться две переменные

Графические задачи на циклы. 10

i,j,x,y:Integer;
Begin
clrscr;
y:=10;
for i:=1 to 12 do

Вывод i-ой строки

Изменение координаты Y строки

Графические задачи на циклы 12

cos 2x на интервале [-1 ; 1] с шагом Δх

Задача 1.

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.

Расчетные задачи на циклы 13

на интервале [-10 ; 10] с шагом

Задача 2.

Построить таблицу значений функции на интервале [-1; 1] с шагом Δх = 0,1 если функция имеет вид:

x+1, при x<-0.5
Y= x2 , при -0.5<=x<=0.5
x -2, при x>0.5

Задача 3.

repeat
if (x<-0.5) then y:=x+1;
if (x>=-0.5) and (x<=0.5) then y:=x*x;
if (x>0.5) then y:=x-2;
writeln ('x= ',x:7:5,' y= ',y:7:5);
x:=x+dx;
until (x>1);

repeat
if (x<>1) then begin
y:= (x+1)/(1-x);
writeln ('x= ',x:7,' y= ',y:7:5);
end;
x:=x+dx;
until (x>10);

Расчетные задачи на циклы 14

dx:=0.1;
repeat
if (x0) then begin

Небольшое отступление:
Построить таблицу значений функции y = 1/х на интервале [-1; 1] с шагом 0,1

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.

Изменим формат вывода

Нуля нет! А в место него число в минус шестнадцатой степени.

Расчетные задачи на циклы 15

dx:=0.1;
repeat
if (abs(x)>1e-12) then begin

Пусть все числа, по модулю меньшие 0,000000000001
будут для нас нулями.

Вот одно из возможных решений данной проблемы:

Расчетные задачи на циклы 16

элементов и
сами элементы вводятся с клавиатуры.
Program n4;
Uses Crt;
var i,n:integer;

Математическая запись задачи

Результат выполнения программы

Расчетные задачи на циклы 17

найти сумму
1+ 1/2 + 1/3 +…+1/N
Program n1;
Uses crt;
var

Результат очень легко проверить в ручную

Расчетные задачи на циклы 18

сумма цифр которых равна 10.

program n6;
Uses Crt;
var e,d:integer;
begin
ClrScr;

Расчетные задачи на циклы 19

циклы

ряда
с точностью Е=0,02
Сумма вычисляется до тех пор, пока очередное

Program n7;
Uses crt;
var s,e:real; i:integer;
begin
clrscr;
s:=0; i:=1; e:=0.02;
Repeat
s:=s+1/i;
Writeln('i=',i,' слагаемое',1/i);
i:=i+1;
until (e>1/i);
writeln('S=',s:10:5);
end.

Расчетные задачи на циклы 21

.
Program n8;
Uses Crt;
Var x,h,s:Real;
Begin
ClrScr;
h:=(4-1)/1000;
x:=1;

Ширина прямоугольника h:=(4-1)/1000;

Высота прямоугольника
1/x

Площадь одного прямоугольника
h*1/x

Расчетные задачи на циклы 22

n8;
Uses Crt;
Var n:Real;
k:Integer;
Begin
ClrScr;

Расчетные задачи на циклы 23

Если n имеет тип integer то эту строку можно записать так: n:=n div 10;

100.
Program n10;
Uses crt;
var i,s:Integer;
begin
Clrscr;
s:=0;

Всегда ли нужны циклы 23

формулу суммы n членов арифметической прогрессии
Всегда ли нужны циклы

Найдем количество n членов в этой последовательности:
an=a1+d(n-1)
100=2+2(n-1)
100=2+2n-2
100=2n
n=50

Подставим значения в формулу суммы