Презентация по инфогрматике на тему Операторы циклов с условием в Паскале (7-9 кл)

Операторы циклов с условиями Цикл – это структура, в которой некоторая серия команд выполняется несколько раз. В языке программирования паскаль существует три типа циклов: FOR – цикл с заданным числом повторений (цикл с параметром) REPEAT – цикл с постусловиемWHILE – цикл с предусловием Оператор цикла с постусловием REPEAT <Оператор 1>; <Оператор 2>;… <Оператор n>;UNTIL <условие>;Вначале выполняется тело цикла, затем проверяется условие.Цикл выполняется ПОКА условие ЛОЖНО. Как только условие становится ИСТИНЫМ, действие цикла прерывается. Пример 1.Program f1;Var i : integer;beginFor i:=1 to 25 do begin Writeln (‘Привет ‘); end;end.Program f1;Var i : integer;Begini:=1;REPEATWriteln (‘Привет ‘); i:=i+1;UNTIL i>25;end.Вывести на экран 25 раз слово "Привет". Цикл c предусловиемWHILE <условие> DO Begin <Операторы>; End; Задание:Вывести на экран все целые числа от 10 до 100 .Program f11;Var i : integer;beginFor i:=10 to 100 do begin Writeln (i); end;end.Program f11;Var i : integer;Begini:=10;REPEATWriteln (i); i:=i+1;UNTIL i>100;end.
Пример 2.Program f2;Var I : integer; S : integer;Begin S := 0 ; For i:=1 to 23 do begin S := S+i; end; Writeln ( ‘ S= ‘ , S ) ;End.Найти сумму чисел от 1 до 23.Program f2;Var I : integer; S : integer;BeginS := 0 ; i:=1;REPEATS := S+i; i:=i+1; UNTIL i>23;Writeln ( ‘ S= ‘ , S ) ;End. Задание:Найти сумму натуральных чисел от 50 до 75Program f22;Var i : integer; S : integer;BeginS := 0 ; i:=50;REPEAT S := S+i; i:=i+1; UNTIL i>75;Writeln ( ‘ S= ‘ , S ) ;End.
Пример 3.Program f3;Var n, i : integer;beginWriteln (‘введите число n’);Readln (n);For i:=1 to n do beginIf n mod i=0 then Writeln (i, ‘ ‘);end;End.Вывести на экран делители числа N.Program f3;Var n, i : integer;beginWriteln (‘введите число n’);Readln (n);i:=1;REPEATIf n mod i=0 then Writeln (i, ‘ ‘); i:=i+1;UNTIL i>n;end. Задание:Найти все числа от 33 до 555, которые кратны 13.  Program f33;Var i : integer ;Begini := 35;REPEATIf i mod 13 = 0 then write ( i , ‘ ‘) ; i:=i+1;UNTIL i>555;End.
Пример.Program f4Var Y : real; x : integer ;BeginFor x := -5 to 5 do begin Writeln ( 0.5*x-2 ) ; end;End.Вывести на экран значения функции y=0,5x-2 для x от -5 до 5.Program f4Var Y : real; x : integer ;Beginx := -5;REPEAT Writeln ( 0.5*x-2 ) ; X:=x+1; UNTIL x>5;End. Program z; Var i : integer; S: real;beginS:=0;For i:=1 to 10 do begin S:=S+1/i; end;Writeln (‘Сумма чисел = ‘, S);end.Пример.Вычислить сумму ряда: Program z; Var i : integer; S: real;beginS:=0; i:=1;REPEAT S:=S+1/i; i:=i+1;UNTIL i>10;Writeln (‘Сумма чисел = ‘, S);end.






Задание:Составьте программу вычисления суммы ряда: