Помогите пожалуйста решить задачу! Никак не получается сделать(

← →
Кристина (2013-06-09 19:59) [0]

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

← →
Таня из ГАИ (2013-06-09 20:26) [1]

Спасибо, что попытались, но мы лучше программиста наймем.

← →
Кристина (2013-06-09 20:31) [2]

В смысле?

← →
Inovet © (2013-06-09 20:42) [3]

Что именно не получается, определить чётный или нечётный?

← →
Кристина (2013-06-09 20:52) [4]

Сгруппировать по маркам автомобилей.
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;

← →
[ВладОшин] © (2013-06-09 22:29) [5]

> sort: array [1..4] of Tmashina;

не компилится

← →
Kilkennycat © (2013-06-12 10:18) [6]

c case красивше

case mashina[j].marka of
"вольво" : sort[1]:=mashina[j];
"бмв" : sort[2]:=mashina[j];
"форд" : sort[3]:=mashina[j];
"волга" : sort[4]:=mashina[j];

когда это case стал работать со string?

а... туплю. в actionscript можно :)
но можно и тут

type
TAutoMobile = (volvo, bmw, ford, volga);

case GetEnumValue(TypeInfo(TAutoMobile ), mashina[j].marka) of
1 : sort[1]:=mashina[j];
2 : sort[2]:=mashina[j];
3 : sort[3]:=mashina[j];
4 : sort[4]:=mashina[j];

что в частном случае приводит к упрощению типа
sort[GetEnumValue(TypeInfo(TAutoMobile), mashina[j].marka)]:=mashina[j];
и все равно похоже на фигню какую-то.
ну вас, с вашим программированием, пойду паять.

Застрели своего "учителя", он скрыл от тебя существование БД и SQL.

Помогите пожалуйста решить задачу! Никак не получается сделать( Найти похожие ветки