Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на языке Pascal

Выпуск № 346
от 28.11.2004, 14:40

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков
О рассылке:
Задано вопросов: 554
Отправлено ответов: 2099
Активность: 378.8 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Strory
Статус: Опытный
Общий рейтинг: 158.62
URL: МУАТ
Телефон: +7 (845-3) 54-16-74
[Подробней >>]
ALex_zaw
Статус: Начальный
Общий рейтинг: 144.44
[Подробней >>]
sir henry
Статус: Профессиональный
Общий рейтинг: 163.64
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 550. Уважаемые эксперты помогите! нужно составить программу на Turbo Pascal. Вот условие: Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру: Ф.И.О. |Домашний адрес | Номер участка | Год рождения | ---------- |--------------... (ответов: 3)

Вопросов: 1, ответов: 3


 Вопрос № 550

Уважаемые эксперты помогите! нужно составить программу на Turbo Pascal. Вот условие:
Дан список, содержащий не менее 10 записей, каждая из которых имеет структуру:
Ф.И.О. |Домашний адрес | Номер участка | Год рождения |
---------- |---------------|---------------|--------------|
тип строка | тип строка | тип integer | 1900-2000 |
15 символов| 20 символов | | |
Разработать программу, выполняющую следующие функции: 1)ввод данного списка в массив записей; 2)вывод массива записей на экран; 3)поиск всех граждан из списка, родившихся до 1980 года и номером участка не более 100 с выводом найденных записей на экран.



Вопрос отправлен: 25.11.2004, 01:22
Отправитель: KENT (KENT555@mail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Strory

Доброе время суток, 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.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (20)
C / C++ (19)
Perl (4)
Builder / Delphi (19)
Pascal (20)
Basic / VBA (11)
Java / JavaScript (5)
PHP (16)
Криптография (6)
WinAPI (19)
Радиоэлектроника (13)
Пользователю
Windows 95/98/Me (40)
Windows NT/2000/XP (60)
"Железо" (39)
Поиск информации (21)
Администратору
Windows NT/2000/XP (34)
Linux / Unix (18)
Юристу
Гражданское право (11)
Семейное право (5)
Трудовое право (9)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.





http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Отписаться

В избранное