Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.06.2011, 15:30   #1
Анастасья
Пользователь
 
Регистрация: 16.11.2010
Сообщений: 24
Смех задача в Делфи определить машину не прошедшую техосмотр

задача не доделана нет процедур печати.. помогите дописать
Сведения о каждой машине включают в себя следующую информацию: модель( строка длиной 10 символов)номер(код региона,цифровой код, буквенный код),цвет, сведения о владельце(фамилия,имя,отчество), дата последнего техосмотра: выберите данные обо всех машинах,не прошедших техосмотр в текущем году.
Используя в процедуры и функции... тема :записи
Код:
program Project7;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

const
  MaxN=100;
type
  TNumber=record
    codeReg:1..200;
    Nam:1..999;
    let:string[3];
  end;

  TDate=record
    day,month,year:integer;
  end;

  TCar=record
    model:string[10];
    Number:TNumber;
    Color:string;
    FIO:string;
    TechOsm:TDate;
  end;

  TMas=array[1..MaxN]of TCar;

var
  Mas:TMas;
  n:integer;
  CarDate:TDate;

procedure InputNumber(var N:TNumber);
begin
  with N do
    begin
      writeln('Веедите код региона номера');
      readln(codeReg);
      writeln('Введите цифровой код номера');
      readln(Nam);
      writeln('Введите буквенный код номера');
      readln(Let);
    end;
end;


procedure InputDate(var d:TDate);
begin
  writeln('введите день,месяц,год');
  with d do
    begin
      read(day);
      read(month);
      read(year);
    end;
end;

procedure InputCar(var Car:TCar);
begin
  with car do
    begin
      writeln('Введите модель машины');
      readln(model);
      writeln('Введите номер');
      InputNumber(Number);
      writeln('Введите цвет');
      readln(Color);
      writeln('Введите Фамилию,имя,отчество');
      readln(FIO);
      writeln('Введите дату последнего техосмотра');
      InputDate(Techosm);
    end;
end;

procedure InputMas (var A:TMas;n:integer);
var
  i:integer;
begin
  for i := 1 to n do
    begin
      writeln('Введте сведения об втомобиле №',i);
      InputCar(A[i]);
    end;
end;

Function CompareDate (CarDate,Tooday:TDate):boolean; {функция определяет просрочен
или не просрочен техосмотр мацины}
begin
  if CarDate.year <> Tooday.year then
    Result:=false
  else
    Result:=true;
end;

Procedure PrintMasCar(var A:TMas; n:integer);
var
  i:integer;
  d2:TDate;
begin
  writeln('введите сегодняшнюю дату');
  inputDate(d2);
  for i := 1 to n do
    if CompareDate (A[i].TechOsm,d2)then
      printCar(A[i]);


end;


begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);

end.


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это такая КНОПОЧКА с решёточкой #)

Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 07.06.2011 в 15:53.
Анастасья вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
данные о машинах не прошедших техосмотр Анастасья Помощь студентам 4 27.05.2011 14:29
Определить тип приложения(Делфи) Spriggan Помощь студентам 3 05.05.2011 15:24
Интересная задача про измельчительную машину Sergey1515 Общие вопросы Delphi 8 13.04.2011 11:41
[Делфи] Определить что текст явл. айпи адресом zotox Помощь студентам 14 21.08.2009 09:05
Как определить количество занятых секторов на диске в делфи? buka_14 Помощь студентам 0 16.04.2009 16:42