обработка текстовых файлов

[Миша_misha]

посмотрите,у меня не выводит......

в задании данные считываются из файла и результат выводится в файл...

var i,j:integer;
a:array [1..6] of array [1..6] of integer;g: text;

begin

AssignFile(input,'matr.txt');
Reset(input);

for i:=1 to 6 do
for j:=1 to 6 do Read(a[i][j]);
begin

for i:=1 to 6 do
for j:=1 to 6 do
begin
if (a[i,j] mod 2= 0)
then
a[i,j] := a[i,j] else a[i,j]:=a[i,j]+10;
end;
Writeln('matrica a');
for i:=1 to 6 do
begin
for j:=1 to 6 do write(a[i,j]:4);
writeln;end;end;
begin
Assign(g,'ab.txt');
ReWrite(g);
for i:=1 to 6 do
begin
for j:=1 to 6 do write(g,a[i,j]:4);
write(g,' ');
writeln;end;end;

close(g)
end.

[Poma][a]

1) И Вам здрасте
2) Лучше написать задание
3) Лучше правильно оформлять код на данном прекрасном ресурсе (кнопочка с #)

[whatever]

Код оформлять надо так:

var
  i,j:integer;
  a:array [1..6] of array [1..6] of integer;
  g:text;
begin
  AssignFile(input,'matr.txt');
  Reset(input);
  for i:=1 to 6 do
    for j:=1 to 6 do
      Read(a[i][j]); //из файла говоришь?

    for i:=1 to 6 do
      for j:=1 to 6 do
        begin
          if (a[i,j] mod 2= 0) then
            a[i,j] := a[i,j]   //что за бред?
          else
            a[i,j]:=a[i,j]+10;
        end;

    Writeln('matrica a');
      for i:=1 to 6 do
        begin
          for j:=1 to 6 do
            write(a[i,j]:4);
          writeln;
        end;

  Assign(g,'ab.txt');
  ReWrite(g);
  for i:=1 to 6 do
    begin
      for j:=1 to 6 do
        write(g,a[i,j]:4);
      write(g,' ');  //зачем? почему?
      writeln;
    end;
  close(g)
end.

А правильно вот так:

var
  i,j:integer;
  a:array [1..6,1..6] of integer;
  g:textfile;
begin
  AssignFile(input,'matr.txt');
  Reset(input);
  for i:=1 to 6 do
    for j:=1 to 6 do
      Read(input,a[i][j]);
  closefile(input);

  for i:=1 to 6 do
    for j:=1 to 6 do
        if (a[i,j] mod 2<> 0) then
          a[i,j]:=a[i,j]+10;

  Writeln('matrica a');
    for i:=1 to 6 do
      begin
        for j:=1 to 6 do
          write(a[i,j]:4);
        writeln;
      end;

  AssignFILE(g,'ab.txt');
  ReWrite(g);
  for i:=1 to 6 do
    begin
      for j:=1 to 6 do
        write(g,a[i,j]:4);
      write(g,#13#10);//для текстового файла можно было написать просто writeln(g);
    end;
  closeFILE(g)

И еще, нериторический (!!!) вопрос: зачем столько лишних begin-end'ов ?

[Poma][a]

Read(input,a[i][j]);

инпут можно не писать

AssignFILE

и

closeFILE

с дельфи путаешь!

[whatever]

Сообщение от 'Poma

с дельфи путаешь!

Посмотри шеструю строчку кода из первого сообщения, это не я придумал.

[Poma][a]

сори, это кажись ТС напутал... и AssingFILE и просто Assign есть... странно...

[Миша_misha]

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

Код оформлять надо так:

var
  i,j:integer;
  a:array [1..6] of array [1..6] of integer;
  g:text;
begin
  AssignFile(input,'matr.txt');
  Reset(input);
  for i:=1 to 6 do
    for j:=1 to 6 do
      Read(a[i][j]); //из файла говоришь?

    for i:=1 to 6 do
      for j:=1 to 6 do
        begin
          if (a[i,j] mod 2= 0) then
            a[i,j] := a[i,j]   //что за бред?
          else
            a[i,j]:=a[i,j]+10;
        end;

    Writeln('matrica a');
      for i:=1 to 6 do
        begin
          for j:=1 to 6 do
            write(a[i,j]:4);
          writeln;
        end;

  Assign(g,'ab.txt');
  ReWrite(g);
  for i:=1 to 6 do
    begin
      for j:=1 to 6 do
        write(g,a[i,j]:4);
      write(g,' ');  //зачем? почему?
      writeln;
    end;
  close(g)
end.

А правильно вот так:

var
  i,j:integer;
  a:array [1..6,1..6] of integer;
  g:textfile;
begin
  AssignFile(input,'matr.txt');
  Reset(input);
  for i:=1 to 6 do
    for j:=1 to 6 do
      Read(input,a[i][j]);
  closefile(input);

  for i:=1 to 6 do
    for j:=1 to 6 do
        if (a[i,j] mod 2<> 0) then
          a[i,j]:=a[i,j]+10;

  Writeln('matrica a');
    for i:=1 to 6 do
      begin
        for j:=1 to 6 do
          write(a[i,j]:4);
        writeln;
      end;

  AssignFILE(g,'ab.txt');
  ReWrite(g);
  for i:=1 to 6 do
    begin
      for j:=1 to 6 do
        write(g,a[i,j]:4);
      write(g,#13#10);//для текстового файла можно было написать просто writeln(g);
    end;
  closeFILE(g)

И еще, нериторический (!!!) вопрос: зачем столько лишних begin-end'ов ?

А оно у вас хоть работает??у меня не идёт(

[whatever]

У нас хоть работает. Пруф.