Презентация на тему Циклические программы

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

to b do
begin
…

Заголовок цикла, где
i – счетчик
а – начальное значение счетчика
b – конечное значение счетчика

Начало цикла

Конец цикла

N.
PROGRAM primer;
var i,n:integer;
BEGIN

числа от 1 до N.
PROGRAM primer;
var

числа от 1 до N.
PROGRAM primer;
var

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

var i:integer; d,k:real;
BEGIN
write(‘Введите курс $=‘); readln(d);

Таблица перевода долларов (от 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.

от 1 до N.
PROGRAM summa;
var i,n,S:integer;
BEGIN

от 1 до N, кратных 5.
PROGRAM summa;

1 до N, кратных 15.
PROGRAM z1;
var

чисел, оканчивающихся на 7.
PROGRAM krat7;
var i,k:integer;
BEGIN

на экране все делители числа N.
PROGRAM krat7;

на экран трехзначные числа , в которых первая цифра

var i,a,b:integer;
BEGIN
write(‘Числа:');
for i:=100 to 999 do
begin
a:=i div 100;
b:=i mod 10;
if a=b then writeln(i);
end;
END.

на экран трехзначные числа , в которых первая цифра

var i:integer;
BEGIN
write(‘Числа:');
for i:=100 to 999 do
if i div 100=i mod 10 then writeln(i);
END.

функции y=x2+2 для х от 3 до 8 с

множество значений функции

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

tab;
var x,y,a,b,h:real;
n,i:integer;
 
BEGIN

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

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

Конец цикла

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

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

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

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

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

5 do
a:=2*a-7;

2 do
a:=a+i;

DO
begin

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

i:=1;
while i < 5 do begin
S :=

i:=7;
while i > 1 do begin
p

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

Ответ: P=1

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

n:=2*n-1;
Until n>10;
Найти n

s:=s+1/i; i:=i-1
until i

общего делимого)

Даны 2 числа N и M.
Сравнить данные числа