Цитата:
Сообщение от Yahoooooeyu
Задача с записями:
Ввести сведения о студентах: фамилия, пол, рост.
Вывести на экран сведения о самой высокой девушке.
Задачу решить в Паскале.
Заранее спасибо.
|
Код:
TYPE
DATA=Record
Surname:STRING;
Sex:CHAR;
Height:BYTE;
end;
CONST
N=10;
VAR
Stud:ARRAY[1..N] of DATA;
Max_Girl_Height:BYTE;
i,i0:INTEGER;
BEGIN
Max_Girl_Height:=0;
For i:=1 to N do
begin
WriteLn('Sudent N',i);
with Stud[i] do
begin
Write('Surname: ');
ReadLn(Surname);
Write('Sex ("m","w"): ');
ReadLn(Sex);
Write('Height: ');
ReadLn(Height);
end;
WriteLn;
If (Stud[i].Sex='w') and (Stud[i].Height>Max_Girl_Height) then
begin
Max_Girl_Height:=Stud[i].Height;
i0:=i;
end;
end;
WriteLn('The tallest girl is:');
WriteLn(Stud[i0].Surname);
Writeln('Her height is ',Stud[i0].Height,' cm');
ReadLn;
END.