Вывод определенных полей. Закрытие программы

2.4 Вывод определенных полей. Закрытие программы

 

Для расширения возможностей данной программы, создадим команды по выводу определенных полей. Но при этом учтем, чтобы незаполненные поля в каких-либо записях не выводились. Это легко осуществить, задав цикл, при котором будут анализироваться все заданные поля элементов массива «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;

 

2.5 Завершение программы. Принцип работы

 

В пункте 2.2 мы задали цикл «repeat until». Чтобы выйти из программы достаточно задать параметру «a» команду, определяющую, до каких пор должен выполняться цикл:

repeat

<…>

until a='q';

 

После этого с помощью «writeln» выведем на экран надпись (программа «прощается» с пользователем). Чтобы пользователь успел её прочитать, добавим «readln». Тогда выход будет осуществляться после нажатия клавиши «Enter».

 

writeln('Chto zh vy nadelali...');

readln;

end.

 

После запуска программа работает следующим образом:

1)         на экран выводится приветствие, в котором выводится название программы, имя создателя и список команд;

2)         вводится номер записи. При этом пользователь видит появившеюся надпись «current record <№ записи>»;

3)         после ввода команды «new» пользователю открывается возможность поочередного заполнения полей записи. Если номер записи не выбран, то на экран выводится сообщение «choose the record». После окончания редактирования текущей записи, появляется сообщение «Vvedite novuyu komandu»;

4)         для просмотра какой-либо записи, необходимо ввести номер этой записи и команду «out», после чего информация об этой записи будет выведена на экран;

5)         если необходимо просмотреть определенные поля (заполненные) существующих записей, вводится одна из команд: «name» (выводит поля с именем «Name»), «group» (выводит поля с именем «Group»), «mark» (выводит поля с именем «Mark»), «sub» (выводит поля с именем «Subject»);

6)         просмотр все существующих записей осуществляется командой «all». В этом случае в виде таблицы выводится все заполненные поля с указанием номера записи, к которой они относятся;

7)         чтобы просмотреть доступные команды, достаточно ввести «help»;

8)         завершение работы с программой производится с помощью команды «q».[1]

Список литературы

 

1.  Амелина Н. Задачи по программированию. – М .: Вузовская книга, 2000. – 104 с.

2.  Хомоненко А. Delphi 7. – СПб.: БХВ-Петербург, 2007. – 1200 с.

3.  Бобровский С. Delphi 7: Учебный курс. – СПб.: Питер, 2006. – 735 с.

Приложение

 

program notebook;

uses

SysUtils;

type TSt=record

 Name: string[13];

 Group: string[13];

 Subject:string[13];

 Mark:string[13];

 end;

TASt=array[1..10] of TSt;

procedure InputSt(var A:TSt;n:string;g:string;m:string;s:string);

begin

 A.Subject:=s;

 A.Group:=g;

 A.Name:=n;

 A.Mark:=m;

end;

procedure OutputSt(A:TSt);

begin

 writeln('Group: ',A.Group);

 writeln('Name: ',A.Name);

 write('Subject: ',A.Subject);

 write(':');

 writeln(A.Mark,' ballov');

end;

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;

var B:TASt;

 a:string;p:integer;

begin

 writeln('Vas privetstvuet NoteBook v.1.0b Sozdateli: studenty gruppy 520361: Konova Elena, Pivovarov Nikolay, Kharlamov Alexey');

 writeln;

 writeln('Command "new"-redaktirovanie zapisi,"out"-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');

 p:=0;

 repeat

 readln(a);

 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');

 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');

 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;

 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');

 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;

 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;

 until a='q';

 writeln('Chto zh vy nadelali...');

 readln;

end.

[1] После завершения работы введенные данные не сохраняются.