Уважаемые эксперты помогите! нужно составить программу на Turbo Pascal. Вот условие: Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру: Ф.И.О. |Домашний адрес | Номер участка | Год рождения | ---------- |---------------|---------------|--------------| тип строка | тип строка | тип integer | 1900-2000 | 15 символов| 20 символов | | | Разработать программу, выполняющую следующие функции: 1)ввод данного списка в массив записей; 2)вывод массива записей на экран; 3)поиск всех граждан из списка, родившихся до 1980 года и номером участка не более 100 с выводом найденных записей на экран.
Доброе время суток, KENT! Ну и? Определяемся с типом: type TList = record FIO: String[15]; Adress: String[20]; Numb: integer; Year: 1900..2000; end; var List: array [1..100] of TList; По пунктам 1 и 2 не вижу никаких трудностей. По второму пункту: if (List[i].Year < 1980) and (List[i].Numb <= 100) then выводим;
Так где ещё проблемы? ;) Ответ отправлен: 25.11.2004, 21:32 Отправитель: Strory Отвечает ALex_zaw
Доброе время суток, KENT! Программа написана на freepascal, потому русский текст может и не отображаться в обыкновенном turbo pascal. А в остальном я думаю разберётесь.
Приложение: Ответ отправлен: 26.11.2004, 10:25 Отправитель: ALex_zaw Отвечает sir henry
Приветствую Вас, KENT! Дык составляйте, ктоВам мешает?. Если возникнут трудности при составлении, будте добры описать ИХ СИМПТОМЫ, а не слать условия задачи. По условию задачи выходит, что Вы просто сами не хотите ничего делать. Ответ отправлен: 25.11.2004, 09:15 Отправитель: sir henry
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.