Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197348
08.12.2019, 10:31
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:
12. Известны фамилии всех 30 сотрудников фирмы и их адреса. Определить, работают ли в фирме люди с одной из трех фамилий согласно пользовательскому вводу.
в паскале

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
14.12.2019, 18:42
общий
это ответ
Здравствуйте, JonMoxley!

Смотрите код:
[code lang=pascal]const
n=30;
type
tBase=record
name:string;
addr:string
end;
var
a:array[1..n]of tBase;
b:string;
c:integer;
begin
for c:=1 to n do
begin
writeln('enter record[',c:2,']:');
repeat
write('name:');
readln(a[c].name);
until length(a[c].name)>0;
write('addres:');
readln(a[c].addr);
end;
write('enter three names:');
readln(b);
for c:=1 to n do
if pos(a[c].name,b)>0 then writeln(a[c].name,' ',a[c].addr);
end.[/code]

Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа