Курсовая работа: Автоматизированная система обработки структур данных

close(f1);

end;

end.

Основная программа

Programauto;

{Подключение вышеописанных модулей}

Usescrt,zad1,zad2,zad3,zad4;

var

A_,C_: Matrix;

A1_: Matr;

A2_,C2_: Mat;

b_: Massiv;

k_,W,m_, n_: Integer;

g_,l_: byte;

d_: spisok;

f_: text;

BEGIN

clrscr;

W: =1;

While W<>6 do begin

{формирование пунктов меню программы}

gotoxy(5,3); write('Автоматизированная система обработки структур данных');

gotoxy(15,9); write('1. Задача 1');

gotoxy(15,11); write('2. Задача 2');

gotoxy(15,13); write('3. Задача 3');

gotoxy(15,15); write('4. Задача 4');

gotoxy(15,17); write('5. Выход');

gotoxy(1, 19); write('Выберите дальнейший режим работы: ');

{Выбор нужного пункта программы}