13.01.2010, 15:02 | #1 (permalink) |
Banned
Регистрация: 13.01.2010
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal задача
Ввести сведения о студентах: фамилия, пол, рост. Вывести на экран сведения о самой высокой девушке. Задачу решить в Паскале. Заранее спасибо. |
13.01.2010, 15:02 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение вашего вопроса возможно скрывается тут Задача. Output. Pascal Задача на массивы, Pascal. Помогите найти ошибку |
13.01.2010, 17:06 | #2 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Код:
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. |
13.01.2010, 17:07 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
13.01.2010, 17:09 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну вот вам на выбор!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|