Слайд 1БАЗОВЫЕ ЦИКЛИЧЕСКИЕ
АЛГОРИТМЫ
Слайд 2Сколько раз выполнится цикл?
Что появиться на экране в результате выполнения
следующего фрагмента программы?
For i:=-2 to 1 do
begin
writeln(‘*****’);
writeln(‘!!!’);
end;
4 раза
*****
!!!
*****
!!!
*****
!!!
*****
!!!
Слайд 3Сколько раз выполнится цикл?
Что появиться на экране в результате выполнения
следующего фрагмента программы?
FOR I:=2 TO 5 DO
Writeln(sqr(i));
4 раза
4
9
16
25
Слайд 5Алгоритм вычисления суммы n чисел.
S=1+2+3+…+n
S:=0;
FOR
i:=1 TO n DO S:=S+i;
Слайд 6S=5+7+1+12+-6+…+23
S=a1+a2+…+an
Слайд 7Алгоритм вычисления суммы n чисел, введенных с клавиатуры
S:=0;
FOR i:=1 TO n DO
BEGIN
Write(‘a=’);
Readln(a);
S:=S+a;
END;
Слайд 8II. Алгоритм вычисления произведения n чисел .
1) n!=1·2·3····n; (вычисление n
факториала);
P:=1;
FOR i:=1 TO
n DO P:=P*i;
2) Вычисление an.
Write(‘a=’);
Readln(a);
P:=1;
FOR i:=1 TO n DO P:=P*a;
Слайд 9Задача 1: Подсчитать сумму квадратов чисел от 1 до 5.
Задача
2: Написать программу вычисления n!=1*2*3*…*n
Слайд 10Подсчет количества чисел, удовлетворяющих заданному условию.
Слайд 11K:=0;
FOR i:=1 TO N DO
IF then K:=K+1;
Условия:
1) четности
a mod
2=0;
2) нечетности
a mod 2<>0;
3) кратности числа a числу b
a mod b=0;
4) равенства числа a числу b
a=b
Слайд 13Подсчитать количество отрицательных чисел из 10, введенных с клавиатуры, используя
цикл с параметром.
Слайд 14PROGRAM Kch;
USES CRT;
VAR
a,i,k: integer;
BEGIN
К:=0;
FOR i:=1 TO 10 DO
Begin
Write(‘a=’); Readln(a);
IF a<0 Then K:=K+1;
End;
Writeln(‘K=’,K);
Readkey;
END.
Слайд 15Задание
Изменить алгоритм, чтобы
вычислялось в одной программе:
количество четных чисел из n
чисел, введенных с клавиатуры.
количество нечетных чисел из n чисел, введенных
с клавиатуры.
Количество единиц чисел из n чисел, введенных с клавиатуры.