записи, 2 задание курсовой,help,в среду сдавать Опции

[-student-]

1. В трех автопарках работают по 20 машин с заданными госномерами и указанными марками: ГАЗ, ЗИЛ, ЛИАЗ и т.д. Каждый водитель дает сводку о том, сколько километров прошла его машина в каждый день недели, и о размере выручки. Подсчитать общий километраж в каждом автопарке по каждому дню отдельно. В каком из автопарков самый большой автопробег? Какой день недели соответствует самой большой прибыли, полученной автохозяйством? Автомобили какой марки приносят самую большую прибыль?

вот наброски моей программы. Она не работает ,помогите найти ошибку
+Не могу сделать -(Подсчитать общий километраж в каждом автопарке по каждому дню отдельно. В каком из автопарков самый большой автопробег? Какой день недели соответствует самой большой прибыли, полученной автохозяйством? Автомобили какой марки приносят самую большую прибыль)

Буду очень признателен за помощь.

Код

type
   avto=record
   marka,navto,den:string;
   nparka:1..3;
   probeg,viruchka:word;
   end;

   var
    infile: file of avto;
    fa:avto;
    n,i:integer;
    fff:string;
    key:boolean;
    begin
     assign(infile,'file.dat');
     rewrite(infile);
     writeln('введите данные или нажмите ctrl-z');
     writeln(' марка,номер,день,номерпарка,пробег,выручка');
     while not eof do
     begin
     read(fa.marka,fa.navto,fa.den,fa.nparka,fa.probeg,fa.viruchka);
     write(infile,fa);
     end;
     close(infile);
     writeln('введите номер авто');
     readln(fff);
     key:= false;
     reset(infile);
     while(not eof(infile)) and (not key) do
     begin
     read(infile,fa);
     if fa.navto = fff then
     begin
     writeln(fa.marka,fa.navto,fa.den,fa.nparka,fa.probeg,fa.viruchka);
     key:=true;
     end;
     end;
     if not key then
     writeln('нет данных');
     close(infile);
     end.

Теги не забывай

Сообщение отредактировано: volvo - 16.05.2005 15:41

[-student-]

вот текст проги - заработала

  type
    avto=record
    marka,navto,den:string;
    nparka:1..3;
    probeg,viruchka:word;
    end;

    var
     infile: file of avto;
     fa:avto;
     n,i,:integer;
     fff:string;
     key:boolean;
     


     begin
      assign(infile,'file.dat');
      rewrite(infile);
      writeln('введите данные или ctrl-z');
      writeln('марка,номер,день,номерпарка,пробег,выручка' ');
      while not eof do
      begin readln(fa.marka);
      readln(fa.navto);
      readln(fa.den);
      readln(fa.nparka);
      readln(fa.probeg);
      readln(fa.viruchka);
      write(infile,fa);
      end;
      close(infile);
      writeln('введите номер авто');
      readln(fff);
      key:= false;
      reset(infile);
      while(not eof(infile)) and (not key) do
      begin
      read(infile,fa);
      if fa.navto = fff then
      begin
      writeln(fa.marka);
      writeln(fa.navto);
      writeln(fa.den);
      writeln(fa.nparka);
      writeln(fa.probeg);
      writeln(fa.viruchka);
      readln;
      key:=true;
      end;
      end;
      if not key then
      writeln('нет данных');
      close(infile);
      end.

НО ТЕПЕРЬ НЕ ЗНАЮ ЧТО ДЕЛАТЬ С ЭТИМИ ЗАДАНИЯМИ --
(Подсчитать общий километраж в каждом автопарке по каждому дню отдельно. В каком из автопарков самый большой автопробег? Какой день недели соответствует самой большой прибыли, полученной автохозяйством? Автомобили какой марки приносят самую большую прибыль?)--
НАПИШИТЕ ЕСЛИ У КОГО ЕСТЬ КАКИЕ-НИБУДЬ МЫСЛИ ПО ЭТОМУ ПОВОДУ МНЕ ЭТО ОЧЕНЬ ПОМОЖЕТ

Сообщение отредактировано: Oleg_Z - 16.05.2005 22:06