Базовые циклические алгоритмы

Алгоритм вычисления суммы чисел.

Вычислить сумму 12 целых чисел, введенных с клавиатуры.

PROGRAM summa;

VAR a: integer; {введенное число}

i: integer; {счетчик цикла}

S: integer; {сумма}

BEGIN

S:=0;

FOR i:=1 TO 12 DO

BEGIN

writeln(’задайте значение очередного слагаемого ’);

readln(a);

S:=S+a

END;

writeln(‘Сумма =’,S);

END.

Подсчет количества чисел удовлетворяющих заданному условию.

Подсчитать количество отрицательных чисел из 10, введенных с клавиатуры.

PROGRAM kol;

VAR a: integer; {входная переменная}

i: integer; {счетчик цикла}

K: integer; {счетчик отрицательных чисел}

BEGIN

K:=0;

FOR i:=1 TO 10 DO

BEGIN

write(’задайте значение переменной a: ’);

readln(a);

IF a<0 THEN K:=K+a

END;

IF K=0 THEN writeln(‘Отрицательных чисел нет»)

ELSE writeln(‘Количество отрицательных чисел’,K:4);

END.

Вычислить сумму чисел, кратных 3, из десяти чисел введенных с клавиатуры.

PROGRAM summa;

VAR a: integer; {введенное число}

i: integer; {счетчик цикла}

S: integer; {сумма}

K: integer; {счетчик чисел кратных 3}

BEGIN

S:=0; K:=0;

FOR i:=1 TO 10 DO

BEGIN

write(’задайте значение очередного слагаемого ’)

readln(a);

IF a mod 3=0 THEN

begin

K:=K+1;

S:=S+a;

end

END;

IF K=0 THEN writeln(‘чисел кратных 3 нет’)

ELSE writeln(‘сумма чисел кратных 3 =’, S:6)

END.

4. Алгоритм вычисления n!.

n!=1*2*3*...*n. 0!=1

PROGRAM N;

VAR F: integer;

i: integer;

BEGIN

F:=1;

FOR i:=1 TO 15 DO

F:=F*i;

writeln(’15! =’,F)

END.

5. Алгоритм вычисления аⁿ.

PROGRAM step;

VAR a: integer; {основание}

n:integer; {показатель степени}

i: integer; {счетчик цикла}

W: integer; {результат}

BEGIN

write(‘задайте основание а’); readln(a);

write(‘введите показатель n’); readln(n);

W:=1;

FOR i:=1 TO n DO

W:=W*a;

writeln(a,’в степени ‘,n,’ равно ’,W:6)

END.

Вычислить: 1! + 2! + 3! +... + n!, при n=5

.......

s:=0; F:=1;

For i:=1 to 5 do

begin

f:=f*i;

s:=s+f;

end;