|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
11.01.2013, 18:02 | #1 |
Новичок
Джуниор
Регистрация: 11.01.2013
Сообщений: 5
|
Нужно доработать программу.
Условие:
14. Диспетчер автопарка Программа предназначена для учета парка автомашин предприятия - расходов на топливо, ремонт и сервисное обслуживание автомобиля, а также страховку и пр. Каждое транспортное средство характеризуется маркой, регистрационным номером, годом выпуска, стоимостью, трансмиссией (число ступеней и тип – ручная или автомат), начальными показаниями одометра, характеристиками двигателя. При каждой поездке добавляется информация о дате начала и конца поездки и преодоленном расстоянии. С каждым транспортным средством связывается наборы плановых и не плановых событий, заправка топливом. Плановые – замена масла, замена тормозной жидкости, проверка давления в шинах, замена фильтров, проверка аккумуляторов и проводов и т.п. осуществляются периодически либо по прошествии заданного периода времени, либо при пробеге заданного числа километров. Внеплановые – ремонт неисправностей. Каждое событие характеризуется названием, датой проведения, стоимостью. Каждая заправка характеризуется объемом заправленного топлива и его стоимостью. Для каждого транспортного средства ведется запись истории событий в отдельный текстовый файл. Предусмотреть возможность вывода информации о ближайшем запланированном событии по всем автомобилям или конкретному автомобилю, о всех прошедших плановых событиях, о всех прошедших не плановых событиях, среднего расхода топлива за заданный период заданного транспортного средства. Для проверки работоспособности подпрограмм и модулей создать простейший интерфейс пользователя. Все базы данных и лог-файлы хранятся на жестком диске. Если кто возьмется, то напишите плиз. Есть идея. будет одна таблица машины - с каждой машинй связан ряд полей а так же еще три таблицы - запланированное и не запланированные мероприятия, а так же поездки. а что именно выводить написано в предпоследнем абзаце задания ну и естествено должны быть процедуры, чтобы туда все это вводить |
11.01.2013, 18:02 | #2 |
Новичок
Джуниор
Регистрация: 11.01.2013
Сообщений: 5
|
Program cars;
type info=record marka:string; data:word; stoim:longInt; odometr:integer; dvigatel:string; end; transmissiya=record stupen:byte; tip:string; end; var f:array[1..100]of text; car:array[1..100]of info; car1:array[1..100]of transmissiya; n,i,j,d,q,t:byte; noPlan:array[1..100]of integer; s:string; b,a:array[1..1000,1..3]of string[15]; begin WriteLn('Сколько машин в парке?'); ReadLn(n); for i:=1 to n do //формируем информацию о всех машинах begin WriteLn('Вводим информацию о ',i,'-й машине'); WriteLn('Вводим марку машины'); Readln(car[i].marka); WriteLn('Вводим год выпуска машины'); Readln(car[i].data); WriteLn('Вводим стоимость машины'); ReadLn(car[i].stoim); WriteLn('Вводим начальные показания одометра'); ReadLn(car[i].odometr); WriteLn('Вводим ха-ки двигателя'); ReadLn(car[i].dvigatel); WriteLn('Вводим кол-во ступений трансмиссии '); ReadLn(car1[i].stupen); WriteLn('Вводим тип двигателя'); ReadLn(car1[i].tip); end; for i:=1 to n do begin //незапланированные события WriteLn('Вводим кол-во прошедших незапланированных событий для ',i,'-й машины'); ReadLn(noPlan[i]); for j:=1 to noPlan[i] do for d:=1 to 3 do begin if d=1 then begin WriteLn('Вводим название ',j,'-го незапланированного события'); ReadLn(s); a[j,1]:=s; end else if d=2 then begin WriteLn('Дата его проведения= '); ReadLn(s); a[j,2]:=s; end else begin WriteLn('Его стоимость= '); ReadLn(s); a[j,3]:=s; end; end; end; for i:=1 to n do begin WriteLn('Введите кол-во запланированных событий: '); ReadLn(q); for t:=1 to q do for d:=1 to 3 do begin if d=1 then begin WriteLn('Введите название запланированного события'); ReadLn(s); b[j,1]:=s; end; if d=2 then begin WriteLn('Введите дату проведения этого события '); ReadLn(s); b[j,2]:=s; end; if d=3 then begin WriteLn('Введите стоимость этого события '); ReadLn(s); b[j,3]:=s; end; end; end; WriteLn('Вы хотите получить информацию о всех прошедших плановых событиях?'); ReadLn(s); if s='да' then begin end; WriteLn('Вы хотите получить информацию о всех прошедших неплановых событиях?'); ReadLn(s); if s='да' then begin end; WriteLn('Вы хотите рассчитать средний расход топлива одной из машин?'); ReadLn(s); if s='да' then begin end; WriteLn('Вы хотите получить информацию о ближайшем плановом событии?'); ReadLn(s); if s='да' then begin WriteLn('Об одном автомобиле?'); ReadLn(s); if s='да' then begin end else begin end; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужно доработать программу | Andy_G | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 21.11.2012 23:37 |
Симплекс-метод, реализация на делфи, нужно доработать программу | Laptiker | Помощь студентам | 0 | 24.05.2012 01:29 |
C#. Нужно доработать код. | nikitaivanov | Фриланс | 1 | 15.05.2012 20:13 |
Массив нужно доработать | MrRifleman | Общие вопросы C/C++ | 0 | 03.04.2012 20:21 |
Нужно доработать программку ... | bot0 | Помощь студентам | 0 | 28.12.2010 20:47 |