1) Суммы
Первоначальное значение S:=0
Подсчет в цикле: S:=S+{текущее значение}
1.1 Вычислить: S=1+2+3+...N.
program zadacha ; { вычисление суммы натуральных чисел }
var n, s, i : integer;
begin
writeln ('введите натуральное число N=') ;
readln (n) ;
s:=0;
for i:=l to n do
s:=s+i;
writeln ( 'сумма=', s)
end.
1.2
Вычислить:
program zadacha ; { вычисление суммы }
var n, i : integer; s : real;
begin
writeln ( 'введите натуральное число N=' ) ;
readln (n) ;
s:=0;
for i:=l to n do
s :=sqrt (2+s) ;
writeln ('сумма=' , s)
end.
2) Количества
Первоначальное значение k: = 0
Подсчет в цикле: k:= k + 1
2.1 Среди чисел 1 < N < 100 найти все пары чисел, для которых их сумма равнялась бы их произведению.
program zadacha ( input, output ); {нахождение пар чисел}
var k, a, b: integer;
begin
r:=0;
for a:=l to 100 do
for b:=l to 100 do
begin
if a + b = a * b then
begin
k:=k + 1;
writein('числа',a,b);
end
end;
if k=0 then writeln ('таких чисел нет') else ('k=', k);
end.
2.2 Определить, сколько из N заданных точек принадлежат графику у = |х|
program zadacha ; { количество точек, принадлежащих графику }
var k, i, n : integer; х, у : real;
begin
writeln ( 'введите количество точек N=');
readln (n) ;
k:=0;
for i:=1 to n do
begin
writeln ('введите координаты', i ,'-ой точки х и у') ;
readln (x,y) ;
if y=abs (x) then k:=k+l
end;
if k=0 then writeln ('таких точек нет') else writeln ('k=',k)
end.
3) Произведений
Первоначальное значение р:=1
Подсчет в цикле: р:= р *{множитель}
3.1 Вычислить N!
program zadacha ; { нахождение факториала числа N }
var n, p, i : integer;
begin
writeln ('введите число n=');
readln (n) ;
p:=l;
for i:=l to n do
p:=p*i;
writeln ('факториал числа' ,n,' = ' ,p)
end.
7.4.2 Оператор цикла с постусловием
Оператор цикла с постусловием используется, если число повторений заранее неизвестно, а определяется по ходу реализации циклического процесса.
Формат оператора цикла с постусловием:
repeat
<оператор 1>;
<оператор 2>;
<оператор М>
until <условие>;
где repeat – повторять;
<оператор 1>;
<оператор 2>;
<оператор N> – последовательность операторов внутри цикла (тело цикла);
until – до;
<условие> – логическое выражение.
Этот процесс завершается, тогда когда после выполнения заданной последовательности операторов логическое выражение <условие> станет TRUE (истинно).
Оператор for v:=E1 to E2 do S;
Эквивалентен if E2>=E1 then
begin
v:=El;
repeat
S;
v:=succ(v)
until v>E2;
end;
Пример 1. Распечатать числа Фибоначчи от 1 до N. (Каждое число в последовательности, начиная с третьего, получается сложением двух предыдущих чисел. Например: 1, 1, 2, 3, 5, 8, 13, 21...).
program zadacha ; { числа Фибоначчи }
var a, b, c, n, i : integer;
begin
writeln ('введите число N=') ;
readln (n) ;
a:=l; b:=l;
writeln (a,b) ;
i:=3;
repeat
c:=a+b;
writeln (c) ;
a := b; b := c;
until i>n
end.
Пример 2. Вычислить значение переменной у, при заданном значении n.
program zadacha ;
var i, n : integer; у : real;
begin
writeln ('введите число N=') ;
readln (n) ;
y:=1; i:=y;
repeat
y:=y+1/i; i:=i+1;
until i>n;
writeln ( ' y= ' , y)
end.