Презентация на тему: Базовые циклические алгоритмы. Паскаль

СКОЛЬКО РАЗ ВЫПОЛНИТСЯ ЦИКЛ? ЧТО ПОЯВИТЬСЯ НА ЭКРАНЕ В РЕЗУЛЬТАТЕ ВЫПОЛНЕНИЯ СЛЕДУЮЩЕГО ФРАГМЕНТА ПРОГРАММЫ? FOR I:=-2 TO 1 DO BEGIN WRITELN(‘*****’); WRITELN(‘!!!’); END; 4 раза ***** !!! ***** !!! ***** !!! ***** !!!

СКОЛЬКО РАЗ ВЫПОЛНИТСЯ ЦИКЛ? ЧТО ПОЯВИТЬСЯ НА ЭКРАНЕ В РЕЗУЛЬТАТЕ ВЫПОЛНЕНИЯ СЛЕДУЮЩЕГО ФРАГМЕНТА ПРОГРАММЫ? FOR I:=2 TO 5 DO WRITELN(SQR(I)); 4 раза 4 9 16 25

S=1+2+3+…+N?

АЛГОРИТМ ВЫЧИСЛЕНИЯ СУММЫ N ЧИСЕЛ. S=1+2+3+…+N S:=0; FOR I:=1 TO N DO S:=S+I;

S=5+7+1+12+-6+…+23 S=a1+a2+…+an

АЛГОРИТМ ВЫЧИСЛЕНИЯ СУММЫ N ЧИСЕЛ, ВВЕДЕННЫХ С КЛАВИАТУРЫ S:=0; FOR I:=1 TO N DO BEGIN WRITE(‘A=’); READLN(A); S:=S+A; END;

II. АЛГОРИТМ ВЫЧИСЛЕНИЯ ПРОИЗВЕДЕНИЯ 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;

ЗАДАЧА 1: ПОДСЧИТАТЬ СУММУ КВАДРАТОВ ЧИСЕЛ ОТ 1 ДО 5. Задача 2: Написать программу вычисления n!=1*2*3*…*n

ПОДСЧЕТ КОЛИЧЕСТВА ЧИСЕЛ, УДОВЛЕТВОРЯЮЩИХ ЗАДАННОМУ УСЛОВИЮ.

K:=0; FOR I:=1 TO N DO IF THEN K:=K+1;

УСЛОВИЯ: 1) ЧЕТНОСТИ A MOD 2=0; 2) НЕЧЕТНОСТИ A MOD 20; 3) КРАТНОСТИ ЧИСЛА A ЧИСЛУ B A MOD B=0; 4) РАВЕНСТВА ЧИСЛА A ЧИСЛУ B A=B

ПОДСЧИТАТЬ КОЛИЧЕСТВО ОТРИЦАТЕЛЬНЫХ ЧИСЕЛ ИЗ 10, ВВЕДЕННЫХ С КЛАВИАТУРЫ, ИСПОЛЬЗУЯ ЦИКЛ С ПАРАМЕТРОМ.

PROGRAM KCH; USES CRT; VAR A,I,K: INTEGER; BEGIN К:=0; FOR I:=1 TO 10 DO BEGIN WRITE(‘A=’); READLN(A); IF A

ЗАДАНИЕ ИЗМЕНИТЬ АЛГОРИТМ, ЧТОБЫ ВЫЧИСЛЯЛОСЬ В ОДНОЙ ПРОГРАММЕ: КОЛИЧЕСТВО ЧЕТНЫХ ЧИСЕЛ ИЗ N ЧИСЕЛ, ВВЕДЕННЫХ С КЛАВИАТУРЫ. КОЛИЧЕСТВО НЕЧЕТНЫХ ЧИСЕЛ ИЗ N ЧИСЕЛ, ВВЕДЕННЫХ С КЛАВИАТУРЫ. КОЛИЧЕСТВО ЕДИНИЦ ЧИСЕЛ ИЗ N ЧИСЕЛ, ВВЕДЕННЫХ С КЛАВИАТУРЫ.