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

REPEAT UNTIL  ; Цикл с пост условиемWHILE   DO         begin                          end; Цикл с пред условиемfor i:= 1 to n doЦикл с параметром Циклы в Паскале

Слайд 1Циклы

Циклы

Слайд 2REPEAT

UNTIL  ;
Цикл с пост условием
WHILE   DO
        begin                 

цикла>        
 end;

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

for i:= 1 to n do

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


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

REPEAT UNTIL  ; Цикл с пост условиемWHILE   DO         begin                          end; Цикл с пред условиемfor i:= 1 to

Слайд 3 Задача №1
program example;
var    sum:real;    n:real;
BEGIN   
sum:=0;

  
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

Задача №1program example; var    sum:real;    n:real;BEGIN    sum:=0;    n:=1;    while n 1000;

Слайд 4Задача №3
Var  I, n,x,sum: integer; Begin   Write('Введите N=');   Readln(n);   Sum:=0;  

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

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

Задача №3 Var  I, n,x,sum: integer;  Begin   Write('Введите N=');   Readln(n);   Sum:=0;   For

Слайд 5Пример 1. Вычислить наибольший общий делитель двух натуральных чисел А и

В.    Воспользуемся для этого алгоритмом Евклида:
будем уменьшать каждый раз большее
из чисел на величину меньшего до тех пор,
пока оба числа не станут равны. 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.
Пример 1. Вычислить наибольший общий делитель двух натуральных чисел А и В.     Воспользуемся для этого

Слайд 6Пример 2 . Начав тренировки, лыжник в первый день пробегал 10 км.

Каждый следующий день он увеличивал длину пробега на 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.
Пример 2 . Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину

Слайд 7Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов.
Числа Фибоначчи –

это элементы числовой последовательности 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.

Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов.Числа Фибоначчи – это элементы числовой последовательности 1, 1,

Слайд 8Домашнее задание
Дано натуральное число. Вывести на экран все натуральные числа до

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

Слайд 9№1
program FromOneToN;
var
i, n: word;
begin
readln(n);
for i :=

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.

№1program FromOneToN; var i, n: word; begin readln(n); for i := 1 to n do begin write(i,

Что такое shareslide.ru?

Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть