Процедура ABCD;
НАЧАТЬ
||писать ('ВВЕДИТЕ ЗНАЧЕНИЕ A, B, C, D');
||ЧИТАТЬ (A, B, C, D);
||ЕСЛИ A=B ТО
||||ЕСЛИ C
||||||X:=1
||||ИНАЧЕ
||||||X:=2
||ИНАЧЕ X:=3
КОНЕЦ
Дан массив целых чисел {Ai}, где i=1,2,3,…,M. Пусть M равно 15. Программа вычисляет произведение сумм некоторых элементов этого массива. В программе введены следующие константы: G=1; W=12; T=8; L=15.
ПРОГРАММА 15;
ФУНКЦИЯ SUMMA(I1,I2);
НАЧАТЬ ФУНКЦИЮ
||S:=0;
||НЦ ДЛЯ I:=I1 ДО I2
||||S:=S + A[I]
||КЦ;
||SUMMA:=S
КОНЕЦ ФУНКЦИИ;
НАЧАТЬ ПРОГРАММУ
||ПИСАТЬ ('ВВЕДИТЕ ЗНАЧЕНИЯ МАССИВА A:' );
||НЦ ДЛЯ J:=1 ДО M
||||ЧИТАТЬ (A[J]);
||КЦ;
||P:=SUMMA (G, W)*SUMMA(T, L);
||ПИСАТЬ ('ПРОИЗВЕДЕНИЕ РАВНО:', P:6)
КОНЕЦ ПРОГРАММЫ.
Работу программы описывает алгебраическое выражение ...