Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Pascal задача (http://www.tehnari.ru/f41/t31983/)

Pascal задача

Задача с записями:

Ввести сведения о студентах: фамилия, пол, рост.

Вывести на экран сведения о самой высокой девушке.

Задачу решить в Паскале.
Заранее спасибо.

Код:

 Const n=3;

 Type students=record

      fam:string;

      pol:char;

      height:byte;

      end;

var s,max:students;

     i:byte;



Begin

  Max.height:=0;

  For i:=1 to n do  begin

    Readln(s.fam);

    Readln(s.pol);

    Readln(s.height);

    If (s.pol='ж') and (s.height>max.height)

    then max:=s;

 end;

 Writeln(max.fam);

 Writeln(max.pol);

 Writeln(max.height)

End.

Цитата:

Сообщение от Yahoooooeyu (Сообщение 281663)

Задача с записями:
Ввести сведения о студентах: фамилия, пол, рост.
Вывести на экран сведения о самой высокой девушке.
Задачу решить в Паскале.
Заранее спасибо.

Код:

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.

Ну вот вам на выбор! :D:D:D