Данные об учениках |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Данные об учениках |
Лиса |
Сообщение
#1
|
Гость |
Привет! Поможите люди добрые с задачей!
По данным сведениям об учениках класса определить среднюю массу мальчиков и средний рост девочек, кто из них самый высокий. Заранее огроменное спасибо! |
Spawn |
Сообщение
#2
|
Группа: Пользователи Сообщений: 9 Репутация: 0 |
Напиши по-точнее, что дано и в каком виде.
|
Лиса |
Сообщение
#3
|
Гость |
Дано фамилия, вес и рост.
|
sandman |
Сообщение
#4
|
Пионер Группа: Пользователи Сообщений: 101 Пол: Мужской Репутация: 0 |
А еще более точно? дано в массиве, в файле или в типизованоом файле?
-------------------- Плавают разными стилями, тонут-одним (ц) Кирпичи
|
BlackShadow |
Сообщение
#5
|
Гость |
Предположим, что в файле такого типа:
м Иванов 123 80 ж Петрова 185 54 ... Код Type Child=Record Name:String; Height:Integer; Weight:Integer End; Var m:Array[0..20] Of Child; f:Array[0..20] Of Child; mCount:Integer; fCount:Integer; df:Text; s:String; i,n,k:Integer; b:Boolean; Begin Assign(f,'Children.Txt'); Reset(f); mCount:=0; fCount:=0; While Not Eof (df) Do Begin ReadLn(f,s); If (s='м') Or (s='М') Then With m[mCount] Do Begin ReadLn(Name); ReadLn(Height); ReadLn(Weight); Inc(mCount) End Else With f[mCount] Do Begin ReadLn(Name); ReadLn(Height); ReadLn(Weight) Inc(fCount) End End; Close(df); If (mCount=0) And (fCount=0) Then Begin WriteLn('There is no children') Halt End; n:=0; For i:=0 To mCount-1 Do Inc(n,m[i].Weight); WriteLn('Average Weight Of Boys: ',n/mCount:2:2); n:=0; For i:=0 To fCount-1 Do Inc(n,f[i].Height); WriteLn('Average Height Of Girls: ',n/fCount:2:2); If (mCount>0) Then Begin n:=m[0].Height; b:=True End Else Begin n:=f[0].Height; b:=False End; k:=0; For i:=0 To mCount-1 Do If m[i].Height>n Then Begin k:=i; n:=m[i].Height End; For i:=0 To fCount-1 Do If f[i].Height>n Then Begin k:=i; b:=False; n:=f[i].Height End; Write('The highest is '); If b Then WriteLn(m[k].Name) Else WriteLn(f[k].Name); WriteLn('The height is ',n) End. Примерно так... |
Текстовая версия | 23.12.2024 20:07 |