|
Вопрос # 3 504/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Дано:
type имя=(Валентина,Евгений,Геннадий,Мария,Нина,Александр,Татьяна,Федор,Ольга);
var Пол:array[имя] of (муж., жен.);
Рост:array[имя] оf 150-200;
По массивам Пол и Рост определить имена наивысшего мужчины и женщины и средний рост мужчин и женщин.
Заранее благодарю!
 |
Вопрос задал: Renya060 (статус: Посетитель)
Вопрос отправлен: 9 декабря 2009, 01:03
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Поскольку вопроса я тут не вижу, а проснуться с утра мне необходимо (работать надо), решил написать прогу целиком. Паскаль откапывать не стал, ибо влом, сделал консольку на Delphi. Скопипастил в приложение.
Приложение: Переключить в обычный режим- program p3504;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
-
- type
- TName = (Valentina,
- Evgeny,
- Gennady,
- Mariya,
- Nina,
- Alexandr,
- Tatyana,
- Fedor,
- Olga);
-
- TGender = (Male, Female);
- THeight = 150..200;
-
- const
- Names: array[TName] of string = ('Valentina',
- 'Evgeny',
- 'Gennady',
- 'Mariya',
- 'Nina',
- 'Alexandr',
- 'Tatyana',
- 'Fedor',
- 'Olga');
-
- Genders: array[TName] of TGender = (Female,
- Male,
- Male,
- Female,
- Female,
- Male,
- Female,
- Male,
- Female);
-
- var
- Heights: array[TName] of THeight;
-
-
-
-
-
- procedure WritePerson(AName: TName);
- const
- Gender: array[TGender] of string = ('Male', 'Female');
- begin
- WriteLn(Names[AName], ', ', Gender[Genders[AName]], ', ', Heights[AName]);
- end;
-
- begin
-
- Randomize;
- for Name:= Low(TName) to High(TName) do
- begin
- Heights[Name]:= Random(51) + 150;
- WritePerson(Name);
- end;
-
- WriteLn;
-
-
-
-
-
-
-
-
- {$B-}
-
- for Name:= Low(TName) to High(TName) do
- if Genders[Name] = Male
- then begin
-
- if (MCount = 0) or (Heights[TallestMan] < Heights[Name])
- then TallestMan:= Name;
-
-
-
- end
- else begin
-
- if (WCount = 0) or (Heights[TallestWoman] < Heights[Name])
- then TallestWoman:= Name;
-
-
-
- end;
-
-
- WriteLn('Tallest people: ');
- if MCount <> 0
- then begin
- WritePerson(TallestMan);
- AverageManHeight:= AverageManHeight / MCount;
- WriteLn(' Male average height: ', AverageManHeight: 3: 3);
- end
- else WriteLn(' Men not found.');
- if WCount <> 0
- then begin
- WritePerson(TallestWoman);
- AverageWomanHeight:= AverageWomanHeight / WCount;
- WriteLn(' Female average height: ', AverageWomanHeight: 3: 3);
- end
- else WriteLn(' Women not found.');
-
- ReadLn;
- end.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 9 декабря 2009, 09:23
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 9 декабря 2009, 14:51; участников в обсуждении: 1.
|
Жикльор (статус: 5-ый класс), 9 декабря 2009, 14:51 [#1]:
Renya060, в следующий раз задавайте конкретный вопрос, а не целую задачу! Мы задачи не решаем, мы их помогаем решить!
Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
