|
|
|
|
|
|
||
Пример 1:
Составить программу для нахождения наибольшего элемента одномерного массива Х, содержащего 15 компонент вещественного типа.
Program BIGX;
var I: Integer;
BIG: Real;
X: array[1..15] of real;
Begin
for I:=1 to 15 do begin
Writeln('ВВЕДИТЕ X[',I:2,']');
Read(X[I])
end;
BIG:=X[1];
for I:=2 to 15 do
if BIG < X[I] then BIG:=X[I];
Write('BIG= ',BIG:7:2)
end.
В приведенном примере индекс массива имеет интервальный тип. Пример 2:
Составить программу, которая обеспечивает ввод ежемесячной зарплаты и подсчитывает среднемесячную зарплату.
Program WAGE;
type M=(JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC);
varK: M;
W: Array[M] of Real;
SW: Real;
begin
for K:=JAN to DEC do begin
Writeln('ВВЕДИ ЗАРПЛАТУ ЗА',Ord(K)+1:2,' МЕСЯЦ');
Readln(W[K])
end;
SW:=0;
for K:=JAN to DEC do
SW:=SW+W[K];
Writeln('SW=',SW/12:8:2)
end.
В этом примере в индексе использован перечисляемый тип.