Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11673
Последний выпуск: 19.06.2015

помогите решить задачу

85K
24 февраля 2014 года
seryui
5 / / 14.02.2014
Известны данные от 25-ти учениках класса: фамилии, имя, отчество, адреса и домашние телефоны, если он есть. Вывести на экран, имя и адрес ученика у которого нет домашнего телефона.
285
25 февраля 2014 года
sadovoya
757 / / 19.11.2005
На Дельфи. Под 25 человек сам переделаешь.

Код:
program SmallDB;

{$APPTYPE CONSOLE}

Type Pupil = Record
   FirstName, LastName, MiddleName : string[20];
   Address : string[200];
   Phone : string[20];
end;

const NONE : string[20] = 'none';

var
I: integer;
P : array [1..2] of Pupil;

begin

 P[1].FirstName:= 'John';
 P[1].MiddleName:= 'J.';
 P[1].LastName:= 'Smith';
 P[1].Address:= 'Big, 7';
 P[1].Phone:= '8(123)111-11-11';

 P[2].FirstName:= 'Tom';
 P[2].MiddleName:= NONE;
 P[2].LastName:= 'Soyer';
 P[2].Address:= 'Small, 5';
 P[2].Phone:= NONE;

 for I := 1 to 2 do
    if(P[i].Phone = NONE) then
        writeln('Name is ' + P[i].FirstName + '; Address: ' + P[I].Address);

 readln;

end.
Тестировал в Turbo Delphi 2006. Если в твоем паскале нет сравнения строк на равенство с помощью "=", то должна быть функция аналогичная.
89K
27 февраля 2014 года
STALKERR199
5 / / 27.02.2014
вот помог тебе чувак )

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог