Функция FAKT

 

Присвоение значения функции

Объявление переменных

Передача значения параметру

F – формальный параметр j – счётчик циклов FAK – промежуточная переменная

 

 

Процедура SUMMA

 

S, B – формальные параметры

Передача значений параметрам

 

Функция STEPEN

 

Присвоение значения функции

Объявление переменных

Передача значений параметрам

OSN, STEP – формальные параметры K – счётчик циклов ST – промежуточная переменная

 

Задача 5

1. Условие: Составить схему алгоритма и написать ВР-программу обработки одномерного массива целых чисел (вид обработки см. в табл. П. 2). Результат вывести на экран дисплея.

Пример: вид обработки заключается в подсчете количества положительных элементов массива.

2. Текст программы:

PROGRAM z5;

VAR mas:ARRAY[1..10] OF INTEGER; (* массив *)

i,kol:INTEGER; (* переменная цикла, количество *)

BEGIN

WRITELN (‘Введите значения элементов массива’);

FOR i=1 TO 10 DO

READ (mas[i]);

kol:=0;

FOR i:=1 TO 10 DO

IF mas[i]>0 THEN kol:=kol+1;

IF kol>0 THEN

WRITELN (‘Кол-во положительных элементов в массиве =’,kol:2)

ELSE

WRITELN (‘Положительных элементов в массиве нет’)

END.

 

3. Схема алгоритма задачи 5

 

Вывод результатов

Заполнение массива

Объявление переменных

mas – массив чисел i – индекс массива KOL – количество положительных чисел