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

case k_ of

1: begin

clrscr;

vvod(A_, m_, n_);

obrab(A_, m_, n_, b_);

vyvod(A_,b_, m_,n_);

writeln('Для продолжения нажмите Enter');

readln;

end;

2: begin

clrscr;

vvod1(A1_,n_);

poiskmax(A1_,n_,g_,l_);

perestanovka(A1_,n_,g_,l_);

vyvod1(A1_,n_);

writeln('Для продолжения нажмите Enter');

readln;

end;

3: begin

clrscr;

vvod3(A2_,m_,n_);

obrab1(A2_,C2_,m_,n_);

vyvod2(C2_,m_,n_);

writeln('Для продолжения нажмите Enter');

readln;

end;

4: begin

clrscr;

vvod2(d_);