сортировка: При постановке на учет в ГАИ автолюбители указывают следующие данные

@Ivich Ivichev · Регистрация: 09.06.2013

Author24 — интернет-сервис помощи студентам

При постановке на учет в ГАИ автолюбители указывают следующие данные: марка автомобиля, год выпуска, номер двигателя, номер кузова, цвет, номерной знак, Ф.И.О и адрес владельца. Вывести список автомобилей, проходящих техосмотр в текущем году, сгруппированных по маркам автомобилей. Учесть, что если текущий год четный, техосмотр проходят автомобили с четными номерами двигателей, иначе – с нечетными номерами.
Прошу помогите решить задачу,бьюсь уже который час и ничего не получается,прошу очень надо.

Добавлено через 2 часа 39 минут

Delphi

procedure TForm1.Button2Click(Sender: TObject);
 var
  n,j,nzap,volvo,bmw,ford,volga: Integer;
  sort: array [1..4] of Tmashina;
begin
memo2.Clear;
for j:=1 to nzap do
         begin
      if (mashina[j].nomerdv mod 2=0) then
  begin
      if (mashina[j].marka='вольво')  then
  begin
       sort[1]:=mashina[j];
  end;
 
      if (mashina[j].marka='бмв')  then
  begin
         sort[2]:=mashina[j];
  end;
 
      if (mashina[j].marka='форд') then
  begin
       sort[3]:=mashina[j];
  end;
 
      if (mashina[j].marka='волга')  then
  begin
         sort[4]:=mashina[j];
  end;
           end;
 
 for n:=1 to 4 do
 begin
 with sort[n] do begin
 Memo2.Lines.Add(marka+' '+IntToStr(year)+'  '+IntToStr(nomerdv)+'  '+IntToStr(nomerkuz)+'  '+zvet+'  '+IntToStr(nomerzn)+'  '+fio+'  '+ adress);
 end;
 end;
 end;
 end;
 
 end.

Есть код,но сортировка работает не правильно,прошу помочь..!!!!!!!!!!!

	09.06.2013, 21:59

Опции темы