Создать файл, в котором есть таблица описывающая: порядковый номер; марку автомобиля; год выпуска автомобиля; количество автомобилей; цена автомобиля — Pascal(Паскаль)

uses crt;
type auto=record
          nom:byte;
          mar:string[20];
          god:2000..2010;
          kol:word;
          cen:longint;
          end;
     fail=file of auto;
var f:fail;
    a:auto;
    n:byte;
    c:char;
begin
clrscr;
assign(f,'auto.dat');
rewrite(f);
writeln('Введите данные об автомобилях, окончание ввода Esc:');
n:=0;
repeat
n:=n+1;
with a do
 begin
  nom:=n;
  write(' Марка: ');readln(mar);
  repeat
  write(' Год выпуска(2000-2010): ');readln(god);
  until (god>1999)and(god<2011);
  write(' Количество: ');readln(kol);
  write(' Цена: ');readln(cen);
  write(f,a);
 end;
c:=readkey;
until c=#27;
clrscr;
close(f);
reset(f);
writeln('Список автомобилей:':35);
writeln;
writeln('--------------------------------------------------');
writeln('| №пп |     Марка     |  Год  | Кол-во |   Цена  |');
writeln('--------------------------------------------------');
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    gotoXY(1,whereY);write('|',nom:3);
    gotoXY(7,whereY);write('| ',mar);
    gotoXY(23,whereY);write('| ',god);
    gotoXY(31,whereY);write('|',kol:6);
    gotoXY(40,whereY);write('| ',cen:7);
    gotoXY(50,whereY);writeln('|');
   end;
 end;
writeln('--------------------------------------------------');
close(f);
readln
end.

Похожие записи/страницы:

Leave a Comment

1 + = 3