Презентация, доклад на тему Задачи. Циклы на языке Паскаль.

цикла>        
 end;

Цикл с пред условием

for i:= 1 to n do

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

Циклы в Паскале

  
n:=1;   
while n <= 30 do
        begin           
sum:=sum+n;           
n:=n+0.5;         
end;   
writeln('Сумма равна: ',sum);
END.

Ответ: Задача: вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30

Задача №2
Program Summa; Var   S:real;       N:integer; Begin   S:=0;N:=0;   repeat     N:=n+1;     S:=s+1/n   Until n>1000;   Writeln(s);   Readln End.

Ответ: Подсчета суммы первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N

For I:=1 to n do    Begin     Write('Введите число');     Readln(x);     if x<0 then sum:=sum+x   end;     writeln('сумма =', sum);   End.

Ответ: Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.

В.    Воспользуемся для этого алгоритмом Евклида:
будем уменьшать каждый раз большее
из чисел на величину меньшего до тех пор,
пока оба числа не станут равны. Program NOD; Var  a,b:integer; Begin   Write ('введите два натуральных числа')   Readln(a,b)   While a<>b do
If a>b then a:=a-b
else b:=b-a;   Writeln('НОД=',a); End.

Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день он пробежит больше 20 км, в какой день суммарный пробег за все дни превысит 100км. Program prim_10; Var S:real;     N:integer; Begin   S:=10;N:=1;   While s<20 do    Begin     N:=n+1;     S:=s*0.1   End;   Writeln(' дневной пробег больше 20 км на ',n,' день');   S:=10;N:=1;   While s<100 do    Begin     N:=n+1;     S:=s+s*0.1 {накапливаем суммарный пробег}   End;   Writeln('за ',n,' пробежит больше 100 км'); End.

это элементы числовой последовательности 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, …, в которой каждое последующее число равно сумме двух предыдущих.

Числа Фибоначчи

program fib_01; var i, ch, ch1, ch2, n :integer;
{i - счетчик чисел Фибоначчи;n - количество чисел Фибоначчи; ch - число Фибоначчи;ch1, ch2 - вспомогательные переменные алгоритма поиска чисел Фибоначчи}
begin write('n=');
readln(n); ch:=0; {алгоритм поиска чисел Фибоначчи} ch1:=1; for i:=1 to n do begin ch2:=ch1; ch1:=ch; ch:=ch1+ch2; write (ch:5) {надо вывести на экран все числа Фибоначчи, поэтому оператор вывода находится внутри цикла} end;
end.

заданного включительно.
2. Вывести на экран кубы чисел от A до B.

1 to n do
begin
write(i, ' ');
end ;
end.

№2
var a, b: integer;
begin
write('A: ');
readln(a);
write('B: ');
readln(b);
if a < b then
for a := a to b do
writeln (a * a * a);
end.