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

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