Задача по текстовых файлах.
Создать текстовый файл, который бы содержал марку автомобиля, стоимость, километраж. Упорядочить строки по алфавиту марки автомобиля, в каждую строку файла прибавить средний километраж по всем маркам в файле. Последняя строка нового файла должна содержать количество фирм, выпускающих все перечисленные в файле автомобили.
Вот мой листинг:
Код:
uses crt;
type avto = record
marka: string;
st,kilo: real;
end;
var f1,f2: text;
name1,name2: string;
a: array [1..100] of avto;
n,i,j,firms: integer;
tmp: avto;
begin clrscr;
write('Imea faila dlea chtenia: '); readln(name1);
assign(f1,name1); reset(f1);
write('Imea faila dlea zapisi: '); readln(name2);
assign(f2,name2); rewrite(f2);
readln(f1,n);
for i:=1 to n do
begin
readln(f1,a[i].marka);
readln(f1,a[i].st);
readln(f1,a[i].kilo);
end;
close(f1);
for i:=n-1 downto 1 do
for j:=1 to i do
if a[j].marka > a[j+1].marka then
begin
tmp:=a[j];
a[j]:=a[j+1];
a[j+1]:=tmp;
end;
firms:=1;
for i:=2 to n do
if a[i].marka <> a[i-1].marka then inc(firms);
for i:=1 to n do
begin
writeln(f2,a[i].marka);
writeln(f2,a[i].st:6:2);
writeln(f2,a[i].kilo:6:2);
end;
writeln(f2,firms);
close(f2);
writeln('Dannye byli perepisany v ',name2);
readkey; end.
Я получается сделал только пол задачи. Сделал вот по сюда:
Код:
Создать текстовый файл, который бы содержал марку автомобиля, стоимость, километраж. Упорядочить строки по алфавиту марки автомобиля,
Но незнаю как сделать ето:
Код:
в каждую строку файла прибавить средний километраж по всем маркам в файле. Последняя строка нового файла должна содержать количество фирм, выпускающих все перечисленные в файле автомобили.
Помогите пожалусто!
:tehnari _ru_837: