Для вычисления окончательных данных в таблице используются следующие формулы:

А=((А1+А2)-А3)*А4

As=A¢+A¢¢+…An

4 Описание алгоритма

Шаг 1. Запрос о запуске графической заставки –(y/n)

Шаг 1.1. При нажатие клавиши <y> выполняется вывод графической заставки на экран

Шаг 1.2. При нажатие любой клавиши (кроме <y>) выполняется переход к главному меню программы

Шаг 2. Выбор пунктов главного меню

Шаг 3. Выполнение подалгоритма вывода основной таблицы при выборе пункта «1» главного меню.

Шаг 3.1. Печать на экран «шапки» таблицы.

Шаг 3.2. Печать основных данных таблицы.

Шаг 3.3. Возврат к шагу 2 или выход из программы.

Шаг 4. Выполнение подалгоритма создания новых записей при выборе пункта «2» главного меню.

Шаг 4.1. Подтверждение создания новой таблицы.

Шаг 4.2. Ввод количества записей.

Шаг 4.3. Выполнение алгоритма создания новых записей.

Шаг 4 4. Возврат к шагу 2.

Шаг 5. Выполнение подалгоритма добавления записи при выборе пункта «3» главного меню.

Шаг 5.1. Подтверждение добавления записи.

Шаг 5.2. Ввод количества добавляемых записей.

Шаг 5.3. Выполнение алгоритма добавления записей.

Шаг 5.4. Возврат к шагу 2.

Шаг 6. Выполнение подалгоритма удаления записи при выборе пункта «4» главного меню.

Шаг 6.1. Подтверждение операции удаления записи

Шаг 6.2. Выбор удаляемой записи с использованием предварительного просмотра таблицы.

Шаг 6.3. Выполнение алгоритма удаления записи.

Шаг 6.4. При нажатие клавиши <y> - возврат к шагу 6.1, или при нажатие любой клавиши, кроме <y> - к шагу 2

Шаг 7. Выполнения подалгоритма редактирования записи при выборе пункта «5» главного меню.

Шаг 7.1. Подтверждение операции редактирования записи

Шаг 7.2. Выбор редактируемой записи с использованием предварительного просмотра таблицы.

Шаг 7.3. Выполнение алгоритма редактирования записи.

Шаг 7.4. Возврат к шагу 2.

Шаг 8. Выполнение просмотра заставки при выборе пункта «6» главного меню.

Шаг 8.1. Подтверждения запуска заставки

Шаг 8.2. Алгоритм вывода графической заставки на экран

Шаг 9. Выполнение подалгоритма выхода из программы при выборе пункта «7» главного меню.

5 Описание программы

5.1 Общие сведения языка программирования

Система программирования Турбо Паскаль, разработанная американ­ской корпорацией Borland, остается одной из самых популярных систем программирования в мире, которой по плечу любые задачи от создания простых программ, предназначенных для решения не­сложных вычислительных задач, до разработки сложнейших реляцион­ных систем управления базами данных.

К основным достоинствам языка следует отнести гибкость и надежность, простоту и ясность конструкций, легкость реализации на ЭВМ, возможность полного контроля правильности программ во время компиляции и выполнения, наличие набора структурных типов данных (массивов, файлов и записей), возможность построения новых типов данных.

Версия языка TURBO PASCAL V 7.0. включает в себя возможности:

-использование отдельно компилируемых модулей;

-интегрированный отладчик;

-интегрированная среда разработчика;

-объектно-ориентированную оболочку для создания прикладных программ.

Турбо Паскаль 7.0 оперирует объектами, присущими типичной ЭВМ: символами, целыми числами и числами с плавающей запятой. Программисту разрешено управлять размещением объектов и использовать в программах знания размера объектов и способов их взаимного расположения.

5.2 Операторы Turbo Pascal.

В своей простейшей форме программа Borland Pascal состоит из заголовка программы, который именует программу, и основного программного блока, выполняющего назначение программы. В основном программном блоке находится секция кода, заключенная между ключевыми словами begin и end. Простейшая программа, иллюстрирующую эти принципы:

program Privet;

begin

Writeln('Добро пожаловать в Borland Pascal');

end.

Первая строка - это заголовок программы, который именует данную программу. Остальная часть программы - это исходный код, который начинается ключевым словом begin и заканчивается end. Хотя данная конкретная программа содержит только одну строку, их может быть много. В любой программе Borland Pascal все действия выполняются между begin и end.

Исходный код между begin и end содержит операторы, которые описывают выполняемые программой действия. Это называются операторной частью программы.

Приведем примеры операторов:

A := B + C; { присвоить значение }

Calculate(Length, Height); { активизировать процедуру }

if X < 2 then { оператор условия }

Answer := X * Y;

begin { составной оператор }

X := 3;

Y := 4;

Z := 5;

end;

while not EOF(InFile) do { оператор цикла }

begin

ReadLn(InFile, Line);

Process(Line);

end;

Условный оператор:

Позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то или иное действие. Структура условного оператора имеет следующий вид:

IF <УСЛОВИЕ> THEN <оператор_1> elese <оператор_2>;

Вначале вычисляется условное выражение <условие>. Если результат есть TRUE, то выполняется <оператор_1>, а <оператор_2> пропускается; если результат есть FALSE, наоборот, <оператор_1> пропускается, а выполняется <оператор_2>.

Счетный оператор цикла FOR:

FOR <пар_цик> := <нач_знач> to <конеч_знач> do <оператор>

<пар_цик> - параметр цикла

<нач_знач> - начальное значение

<конеч_знач> - конечное значение

<оператор> - произвольный оператор Турбо Паскаля.

При выполнении оператора FOR вначале вычисляется выражение <нач_знач> и осуществляется присваивание <пар_цик>:= <нач_знач>.

После этого цикл повторяется:

· Проверка условия <пар_цик> <= <конеч_знач>, если условие не выполнено оператор FOR завершает свою работу;

· Выполнение оператора <оператор>;

· Наращивание переменной <пар_цик> на единицу.

Оператор цикла WHILE с предпроверкой условия:

WHILE <условие> DO <оператор>.

<условие> - выражение логического типа;

<оператор> - произвольный оператор Турбо Паскаля

Если выражение <условие> имеет значение TRUE, то выполняется оператор, после чего вычисление выражения <условие> и его проверка повторяются. Если <условие> имеет значение FALSE, оператор WHILE прекращает работу.

Оператор цикла REPEAT…UNTIL с постпроверкой условия:

REPEAT <тело цикла> UNTIL <условие>.

<тело цикла> - произвольная последовательность операторов Турбо Паскаля.

<условие> - выражение логического типа.

Операторы <тело цикла> выполняются хотя бы один раз, после чего вычисляется выражение <условие>: если его значение FALSE, операторы <тело цикла> повторяются, в противном случае оператор REPEAT…UNTIL завершает свою работу.