IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Телефонный справочник., модуль,процедуры,..Проверить
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Женский
Реальное имя: Вероника

Репутация: -  0  +


Ребята, кому не лень проверьте пожалуйста программу. Работать - работает. А вот правильно ли. Пишу довольно-таки криво. Если что не так , поскажите, пожалуйста.

Условия :
Разработайте электронный список телефонных номеров, который может сохранять элементы, востребовать и угасать. Используйте следующие декларации:
CONST
max = …;
TYPE
Entry = RECORD
firstName: STRING[20];
lastName: STRING[30];
phoneNumber: STRING[15];
END; (*RECORD*)

PhoneBook = ARRAY [1..max] OF Entry;
Список телефонных номеров должен заполняться беспрерывно , Вы можете отказываться от сортировки. При удалении элемента пробел нужно закрывать сдвигом остальных элементов. Обратился бы к каталогу могут происходить только через следующие процедуры или функции. (Вы выбираете сами подходящие параметры и стоимость возврата).

PROCEDURE StoreNumber(… VAR ok: BOOLEAN);
Сохраняет Имя, Фамилию и номер телефона в справочнике.
Для каждого лица максимум один телефонный номер может быть. Если номер снова сохраняется для лица, то нужно стирать старый номер. При успешном сохранении должен поставлять ОК TRUE, в остальном (в случае уже полного каталога) FALSE.

FUNCTION NumberFor(…): …;
Ищет для данных имени и фамилии соответствующий телефонный номер из каталога и возвращает его. Если такого нет , то возращается пустая строка символов .

PROCEDURE RemoveEntry(… VAR ok: BOOLEAN): …;
Удаляет запись для данного имени и фамилии из каталога. Выходной параметр должен идти ОК TRUE zurückliefern, если соответствующий элемент успешно удален, FALSE, если соответствующая запись не была найдена.

PROCEDURE DisplayPhoneBook(…);
Выводит все элементы в каталоге (имя и номер) на дисплее.

FUNCTION NumberOfEntries(…): …;
Возвращает количество записей на текущий момент в справочнике.

b) В целом речь идет об алгоритмах, при которых список телефонных номеров нужно видеть как величина памяти. Пытайтесь показывать по возможности, много возможностей реализации величины памяти и они обсуждают ее затем.

Вот что у меня получилось:


unit phone;
interface
const
MAX = 15;
type
Entry = record
firstName: string[20];
lastName: string[30];
phoneNumber: string[15];
end;
PhoneBook = ARRAY [1..MAX] of Entry;

procedure StoreNumber(phoneEntry: Entry; var pb: PhoneBook; var ok: boolean);
procedure RemoveEntry(phoneEntry: Entry; var pb: PhoneBook; var ok: boolean);
procedure DisplayPhoneBook(pb: PhoneBook);
procedure NumberFor(pb: PhoneBook; firstName, lastName: string; var index: integer; var e: Entry);
function NumberOfEntries(pb: PhoneBook): integer;
function IsEmpty(a : Entry) : boolean;
procedure InitArray(var pb: PhoneBook);
implementation
procedure InitArray(var pb: PhoneBook);
var
tmp: Entry;
i: integer;
begin
tmp.firstName := '';
tmp.lastName := '';
tmp.phoneNumber := '';
for i := 1 to high(pb) do pb[i] := tmp;
end;

function NumberOfEntries(pb: PhoneBook): integer;
var
nempty, i: integer;
begin
nempty := 0;
for i:= 1 to high(pb) do
begin
if not IsEmpty(pb[i]) then nempty := nempty + 1;
end;
NumberOfEntries := nempty;
end;

procedure NumberFor(pb: PhoneBook; firstName, lastName: string; var index: integer; var e: Entry);
var
i: integer;
tmp: Entry;
begin
index := 0;
tmp.firstName := '';
tmp.lastname := '';
tmp.phoneNumber := '';

for i := 1 to high(pb) do
begin
if (pb[i].firstname = firstname) and (pb[i].lastname = lastname) then
begin
tmp := pb[i];
index := i;
end;
end;

e := tmp;
end;

procedure StoreNumber(phoneEntry: Entry; var pb: PhoneBook; var ok: boolean);
var
tmp: Entry;
index: integer;
tmpt: boolean;
begin
NumberFor(pb, phoneEntry.firstName, phoneEntry.lastname, index, tmp);
tmpt := IsEmpty(tmp);
if IsEmpty(tmp) then
begin
if NumberOfEntries(pb) < high(pb) then
begin
pb[NumberOfEntries(pb) + 1] := phoneEntry;
ok := true;
end
else ok := false;
end
else
begin
pb[index] := phoneEntry;
ok := true;
end;
end;

procedure RemoveEntry(phoneEntry: Entry; var pb: PhoneBook; var ok: boolean);
var
i, index: integer;
tmp: Entry;
tmpPB: PhoneBook;
begin
ok := false;
tmp.firstName := '';
tmp.lastname := '';
tmp.phoneNumber := '';

for i := 1 to high(pb) do
begin
if (pb[i].firstName = phoneEntry.firstName) and (pb[i].lastName = phoneEntry.lastName) then
begin
pb[i] := tmp;
ok := true;
end;
end;

InitArray(tmpPB);

index := 1;
for i := 1 to high(pb) do
begin
if not IsEmpty(pb[i]) then
begin
tmpPB[index] := pb[i];
index := index + 1;

end;
end;

pb := tmpPB;
end;

function IsEmpty(a : Entry) : boolean;
begin
IsEmpty := (a.firstName = '') and (a.lastName = '') and (a.phoneNumber = '');
end;

procedure DisplayPhoneBook(pb: PhoneBook);
var
i: integer;
begin
WriteLn('PhoneBook:');
for i := 1 to high(pb) do
if (not IsEmpty(pb[i])) then
begin
WriteLn('First name: ', pb[i].firstName);
WriteLn('Last name: ', pb[i].lastName);
WriteLn('Phone: ', pb[i].phoneNumber);
end;
end;
end.



program test;
uses
crt, phonebookUnit;
var
currentEntry: Entry;
pb: PhoneBook;
result: boolean;

begin
WriteLn('Please enter first name, last name and phone number for new entry.');
Write('First name: '); ReadLn(currentEntry.firstName);
Write('Last name: '); ReadLn(currentEntry.lastName);
Write('Phone number: '); ReadLn(currentEntry.phoneNumber);

StoreNumber(currentEntry, pb, result);
RemoveEntry(currentEntry, pb, result);
DisplayPhoneBook(pb);
end.



Сообщение отредактировано: bucket -


--------------------
big brother is watching you
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.12.2020 4:47
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name