Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Кристина © (2013-06-09 19:59:00)
При постановке на учет в ГАИ автолюбители указывают следующие данные: марка автомобиля, год выпуска, номер двигателя, номер кузова, цвет, номерной знак, Ф.И.О и адрес владельца. Вывести список автомобилей, проходящих техосмотр в текущем году, сгруппированных по маркам автомобилей. Учесть, что если текущий год четный, техосмотр проходят автомобили с четными номерами двигателей, иначе – с нечетными номерами.

Труп Васи Доброго (2013-06-14 14:21:00) [1]
Застрели своего "учителя", он скрыл от тебя существование БД и SQL.

Kilkennycat (2013-06-13 18:28:00) [2]
а... туплю. в 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];
и все равно похоже на фигню какую-то.
ну вас, с вашим программированием, пойду паять.

brother (2013-06-12 10:42:00) [3]
когда это case стал работать со string?

Kilkennycat (2013-06-12 10:18:00) [4]
c case красивше

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

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

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

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

Кристина (2013-06-09 20:52:00) [6]
Сгруппировать по маркам автомобилей.
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;

Inovet (2013-06-09 20:42:00) [7]
Что именно не получается, определить чётный или нечётный?

Кристина (2013-06-09 20:31:00) [8]
В смысле?

Таня из ГАИ (2013-06-09 20:26:00) [9]
Спасибо, что попытались, но мы лучше программиста наймем.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »