Контрольная работа: Создание электронной записной книжки
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