«Автобусный парк»

[наф-наф]

Помогите пожалуйста
«Автобусный парк»: В программе должны поддерживаться режимы учёта транспортных средств в автопарке, маршрутов, водителей, учёта доходов и расходов (оплата за проезд, ремонт и т. п.), выдачи отчётов по запросам.

[Stilet]

Попытки и наработки глянуть можно?

[наф-наф]

в том то и дело что не понятно как делать,понятно только что это работа с файлами

[Stilet]

Ну для стартапа:

type
 TRecord=record
  vodila,route:string[255];
 end;
var r:TRecord; f:file of TRecord;c:char;
begin
 assign(f,'ATP'); rewrite(f);
 repeat
  writeln('введи водилу:');
   write('Имя: ':20); readln(r.vodila);
   write('Маршрут: ':20); readln(r.route);
  write(f,r);
  writeln('Усе? y/n'); c:=readkey();
 until c<>'n';

 reset(f);
 while not eof(f) do begin
  read(f,r);
  writeln(r.vodila:20,r.route:20);
 end;
 close(f);
 readln;
end.

[min@y™]

понятно только что это работа с файлами

Это учебная задача?

[Krasiosoft]

Если это нужно делать консольное приложение, то я его вижу так:

procedure addVehicle();
begin
    WriteLn('1. addVehicle');
end;

procedure deleteVehicle();
begin
    WriteLn('2. deleteVehicle');
end;

procedure showVehicles();
begin
    WriteLn('3. showVehicles');
end;

procedure addRoute();
begin
    WriteLn('4. addRoute');
end;

procedure deleteRoute();
begin
    WriteLn('5. deleteRoute');
end;

procedure showRoutes();
begin
    WriteLn('6. showRoutes');
end;

procedure addDriver();
begin
    WriteLn('7. addDriver');
end;

procedure deleteDriver();
begin
    WriteLn('8. deleteDriver');
end;

procedure showDriver();
begin
    WriteLn('9. showDriver');
end;



var choice:integer;
begin

  repeat

    Writeln('1. Добавить новое транспортное средство');
    Writeln('2. Удалить транспортное средство');
    Writeln('3. Вывести информацию про транспортные средства');
    Writeln;
    Writeln('4. Добавить новый маршрут');
    Writeln('5. Удалить маршрут');
    Writeln('6. Вывести информацию про маршруты');
    Writeln;
    Writeln('7. Добавить нового водителя');
    Writeln('8. Удалить водителя');
    Writeln('9. Вывести информацию про водителей.');
    Writeln;
    Writeln('0. Выход');
    Writeln;

    Readln(choice);

    Case choice of
      1: addVehicle();
      2: deleteVehicle();
      3: showVehicles();

      4: addRoute();
      5: deleteRoute();
      6: showRoutes();

      7: addDriver();
      8: deleteDriver();
      9: showDriver();
    end;


  until choice=0;

end.