Программа обработки структурированных данных

[AndyMark]

Деталь автомобиля описывается инвентарным номером (положительное целое число),
весом (в килограммах), ценой и стоимостью (в рублях), датой начала производства (год,
месяц, день), статусом (имеет или не имеет знак качества) и объемом производства (в
штуках за смену). В заданной последовательности сведений о деталях найти
инвентарные номера деталей с наибольшей датой начала производства среди всех
заданных деталей. Вывести на экран инвентарный номер, объем производства, цену и
стоимость деталей со знаком качества.

[Hacker19_90]

Наработки есть??
Если нет милости просим, 636-954-303

[Mad_Cat]

type Tdate = record
        y:integer;
        m:1..12;
        d:1..31;
     end;
type Tdetail = record
Id:integer;
W:integer;
p:integer;
da:Tdate;
St:boolean;
V:integer;
end;
s:array[1..100] of Tdetail;
Buf_d:Tdate;
i,n:integer;
Function Dat(d1,d2:Tdate):boolean;
begin
dat:=false;
if (d2.year > d1.year)  then
        Dat:=true;
 if d2.year = d1.year then
        if d2.month > d1.month then
            Dat:=true;
        else
            if d2.month = d1.month then
                if d2.day > d1.day then
                    Dat:=true;
end;
begin
{тут ввод деталей }
writeln('--------------------------------------------');
Buf_d=s[1].da;
for i:=2 to n do
 if not (buf_d,s[i].da)then buf_d:=s[i].da;
for i:=1 to n do
  if s[i].da=buf_d then writeln(s[i].id,'   ',s[i].da.d,'/',s[i].da.m,'/',s[i].da.y);
writeln('--------------------------------------------');
for i:=1 to n do
 if s[i].st then Writeln(s[i].id,'   ',s[i].v,'  ',s[i].p);
readln;
end.

[AndyMark]

Сообщение от Mad_Cat

type Tdate = record
        y:integer;
        m:1..12;
        d:1..31;
     end;....

Вот так по такому примеру надо сделать только это другая задача по типа этой) можно если не трудно??

uses crt;
Type ekzamen=record;
disciplin:string;
data:string;
Day:byte;
mounth:byte;
year:byte;
end;
svedenia:string;
fakultet:string;
kurs:integer;
gruppa:integer;
nomer_v_jurn:integer;
end;
var ocenka:array[1..10] of ekzamen;
a:=ekzanen;
i:=byte;
begin
clrscr;
writeln('Cozdanie massiva dannih');
for i:=2 to 5 do
begin
Writeln('Vvedite disciplinu');
readln(a.disciplin);
Writeln('Vvedite daty sdachi ekzamena');
readln(a.day.mounth.year);
Writeln('Vvedite svedeniya o studente');
readln(a.fakultet.kurs.gruppa.nomer_v_jurn);
ocenka[i]:=a;
end;
Writeln('DISCIPLINA':25,'DATA SDACHI EKZAMENA':10,'SVEDEINYA O STUDUNTE':20);
for i:=2 to 5 do
with ocenka[i] do
writeln

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

и чрезмерное цитирование (без явной на то необходимости) - тоже является нарушением!

Модератор.

[mss]

> можно если не трудно?

И можно и не трудно.
А ты в это время будешь в потолок поплевывать, ожидая готовенькое ?)

[AndyMark]

Сообщение от mss

> можно если не трудно?

И можно и не трудно.
А ты в это время будешь в потолок поплевывать, ожидая готовенькое ?)

я к тебе чтоль обращаюсь? ты от меня какого содествия хочешь а?? ну ты можешь мне это все объяснить я не против норм?