begin

vivod(C,inp,1);

readkey;

menu;

end

else begin

writeln('Neverniy vibor');

readkey;

menu;

end;

end;

'4': halt;

else begin

writeln('Neverniy vibor');

readkey;

menu;

end;

end;{Case}

end;

BEGIN

clrscr;

f1:=false;

f2:=false;

menu;

readkey;

END.

Заключение

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