[B]Разработка программы из использованием процедур (Pascal)[/B]

[bot0]

Разработать алгоритм и программу обработки двухуровневого массива.Операции ввода-вывода и обработки оформить в виде процедур.Программа должна предполагать возможность ввода входных данных как из клавиатуры, так и з файла ZAD4.DAT. Результаты работы должны вводиться на экран, так и в файл ZAD4.REZ.

Входные данные, размещены в текстовом файле, имеют такой формат:
- вначале в одном рядке через пропуск идут два числа M и N - размерность матрицы, если матрица прямоугольная и одно число N - если матрица квадратная;
- дальше в M (N для квадратной матрицы) рядках через пропуск идут N чисел - данные из соответствующих ячеек матрицы;
- если в условие есть указания, то в у казаном формате могут быть изменения.
Выходные данные должны иметь формат, предвидений условием задачи.

[B][Условие задачи/B]
Изменить в квадратной матрице числа их квадрантными корнями,если это сделать нельзя, то изменить их на противоположные.

Мое решение задачи без процедур
Код:


uses crt;
const
n=6;
var
i,j:integer;
A:array[1..n,1..n] of double;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=-random(50)+25;
write(A[i,j]:7:2);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
if A[i,j]>0 then
A[i,j]:=sqrt(A[i,j])
else
A[i,j]:=-A[i,j];
write(A[i,j]:7:2);
end;
writeln;
end;
readln;
end.

Процедуры
1) Input keyboard,
2) List file
3) Work ( моя программка)
4) Output screen
5) Save file
6) Exit.