Записи, Люди! help me! Опции

[emm]

Please Cрочно

Код

type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara, Bill, Pol);
data = record
male : boolean; {пол: true - мужской, false - женский}
height:140..200; {рост}
cost : word; {зарплата}
end;
group = array[name] of data;

(1). Опишите функцию Lower(G), определяющую имя самого невысокого мужчины из группы G.
(2). Опишите функцию LowCost(G), определяющую имя самого "небогатого" мужчины из группы G.

Сообщение отредактировано: volvo - 22.01.2005 2:18

[APAL]

Код

Function Lower : Name;
Var i,tmp : Name;
Begin
 i:=Mary;
 tmp:=Mary;
 Repeat
   If group[i].Height<group[tmp].Height then tmp:=i;
   Inc(i);
 Until i=Pol;
 Lower:=tmp;
End;

Function LowerCost : Name;
Var i,tmp : Name;
Begin
 i:=Mary;
 tmp:=Mary;
 Repeat
   If group[i].Cost<group[tmp].Cost then tmp:=i;
   Inc(i);
 Until i=Pol;
 LowerCost:=tmp;
End;

Сообщение отредактировано: APAL - 19.05.2004 14:11