Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2013, 20:34   #1
igor278130
Пользователь
 
Регистрация: 29.10.2013
Сообщений: 14
По умолчанию Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее спасибо

Ввести о студентах: фамилия,пол,рост.
Распечатать сведение о самой высокой девушке.
igor278130 вне форума Ответить с цитированием
Старый 25.11.2013, 20:40   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Структура данных? Запись, файл. Что-то еще?
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 25.11.2013, 20:53   #3
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,551
По умолчанию

Максимальное количество студентов задавай константой, например:
Код:
n = 20;
Тип данных, описывающий студента:
Код:
TStudent = record
  surname: string[32];
  sex: boolean;
  height: byte;
end;
Массивчик:
Код:
TGroup = array[1..n] of TStudent;
Ввод организуем в цикле:
Код:
for i := 1 to n do begin
  Write('Фамилия: '); ReadLn(Group[i].surname);
  // аналогично для остальных полей
end;
Поиск самой высокой девки тоже в цикле делаем проверку:
Код:
if sex and Group[i].height > max then begin
  max := Group[i].height;
  FindI := i;
end;
Ну и по выходу из цикла проверяем, нашли ли вообще подходящего студента, если да, то печать:
Код:
if FindI > 0 then begin
  WriteLn(Group[FindI].surname);
  // вывод остальных полей сам добавишь
end else
  WriteLn('Не найдено');
Как-то так...
Arigato вне форума Ответить с цитированием
Старый 25.11.2013, 20:54   #4
igor278130
Пользователь
 
Регистрация: 29.10.2013
Сообщений: 14
По умолчанию

нет больше нечего
igor278130 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее спасибо igor278130 Помощь студентам 5 19.11.2013 16:18
Здравствуйте. Нужно написать программу в с++. Заранее спасибо. ekaterin Помощь студентам 1 14.05.2012 21:08
Помогите пожалуйста найти ошибки. Заранее спасибо. Ardred Общие вопросы C/C++ 2 25.01.2009 18:18
помогите пожалуйста решить 2 задачи,заранее спасибо Анютка...... Паскаль, Turbo Pascal, PascalABC.NET 0 24.11.2008 11:21
Помогите пожалуйста решить одну задачку в Паскале...Заранее спасибо VisTBacK Помощь студентам 2 29.09.2008 14:57