Оглавление
1. Описание типов. Процедуры
2. Тело программы
2.1 Создание приветствия
2.2 Редактирование записи
2.3 Вывод текущей записи. Создание команды для вызова справки.
2.4 Вывод определенных полей. Закрытие программы.
2.5 Завершение программы. Принцип работы
Список литературы
Приложение
Описание типов. Процедуры
Описание типов начнем с типа «запись»: присвоим ей имя «TSt». Далее опишем компоненты (поля) записи. В данной программе используется 3 поля записи с названиями: Name, Group, Subject и Mark. Они определяют соответствующие поля записной книжки, которые заполняются пользователем. В данной программе необходимо будет использовать и массив, который также определяем в типах.
type TSt=record
Name: string[13];
Group: string[13];
Subject:string[13];
Mark:string[13];
end;
TASt=array[1..10] of TSt;
Далее перейдем к составлению процедур, которые будут использоваться в программе. Нам понадобятся процедура для интерактивного ввода данных в вышеописанные поля и процедура, которая выводит уже заполненные поля на экран.
Процедура по вводу данных с именем «WriteSt» будет выглядеть следующим образом:
procedure WriteSt(var A:TSt);
Begin
write('group: ');
readln(A.Group);
write('Name: ');
readln(A.Name);
write('Subject: ');
readln(A.Subject);
write('Mark: ');
readln(A.Mark);
writeln;
end;
Соответственно, процедура «OutputSt», отвечающая за вывод данных на экран, будет выглядеть:
procedure OutputSt(A:TSt);
Begin
writeln('Group: ',A.Group);
writeln('Name: ',A.Name);
write('Subject: ',A.Subject);
write(':');
writeln(A.Mark,' ballov');
end;
Необходимые в дальнейшем типы определены, процедуры заданы. Далее рассмотрим непосредственно тело программы.
Тело программы
Перед написанием самого тела программы, определим, какие переменные потребуются для дальнейшей работы. Для реализации программы зададим массив «B», строчную переменную «a» и целочисленный параметр «p». Массив необходим для сохранения записей под номерами, определяемые параметром «p», а строчная переменная «a» определяет ввод команд при выполнении программы.
var B:TASt;
a:string;p:integer;
Создание приветствия
Для того чтобы пользователь, незнакомый с данной программой, мог в ней ориентироваться, создадим приветствие, в котором обозначим:
1) название программы;
2) имя создателя;
3) доступные команды.
Это будет выглядеть следующим образом:
writeln('Vas privetstvuet NoteBook v.1.0b Sozdateli: studenty gruppy 520361: Konova Elena, Pivovarov Nikolay, Kharlamov Alexey');
writeln;
writeln('Command "new"-redaktirovanie zapisi,"w"-vyvod tekuschey zapisi, "<cifra>"-vvod nomera zapisi,"help"-vyzov spravki, "all"-pokazat’ vse zapisi, "name"-pokazat’ imena, "group"-pokazat’ nomera grupp, "mark"-pokazat’ ocenki, "sub"-pokazat’ predmety, "q"-vyhod');
Создание приветствия окончено.
Редактирование записи
После написания приветствия зададим цикл, внутри которого будут задаваться основные команды: выбор записи, её редактирование, вывод записи с определенным номером, вывод одного конкретного поля, вывод всех заполненных полей.
Данная программа рассчитана на 10 записей. Задание номера записи будет осуществляться следующим образом:
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 элементов, к которым мы сможем в последствии обращаться.
Вывод текущей записи. Создание команды для вызова справки
Выше мы задали процедуру для вывода данных. Составим условие, которое будет определять вывод текущей записи: параметру «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
write ('command "new"-redaktirovanie zapisi,"out"-vyvod tekuschey zapisi,"<cifra>"-vvod nomera zapisi, "all"-pokazat vse zapisi, "name"-pokazat imena, "group"-pokazat nomera grupp, "mark"-pokazat ocenki, "sub"-pokazat predmety, "q"-vyhod');
Вывод определенных полей. Закрытие программы
Для расширения возможностей данной программы, создадим команды по выводу определенных полей. Но при этом учтем, чтобы незаполненные поля в каких-либо записях не выводились. Это легко осуществить, задав цикл, при котором будут анализироваться все заданные поля элементов массива «B» и условия, которое будет определять наличие информации в данном поле. Поскольку запись «TSt» состоит из 4-х полей, необходимо задать 4 условия для параметра «a», которые и будут определять команды вывода. Их вид указан ниже:
if a='name' then
Begin
for p:=1 to 10 do
Begin
if B[p].Name<>'' then
writeln('zapis ',p,' ',B[p].Name);
end;
end;
if a='group' then
Begin
for p:=1 to 10 do
Begin
if B[p].Group<>'' then
writeln('zapis ',p,' ',B[p].Group);
end;
end;
if a='mark' then
Begin
for p:=1 to 10 do
Begin
if B[p].Mark<>'' then
writeln('zapis ',p,' ',B[p].Mark);
end;
end;
if a='sub' then
Begin
for p:=1 to 10 do
Begin
if B[p].Subject<>'' then
writeln('zapis ',p,' ',B[p].Subject);
end;
end;
Наконец осталось реализовать задачу по выводу всех заполненных полей записей в виде небольшой таблицы. Для равенства ячеек ограничим количество символов в полях до 13, используя «setlength». Тогда за вывод полей будет отвечать следующий отрывок программы:
if a='all' then
Begin
writeln('Zapis ','Group ','Name ','Subject ','Mark ');
for p:=1 to 10 do
Begin
setlength(B[p].Subject,13);setlength(B[p].Mark,13);setlength(B[p].Group,13);setlength(B[p].Name,13);
if (B[p].Subject<>'') or (B[p].Mark<>'') or (B[p].Group<>'') or (B[p].Name<>'') then
writeln('Zapis ',p,' ',B[p].Group,B[p].Name,B[p].Subject,B[p].Mark);
end;
end;