Примеры программ

 

6.6.1 Дан массив, содержащий N действительных чисел. Найти произведение элементов, меньших заданного числа X.

 

Cхема алгоритма решения задачи приведена на рис.6.

Программа:

PROGRAM PRIM1;

CONST N=23;

VAR I:INTEGER;

X,P:REAL;

M:ARRAY[1..N] OF REAL;

BEGIN

WRITELN('Ввести элементы массива');

FOR I:=1 TO N DO

READLN(M[I]);

WRITELN('Ввести число X'); READLN(X); P:=1;

FOR I:=1 TO N DO

IF M[I]<X THEN P:=P*M[I];

WRITELN('Произведение эл-тов массива М, меньших заданного X, равно',P:12:3)

END.

 

Рис.6 Блок-схема алгоритма решения задачи 6.6.1

6.6.2. Пусть А[1],..., А[20] - количество осадков в миллиметрах, выпавшее в Минске в течение первых 20 лет каждого столетия. Вычислить среднее количество осадков и отклонение от среднего для каждого года.

Решение:

Программа:

TYPE T:ARRAY [1..20] OF REAL;

VAR A:T; I:INTEGER; S:REAL;

 

6.6.3. Дана последовательность символов S1,S2,...,S30. Требуется определить, совпадает ли начальная часть S1,...,S15 последовательности с ее конечной частью S16,...,S30.

Решение:

 

Программа:

PROGRAM PRIM 3;

VAR Y,X:ARRAY[1..15] OF CHAR;

I:INTEGER;

BEGIN

FOR I:=1 TO 15 DO READ(X[I]);

FOR I:=1 TO 15 DO

BEGIN

READ(Y[I]);

IF X[I]<>Y[I] THEN

BEGIN

WRITE('Не ');

BREAK

END;

END;

WRITE('совпадают')

END.