Программа:
type Student=record
FIO:string;
year:integer;
obj:string;
mark:integer;
end;
var
i:integer;
objec:string;
s: array [1..3] of Student;
BEGIN
// 1-ый студент
s[1].FIO:= 'Петров П.П.';
s[1].mark:= 3;
s[1].obj:= 'Математика';
s[1].year:= 1997;
// 2-ой студент
s[2].FIO:= 'Иванов И.И.';
s[2].mark:= 5;
s[2].obj:= 'Математика';
s[2].year:= 1999;
// 3-ий студент
s[3].FIO:= 'Сидоров С.С.';
s[3].mark:= 5;
s[3].obj:= 'Математика';
s[3].year:= 1998;
write('Введите предмет: ');
readln(objec);
writeln('Список студентов по заданным параметрам:');
for i:=1 to 3 do
if (s[i].obj = objec) and (s[i].mark = 5) then
writeln(s[i].FIO, ' - ' , s[i].year)
END.
marka:array[1..4] of string=('АИ-92','АИ-95','АИ-98','ДТ');
cena:array[1..4] of real=(35.50,38.50,41.70,34.50);
i,k,v:integer;
begin
Writeln('Укажите код топлива');
for i:=1 to 4 do Write(i,' - ',marka[i],', ');
Write(' ? ');
Read(k);
if (k>0) and (k<=4) then
begin
Write('Количество литров: '); Read(v);
Writeln;
Writeln('Топливо: ',marka[k]);
Writeln('Количество, л: ',v);
Writeln('Цена за 1л, руб: ',cena[k]:0:2);
Writeln('К оплате, руб: ',v*cena[k]:0:2)
end
else
Writeln('Вы ввели неверное значение')
end.
Пример работы программы
Укажите код топлива
1 - АИ-92, 2 - АИ-95, 3 - АИ-98, 4 - ДТ, ? 4
Количество литров: 56
Топливо: ДТ
Количество, л: 56
Цена за 1л, руб: 34.50
К оплате, руб: 1932.00