файлы и матрицы

[Олег093]

помогите!!!!задача: Ввести 2 целочисленных файла и в которых первая компонента – количество строк, а вторая – количество столбцов в хранящихся в этих файлах матрицах. Третья компонента – сумма всех элементов в этих матрицах. Восстановить исходные матрицы , и вывести их. В случае невозможности проведения операции восстановления (элементов в файле меньше заявленного или размерность меньше 1) вывести об этом сообщение. Кроме того, вывести истинную и заявленные суммы элементов в матрицах. (прим.: при решении использовать подпрограммы).Я решаю ,но, что то не очень получается...

[malinoff]

Язык, наработки?

[Олег093]

язык паскаль,наработки совсем малы....и их невозможно связать в программу...

[malinoff]

Я правильно понял, входной файл имеет вид:
3 3 3
100
010
001
?

[Олег093]

правильно...

[Mad_Cat]

а в чем сложность раз других условий нет?

элемент = Сумма div (кол_столб*кол_строк);
последний_элемент=элемент+Сумма mod (кол_столб*кол_строк);

и зачем тут подпрограммы7

[Олег093]

в том то и проблемы что необходимо через подпрограммы решить

[malinoff]

Ну выделите определение ошибки в отдельную функцию, восстановление элементов в отдельную функцию... Хотя странное какое-то задание.

[Олег093]

вот и я не особо понимаю,поэтому и прошу помочь

[Олег093]

вот написал программу..но не выводятся сами матрицы...
program MaxMInExch;
uses crt;
const L=10;
type T2M = array[1.. L,1..L] of integer;
Tname = string[4];
TF = file of integer;
var A1,A2: T2M;
F1,F2 :TF;
N1,N2,M1,M2:byte;
maxF1,maxF2,Npol1,Notr1,kchet1,kche t2,Npol2,Notr2:integer;

// процедура для ввода файла
procedure VvodF(var F:TF; const name:Tname);
var buf:integer;
begin
rewrite(F);
writeLn('введите первую компоненту файла ', name);
writeLn('999 - окончание ввода');
readLn(buf);
while buf<>999 do
begin
write(F,buf);
writeLn('введите следующую компоненту:');
readLn(buf);
end;
end;

// процедура для вывода файла
procedure VivodF(var F:TF; const name:Tname);
var buf:integer;
begin
reset(F);
writeLn('Выводим файл ', name);
while not EOF(F) do
begin
read(F,buf);
write(buf:5);
end;
writeLn;
end;
// процедура для вывода матрицы
procedure VivodMx(const A:T2m; const N,M: byte; const name:Tname);
var i,j:byte;
begin
writeLn('Матрица ',name,' после формирования:');
for i:=1 to N do
begin
for j:=1 to M do
write(A[i,j]:4);
writeLn;
end;
end;



// формирование матриц из файла
procedure form(var F:Tf; var A:T2m; var N,M:byte);
var i,j:byte;
buf1,buf2,buf:integer;
begin
reset(F);
read(F,buf1);
read(F,buf2);
N:=round(buf1);
M:=round(buf2);
for i:=1 to N do
begin
for j:=1 to M do
read(F,buf);
A[i,j]:=buf;
end;
end;




// основная программа
begin
cls;
// инициализация файла F1
Assign(F1,'F1.dat');
VvodF(F1,'F1');
// инициализация файла F2
Assign(F2,'F2.dat');
VvodF(F2,'F2');
VivodF(F1,'F1');
VivodF(F2,'F2');



form(F1,A1,N1,M1);
form(F2,A2,N2,M2);
VivodMx(A1,N1,N1,'A1');
VivodMx(A2,N2,N2,'A2');

close(F1);
close(F2);
end.