Паскаль. Деление матриц. Немогу запустить программу!!!

[Stilet]

Так и есть 0.2 и rowa:integer; несовместимые понятия. нуна как минимум real для rowa (и остальных в которых нуна читать)

[metamfetamin]

Сообщение от puporev

Мне кажется у Вас неправильно созданы входные файлы. Если Вы хотите читать из них числа, то числа должны быть записаны в допустимых форматах, с допустимыми разделителями и т.д.

Ну а VARе должны быть такие же форматы.
Вот прилагаю расшифровку ошибок по русски, раз уж сам не можешь найти.

C фалами разобрался......программа пошла дальше!!!!!Доходит до (отмечено красным)и пишет file not open for input, как я поимаю оно не может найти куда записать матрицу???

...
procedure writeMatrA;
Begin
writeln(f,'A');
writeln(f,'Matrica A budet hfpbita x= f,rozbivAX,f y= f,rozbivAY');
for i:=1 to rowa do
begin
for j:=1 to cola do
write (f,MatrA[i,j]); writeln;
end;
writeln;
writeln;
End;
{процедура вывода матрицы B}
procedure writeMatrB;
Begin writeln(f,'Matrica B');
writeln(f,'Matrica B budet hfpbita x= f,rozbivBX,f y= f,rozbivBY');
...

Но мне и не нужно что б оно его в файл выводило.......мне нужно только показать!!!

[Stilet]

Нет оно как раз находит куда писать, но... тут облом фал этот (куда писать) открыт "Только на чтение" командой Reset. Посему перед write нужно открыть файл на запись командой Append (на добавление) или rewrite (На перезапись). Решай что тебе лучше, но я думаю что тебе луче выводить не в файл (пока что) а на экран

Да и не забывай закрывать файлы - Close()

[metamfetamin]

Вроде зделал. ПРАВИЛЬНО?????????

procedure writeMatrA;
Begin
assign(f,'A.txt');
append(A);
writeln('Matrica A budet pazbita x= f,rozbivAX,f y= f,rozbivAY');
for i:=1 to rowa do
begin
for j:=1 to cola do
write (f,MatrA[i,j]); writeln;
end;
writeln;
writeln;
End;

[puporev]

Насколько я понял преобразованные матрицы нужно записать не во входные файлы, а создать новый файл для записи. Кроме того прислушайся к совету Stileta и выведи для начала все на экран.

[Stilet]

ПРАВИЛЬНО?????????

РАБОТАЕТ????????????? )))

Вот результ должен вписаться в файл A.txt, но он не впишется потому что читать посты нужно вдумчиво - ты забыл закрыть файл (по крайней мере в приведенном коде).
Убери во writeln выводы в файл и посмотри как оно выведет тебе на экран.

А еще Так кузявее будет:

for j:=1 to cola do
 write (f,MatrA[i,j]); 
end;
writeln;

[metamfetamin]

Короче прога работает но как то не правильно.
Запускается но выводится (прикреплено) просто строка которая выделена красным....хотя должно быть показано разбитые матрицы.
Помогите.Что делать. Мне кажется что во writeln что не правильно в скобка, только что?????

procedure writeMatrA;
Begin
assign(f,'A.txt');
reset(A);
writeln('Matrica A budet pazbita x= ',rozbivAX,'y= ',rozbivAY);
for i:=1 to rowa do
begin
for j:=1 to cola do
write (f,MatrA[i,j]); 
writeln;
end;

End;

Исправленная прога и матрицы А и В к ней прикреплены!!!!!!

[metamfetamin]

А вот исправленые матрицы под ету прогу!!!

[Stilet]

Отладчиком пользоваться умеешь? нужно поставить бряк на for i:=1 to rowa do и посмотреть чему равен rowa и cola.
Если не умеешь тогда перед циклами напиши writeln(rowa,' ',cola)
Думаю что они у тебя равны 0, если да то ищи где ты их обнуляешь или не вводишь.

[metamfetamin]

Сообщение от Stilet

Отладчиком пользоваться умеешь?

Что ти слышал но толком не помню!!!!

нужно поставить бряк на for i:=1 to rowa do и посмотреть чему равен rowa и cola.

Как его поставить

Если не умеешь тогда перед циклами напиши writeln(rowa,' ',cola)

.......
procedure writeMatrA;
Begin
assign(f,'A.txt');
reset(A);
writeln('Matrica A budet pazbita x= ',rozbivAX,'y= ',rozbivAY);
writeln(rowa, ' ',cola);
for i:=1 to rowa do
begin
writeln(cola,' ',rowa);
for j:=1 to cola do
write (f,MatrA[i,j]); writeln;
end;
writeln;
writeln;
End;
.............

Так????? Если правильно то оно все равно выводит шо то не то!!!!!