Матрицы. Паскаль.

[zmey1]

Привет всем.

Помогите решать задачку на паскале.
Я не просто не понимаю как написать код, но и вообще что программа должны делать=)))

Задача: Числовая матрица задается в файле в следующем формате: I и J, номера столбца и строки ненулевого элемента матрицы, и само значение элемента А(I,J). Количество нулевых элементов неизвестно. Вывести матрицу на экран в обычной форме в виде последовательностей строк и столбцов. Обеспечить преобразование матрицы перестановкой P и Q строк матрицы. Переписать преобразованную матрицу в файл. Размерность матрицы M*N.

Подскажите как быть с такой задачей, пожалуйста=)

[Serge_Bliznykov]

нужно:
1) заполнить матрицу нулевыми значениями
2) открыть текстовый файл на чтение.
в цикле, пока не конец файла читать из файла три числа I, J, KKK
записывать полученное значение в матрицу:

if (I>=1) and (I<=N) and (J>=1) and (J<=M) then A[J, I] := KKK;

3) закрыть исходный текстовый файл
4) вывести матрицу (обычный цикл):

for j:=1 to M do begin
  for  i:=1 to N do
    Write(A[j, i],' ');
  WriteLn;
end;

всё. задача решена.

[zmey1]

Могу попросить, что вы написали код?
Отрывки я понимаю, а вот со всем остальным возникнут проблемы по любому.

[zmey1]

Мне объяснили, что эта прога не должна использовать файлы...
То есть матрица выводится просто на экран без связи с каким либо файлом.

[Mad_Cat]

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

Мне объяснили, что эта прога не должна использовать файлы...
То есть матрица выводится просто на экран без связи с каким либо файлом.

У вас же в задании

Числовая матрица задается в файле

[zmey1]

А ну значит я не правильно понял.
Работы просто много и сессия уже на носу, а я не успеваю вникнуть в работу с файлами на паскале.
I need help guys.
В долгу не останусь=)

[Mad_Cat]

const fn='data.txt';
var m,n,i,j,e:integer;
 Mt:array[1..100,1..100] of real;
 f:text;
 s,buf:string;
 p,q:integer;
 function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  if I > L then Trim := '' else
  begin
    while S[L] <= ' ' do Dec(L);
    Trim := Copy(S, I, L - I + 1);
  end;
end;
begin
write('n=');readln(n);
write('m=');readln(m);
for i:=1 to n do
for j:=1 to m do
Mt[i,j]:=0;
assign(f,fn);
reset(f);
while not eof(f) do begin
readln(f,s);
buf:=copy(s,1,pos(' ',s));
buf:=trim(buf);val(buf,i,e);
delete(s,1,pos(' ',s));
s:=trim(s);
buf:=copy(s,1,pos(' ',s));
buf:=trim(buf);val(buf,j,e);
s:=trim(s);
val(s,mt[i,j],e);
end;
close(f);
for i:=1 to n do begin
for j:=1 to m do
write(Mt[i,j]:6:3);
writeln;
end;
writeln('================================');
write('p=');readln(p);
write('q=');readln(q);
For i:=1 to m do
begin
Mt[100,i]:=mt[p,i];
mt[p,i]:=mt[q,i];
mt[q,i]:=mt[100,i];
end;
writeln('================================');
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do begin
for j:=1 to m do begin
write(f,Mt[i,j]:6:3);
write(Mt[i,j]:6:3); end;
writeln;
writeln(f);
end;
close(f);
readln;
end.

в Pascal Abc

n=4
m=4
1.000 0.000 3.000 0.000
0.000 2.000 0.000 0.000
0.000 0.000 3.000 0.000
0.000 0.000 0.000 0.000
================================
p=1
q=3
================================
0.000 0.000 3.000 0.000
0.000 2.000 0.000 0.000
1.000 0.000 3.000 0.000
0.000 0.000 0.000 0.000

[zmey1]

n=4
m=4
1.000 0.000 3.000 0.000
0.000 2.000 0.000 0.000
0.000 0.000 3.000 0.000
0.000 0.000 0.000 0.000
================================
p=1
q=3
================================
0.000 0.000 3.000 0.000
0.000 2.000 0.000 0.000
1.000 0.000 3.000 0.000
0.000 0.000 0.000 0.000

У меня Турбо Паскаль. И когда ввожу размерность матрицы, то прога выводит все нули и записывает в файл все нули.

[zmey1]

Ну подскажите в чем проблема ??? Люди

[Mad_Cat]

const fn='data.txt';
var m,n,i,j,e:integer;
 Mt:array[1..100,1..100] of real;
 f:text;
 s,buf:string
 p,q:integer;
begin
write('n=');readln(n);
write('m=');readln(m);
for i:=1 to n do
for j:=1 to m do
Mt[i,j]:=0;
assign(f,fn);
reset(f);
while not eof(f) do begin
readln(f,s);
buf:=copy(s,1,pos(' ',s)-1);
val(buf,i,e);
delete(s,1,pos(' ',s));
buf:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));{вот это пропустил}
val(buf,j,e);
val(s,mt[i,j],e);
end;
close(f);
for i:=1 to n do begin
for j:=1 to m do
write(Mt[i,j]:6:3);
writeln;
end;
writeln('================================');
write('p=');readln(p);
write('q=');readln(q);
For i:=1 to m do
begin
Mt[100,i]:=mt[p,i];
mt[p,i]:=mt[q,i];
mt[q,i]:=mt[100,i];
end;
writeln('================================');
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do begin
for j:=1 to m do begin
write(f,Mt[i,j]:6:3);
write(Mt[i,j]:6:3); end;
writeln;
writeln(f);
end;
close(f);
readln;
end.