[Pascal] комбинированные типы(задача)

[Рамик]

задача:
Дан список из фамилий уч-ся и дат их рождения. Вывести фамилию младшего учащегося.

вот я начал:

program p1;
uses crt;
type spisok=record
     fam:string[20];
     date:string[20];
     end;
var n,i,kod,m:integer;
    d:array[1..100] of spisok;

begin
     writeln('vvedite kollichestvo uchashihsia: ');
     readln(n);
for i:=1 to n do begin
     writeln('vvedite familiyu: ');
     write(i,': ');
     readln(d[i].fam);
     writeln('vvedite datu rojdenia(dd.mm.yy): ');
     readln(d[i].date);
     end;
...

как правильно сравнить их даты рождения?

[Jean-Esther]

А дата у тебя в каком формате?

[Рамик]

типа String формата дд.мм.гг

[Jean-Esther]

Положим, формат DD:MM:YYYY
тогда введем функцию:

function DateValue(date:string):longint;
var DD,MM,YYYY:string;
var k:integer;
begin
k:=pos(':',date);
DD:=copy(date,1,k-1);
delete(date,1,k);
k:=pos(':',date);
MM:=copy(date,1,k-1);
delete(date,1,k);
YYYY:=date;
{=========}
DateValue:=StrToInt(DD) +
   StrToInt(MM)*31 + {31 — наибольшее количество дней}
   (StrToInt(YYYY)-1900) * 31*12; {-1900 для укладки в тип longint, 31*12 — количество дней в году, если в каждом месяце по 31 день :) }
end;

Осталось только описать функцию

function StrToInt(s:string):integer;
var k:integer;
begin
k:=0;
while s<>'' do
begin
    k:=k*10+ord(s[1])-48;
    delete(s,1,1);
end; {вроде правильно написал}
StrToInt:=k;
end;

И сравниваем даты

min:=DateValue(d[1].date); for i:=2 to n do if min>DateValue(d[i].date) then min:=DateValue(d[i].date); for i:=1 to n do if DateValue(d[i].date)=min then writeln('>>',d[i].fam);

Вроде так. Писал сходу, мог ошибиться.

[Рамик]

...мы функции еще не проходили...(((
я вот думаю с помощью val может как то сравнить?

[Jean-Esther]

Понимаю, что это скорее всего тебе не поможет, но привожу работающую прогу.

program p1;
uses crt;
type spisok=record
     fam:string[20];
     date:string[20];
     end;
var n,i,kod,m:integer;
    d:array[1..100] of spisok;
var min:longint;
function StrToInt(s:string):integer;
var k:integer;
begin
k:=0;
while s<>'' do
begin
    k:=k*10+ord(s[1])-48;
    delete(s,1,1);
end; {вроде правильно написал}
StrToint:=k;
end;
function DateValue(date:string):longint;
var DD,MM,YYYY:string;
var k:longint;
begin
k:=pos('.',date);
DD:=copy(date,1,k-1);
delete(date,1,k);
k:=pos('.',date);
MM:=copy(date,1,k-1);
delete(date,1,k);
YYYY:=date;
{=========}
k:=StrToInt(DD);
k:=k + StrToInt(MM)*31;
k:=k + (StrToInt(YYYY)-1900) * 31*12;
DateValue:=k;
end;


begin
     writeln('vvedite kollichestvo uchashihsia: ');
     readln(n);
for i:=1 to n do begin
     writeln('vvedite familiyu: ');
     write(i,': ');
     readln(d[i].fam);
     writeln('vvedite datu rojdenia(dd.mm.yy): ');
     readln(d[i].date);
     end;
min:=DateValue(d[1].date);
for i:=2 to n do if min>DateValue(d[i].date)
    then min:=DateValue(d[i].date);
for i:=1 to n do if DateValue(d[i].date)=min
    then writeln('>>',d[i].fam);
end.

[Serge_Bliznykov]

я вот думаю с помощью val может как то сравнить?

можно и так
только через функцию Copy( ) выделяйте отдельно год, отдельно месяц и отдельно день.
к ним можно применять val и сравнивать.
справитесь?

[Рамик]

должен...) спс