Технологии
паскаль :Помогите дописать код(если нужно исправить), задание:"добавить в программу возможность сохранения массива данных в файле и чтения из файла, - вопрос №3975854
объединения двух файлов, возможность копирования существующего файла." program pr1;
const n=5;
type
avto=record
marka:string;
god:integer;
stoim:integer;
end;
var mas:array [1..n] of avto;
k:integer;
a:byte;
p:string;
begin
repeat
writeln ('1. Ввести информацию об авто');
writeln ('2. Просмотр информации обо всех авто');
writeln ('3. Поиск авто по модели');
writeln ('4. Вывод списка авто, чья сумма которых превышает 1000000 рублей');
writeln ('5. Exit');
readln(k);
case k of
1: for a:=1 to 5 do
with mas[a]do begin writeln ('Введите название авто:');
readln(marka);
writeln('Введите год авто:');
readln(god);
writeln ('Введите стоимость авто:');
readln(stoim); end; 2: for a:=1 to 5 do with mas[a] do
begin
writeln ('Название авто: ', marka);
writeln ('Год авто: ', god);
writeln ('Стоимость: ', stoim);
end; 3:
begin
writeln ('Введите название авто');
readln(p);
for a:=1 to 5 do if mas[a].marka=p then
begin
with mas[a] do begin
writeln ('Название авто ', marka);
writeln ('Год авто ', god);
writeln ('Стоимость ', stoim);
end;
end;
end;
4: begin for a:=1 to 5 do begin if mas[a].
writeln ('Название авто ', mas[a].marka);
end;
end;
until k=5;
end;
сентябрь 28, 2020 г.
-
Всего ответов: 0