[Pascal] Считать текстовый файл

[Рамик]

Всем привет! подскажите пожалуйста как правильно считать текстовый файл?
вот тут я написал программку которая создает и записывает файл который нужно будет считать в другой программе(нужно написать отдельную программу которая считывает этот файл).
я вот написал но эта неправильно...пожалуйста подскажите!


Которая записывает этот файл:

program pr_4;
uses crt;
var a:array[1..4,1..8] of integer;
    i,j:integer;
    f:text;
begin
clrscr;
assign(f,'c:\bp\bin\ramik\praktika\massiv.txt');
writeln('vvedite elementi massiva(celie chisla): ');
for i:=1 to 4 do
    for j:=1 to 8 do
    readln(a[i,j]);
rewrite(f);
for i:=1 to 4 do begin
    for j:=1 to 8 do begin
    write(f,a[i,j]);
    if j=8 then writeln(f,a[i,j]);
    end;
    end;
close(f);
end.

Пытался сделать которая считывает...но неправильно...=(

program pr_4;
uses crt;
var a:array[1..4,1..8] of integer;
    i,j:integer;
    f:text;
begin
clrscr;
assign(f,'c:\bp\bin\ramik\praktika\massiv.txt');
reset(f);
for i:=1 to 4 do begin
    for j:=1 to 8 do begin
    While not(eof(f)) do begin
    read(f,a[i,j]);
    end;
    write(f,a[i,j]);
    if j=8 then writeln(f,a[i,j]); 
    end;
    end;
close(f);
end.

[RusArtm]

не понятно, почему при записи в файл оный не открыт для записи, не ужели тут не выдается ошибка???

ьежду ассигн и врителн надо вставить
Rewrite(f);
что создаст новый файл или перезапишет уже существующий...

И поясни, что такое "неправильно"... оно не работает, выдает ошибку или что? не те методы?

[Рамик]

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

не понятно, почему при записи в файл оный не открыт для записи, не ужели тут не выдается ошибка???

ьежду ассигн и врителн надо вставить
Rewrite(f);
что создаст новый файл или перезапишет уже существующий...

И поясни, что такое "неправильно"... оно не работает, выдает ошибку или что? не те методы?

Rewrite(f); у меня стоит перед записью в файл...
а там где ты говоришь нету это сначала элементы заносятся в массив...

неправильно это то что он не может считать этот файл...
выдает нули:
00000000
00000000
00000000
00000000


так как текстовый файл вроде как считывается по строчно...а у меня он посимвольно...

[Chudo4258]

program pr_4;
uses crt;
var a:array[1..4,1..8] of integer;
    i,j:integer;
    f:text;
begin
clrscr;
assign(f,'c:\bp\bin\ramik\praktika\massiv.txt');
reset(f);
for i:=1 to 4 do begin
    for j:=1 to 8 do begin
    While not(eof(f)) do begin
    end;
    write(f,a[i,j]); // здесь у вас a[i,j] типа string, а в var просисано что a:array[1..4,1..8] of integer;
    if j=8 then writeln(f,a[i,j]); 
    end;
    end;
close(f);
end.

[RusArtm]

Про открытие не доглядел, может я опять не вижу, но где происходит считываниеиз файла в офтором фрагменте? (read)?
Ну и считывать посимвольно можно только в символьную переменную, если читешь в интегер, то он считает число, отделенное либо пробелом, либо переводом на новую строку...

[Рамик]

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

program pr_4;
uses crt;
var a:array[1..4,1..8] of integer;
    i,j:integer;
    f:text;
begin
clrscr;
assign(f,'c:\bp\bin\ramik\praktika\massiv.txt');
reset(f);
for i:=1 to 4 do begin
    for j:=1 to 8 do begin
    While not(eof(f)) do begin
    end;
    write(f,a[i,j]); // здесь у вас a[i,j] типа string, а в var просисано что a:array[1..4,1..8] of integer;
    if j=8 then writeln(f,a[i,j]); 
    end;
    end;
close(f);
end.

так вводим то целые числа...
я попробывал в варе тип на стринг поменять тогда вообще ниче не выдает...
или я вас не понял ....

[Рамик]

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

Про открытие не доглядел, может я опять не вижу, но где происходит считываниеиз файла в офтором фрагменте? (read)?

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

[Sazary]

В первой программе:
У вас матрица чисел, а в файл пишете все сплошняком.
fixed

program pr_4;
uses crt;
var a:array[1..4,1..8] of integer;
    i,j:integer;
    f:text;
begin
clrscr;
assign(f,'massiv.txt');
writeln('vvedite elementi massiva(celie chisla): ');
for i:=1 to 4 do
    for j:=1 to 8 do
      readln(a[i,j]);
rewrite(f);
for i:=1 to 4 do
 begin
 for j:=1 to 8 do
  write(f,a[i,j],' ');
 if i<4 then writeln(f);
 end;
close(f);
end.

Во второй вообще бред. Уж извините.

program pr_4;
uses crt;
var a:array[1..4,1..8] of integer;
    i,j:integer;
    f:text;
begin
clrscr;
assign(f,'massiv.txt');
reset(f);
i := 1;
j := 1;
While not(eof(f)) do
 begin
 read(f,a[i,j]);
 write(a[i,j]:4);
 inc(j);
 if j>8 then
  begin
  inc(i);
  j := 1;
  writeln;
  readln(f);
  end;
 end;
close(f);
readln;
end.

[Рамик]

что такое inc(j); ?

[Рамик]

Sazary,

if i<4 then writeln(f);

 inc(j);
 if j>8 then
  begin
  inc(i);
  j := 1;
  writeln;
  readln(f);
  end;

поясни пожалуйста