Контрольная работа: Создание электронной записной книжки

if (a='1') or (a='2') or (a='3') or (a='4') or (a='5') or (a='6') or (a='7') or (a='8')

or (a='9') or (a='10') then

begin

p:=strtoint(a);

writeln('current record ',p);

end;

После ввода номера записи зададим команду «new» редактирования текущей записи. Для этого зададим условие, внутри которого будем использовать процедуру интерактивного ввода данных.

if a='new' then

if (p>0) and (p<11) then

begin

WriteSt(B[p]);

writeln('zapis ',p,' sohranena');

writeln;

writeln('Vvedite novuyu komandu');

end

else writeln('choose the record');

Таким образом мы вносим все изменения в элементы массива B, состоящего из 10 элементов, к которым мы сможем в последствии обращаться.

2.3 Вывод текущей записи. Создание команды для вызова справки

Выше мы задали процедуру для вывода данных. Составим условие, которое будет определять вывод текущей записи: параметру «a» должно быть присвоено значение «out» (это и будет командой вывода), а параметр «p» должен быть равен целому числу от 1 и до 10 включительно. Таким образом, вывод элемента массива «B» (текущей записи блокнота) будет выглядеть следующим образом:

if a='out' then

if (p>0) and (p<11) then

begin

OutputSt(B[p]);

writeln;

writeln('Vvedite novuyu komandu');

end

else writeln('choose the record');

Для просмотра доступных команд пользователем, создадим команду «help». Вывод справки осуществим с помощью обычного отображения текста:

if a='help' then