Циклические программы Информатика и ИКТ 9 класс Гимназия № 1 г

Красакова О.Н.

повторяется конечное количество раз.
Виды циклов:
Цикл с параметром
Цикл с предусловием
Цикл

do
begin
…
end;
Заголовок цикла,

Начало цикла

Конец цикла

primer;
var i,n:integer;
BEGIN
write(‘n=‘); readln(n);

1 до N.
PROGRAM primer;
var i,n,K:integer;
BEGIN

1 до N.
PROGRAM primer;
var i,n,K:integer;
BEGIN

10.
PROGRAM primer;
var i,K:integer;
BEGIN
for i:=1 to

d,k:real;
BEGIN
write(‘Введите курс $=‘); readln(d);
writeln(‘Таблица перевода:’);

Таблица перевода долларов (от 50 до 100) в рубли

в банке через N лет, если первоначальный взнос - М

var i,n:integer; m:real;
BEGIN
write(‘Вклад='); readln(m);
write(‘Годы='); readln(n);
for i:=1 to n do
begin
m:=m+m*0.085;
writeln(i,'–й год:
вклад=',m:6:2,’рублей’);
end;
END.

до N.
PROGRAM summa;
var i,n,S:integer;
BEGIN
write(‘n=‘); readln(n);

до N, кратных 5.
PROGRAM summa;
var i,n,S:integer;
BEGIN

N, кратных 15.
PROGRAM z1;
var I,N,k:integer;
BEGIN

на 7.
PROGRAM krat7;
var i,k:integer;
BEGIN
k:=0;

все делители числа N.
PROGRAM krat7;
var i,n:integer;
BEGIN

трехзначные числа , в которых первая цифра равна последней
var i,a,b:integer;

трехзначные числа , в которых первая цифра равна последней
var i:integer;

которых сумма первой и последней цифры равна 10.

для х от 3 до 8 с шагом 1.
 
PROGRAM tab;

функции

В этой задаче начальное и конечное значение х и

var x,y,a,b,h:real;
n,i:integer;
 
BEGIN
write('a=');

Присваивает переменной Х начальное значение отрезка.

Заголовок цикла, в котором параметр i является счетчиком, указывающим сколько раз на данном отрезке нужно вычислить значение У (n+1, т.к. включая концы отрезка)

Конец цикла

Вычисляет количество точек n на отрезке. Round – округляет значение выражения в скобках

Вычисляет значение функции У.

Выводит на экран значение Х и соответствующее ему значение У

Увеличивает значение Х на шаг h.

a:=2*a-7;
Чему будет равно значение переменной а в результате выполнения

a:=a+i;

2;
for i:=1 to 4 do
a := a+1;
a

begin
…

Операторы цикла выполняются до тех пор, пока <условие> не станет ложным (условие выполнения цикла)

< 5 do begin
S := S + i*(i+1);

Ответ: S=41

> 1 do begin
p := p +

Ответ: P=3

do
i := i + 1;
P

P:=1*(8 div 5)=1

Ответ: P=1

;
Операторы цикла выполняются до тех пор, пока не выполнится

n>10;
Найти n

s:=s+2*i;
i:=i-1
until i

в натуральном числе N цифра 5.
var n,x,a,k:integer;
BEGIN
write('Введите целое число

6 do
x:=x+2*i;

A:=2; b:=1;
While b

A:=2;
For i:=1 to 5 do
a:=a+3;


X:=0;
For i:=3 to 6 do
x:=x+2*i;

A:=2; b:=1;
While b<=4 do
begin a:=2*a-b; b:=b+2; end;

2 числа N и M.
Сравнить данные числа и наибольшее из

Write(‘Введите 2 числа:’);
readln(n,m);

Алгоритм Евклида

begin
{тело цикла}

i – параметры цикла
n – начальное значение параметра
m – конечное значение параметра.

Увеличение параметра цикла на 1

for i:= n downto m do
begin
{тело цикла}
end;

Уменьшение параметра цикла на 1

всегда равен 1 (to) или -1 (downto)
если в теле цикла

Цикл с параметром

for i:=1 to 8 do
writeln('Привет');

до 10.
Пример программы
program qq1;
var i, i2, i3: integer;
begin

параметр цикла

начальное значение

конечное значение

1;
i2 := i * i;
i3 := i2 * i;
задать начальное

проверить, все ли сделали

вычисляем квадрат и куб

вывод результата

перейти к следующему i

Блок-схема

qq2;
var i, S: integer;
begin
for i:=1 to 20 do

2;
for i:=1 to 4 do
a := a+1;
a