Добрый вечер,
Не могу исправить код программы, точнее не могу понять, что мне надо сделать.
В задаче дан массив записей, со сведениями об авиакомпаниях (название авиакомпании, базовый аэропорт, количество перевозимых пассажиров в год, количество ВС, численность персонала). Надо ввести и вывести исходные данные.
У меня получается если известно количество авиакомпаний, а вот если не известно кол-во авиакомпаний, как тогда делать?
Думаю, что надо использовать while. Но вот как и куда его поставить - не знаю.
вот мой код для 10 авиакомпаний:
Цитата:
const n = 10;
type
avl = record
NAZ: string[12];
BAZ: string[10];
KPP : real;
KVS: real;
CHP: real;
end;
var
R: array[1..n] of avl;
FI,FR: text;
b:char;
i:byte;
procedure p;
begin
with R[i] do
writeln(FR, NAZ:12, b, BAZ:10, b, KPP, b, KVS, b, CHP);
end;
procedure VVOD;
begin
assign(FI, 'tt.dat');
reset(FI);
for i:=1 to n do with R[i] do
readln(FI, NAZ, b, BAZ, b, KPP, b, KVS, b,CHP);
end;
for i:=1 to n do p;
close(FI);
end;
begin
assign(FR, 'tt.res');
rewrite(FR);
VVOD;
close(FR);
end.
|