помогите решить задачу
Известны данные от 25-ти учениках класса: фамилии, имя, отчество, адреса и домашние телефоны, если он есть. Вывести на экран, имя и адрес ученика у которого нет домашнего телефона.
На Дельфи. Под 25 человек сам переделаешь.
Тестировал в Turbo Delphi 2006. Если в твоем паскале нет сравнения строк на равенство с помощью "=", то должна быть функция аналогичная.
Код:
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.
{$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.
вот помог тебе чувак )