Помощь - Поиск - Пользователи - Календарь
Полная версия: Еще 1 задача на записи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Shkipper
Ребят можете помоч решить хоть какие нибудь задачи из этих

2.
Создать массив — телефонный справочник, хранящий информацию о 15 абонентах сотовой сети. Каждый элемент справочника
хранит следующую информацию об абоненте: ФИО, номер телефона, адрес регистрации, состояние баланса.
А) Упорядочить массив по адресу абонентов. Составить одно-
мерный массив из сведений об абонентах, которые проживают
на заданной улице и чья фамилия начинается с заданной буквы.

Lapp
На Форуме есть громадное количество примеров решения подобных задач. Используй поиск.
А если есть затруднения с конкретной (твоей) реализацией - показывай, поможем.
Shkipper
Вот чето не допрет теперь как сделать букву А


uses
crt;
type
telephone = record
fam,name,otch,num: string[30];
end;
var
i,k,n: integer;
p: telephone;
st: string;
a: array [1..15] of telephone;
begin
clrscr;
write('wwedite kol-wo nomerow: ');
readln(n);
for i:= 1 to n do
begin
clrscr;
writeln('*** Zapis No ',i,' ***');
write('wwedite familiyu: ');
readln(p.fam);
write('wwedite imya: ');
readln(p.name);
write('wwedite otchestwo: ');
readln(p.otch);
write('wwedite telefon: ');
readln(p.num);
a[i]:=p;
end;
clrscr;
writeln('*** Wiberite parametr dlya poiska: ');
writeln('1 - familia');
writeln('2 - imya');
writeln('3 - otchestwo');
writeln('4 - telefon');
writeln('5 - EXIT');
write('Wash wibor: ');
readln(k);
case k of
1: begin
clrscr;
write('Wwedite familiyu: ');
readln(st);
writeln('***********************');
for i:= 1 to n do
if a[i].fam=st then
writeln(a[i].num,' ',a[i].fam,' ',a[i].name,' ',a[i].otch);
readkey;
end;
2: begin
clrscr;
write('Wwedite imya: ');
readln(st);
writeln('***********************');
for i:= 1 to n do
if a[i].name=st then
writeln(a[i].num,' ',a[i].fam,' ',a[i].name,' ',a[i].otch);
readkey;
end;
3: begin
clrscr;
write('Wwedite otchestwo: ');
readln(st);
writeln('***********************');
for i:= 1 to n do
if a[i].otch=st then
writeln(a[i].num,' ',a[i].fam,' ',a[i].name,' ',a[i].otch);
readkey;
end;
4: begin
clrscr;
write('Wwedite nomer: ');
readln(st);
writeln('***********************');
for i:= 1 to n do
if a[i].num=st then
writeln(a[i].num,' ',a[i].fam,' ',a[i].name,' ',a[i].otch);
readkey;
end;
5:
end;
end.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.