Ввести данные двумерного массива с клавиатуры, а затем записать это в текстовый файл

@Reginar · Регистрация: 15.11.2013

Здравствуйте! Помогите, пожалуйста.
Задание следующее: Нужно ввести данные двумерного массива с клавиатуры, а затем записать это в текстовый файл. Делаю так:

Pascal

  LABEL
Vvod_m,Vvod_n;
VAR
i,j,m,n     :integer;
MassA:   array [1..6,1..6] of real;
a,b         :real;
Fout,Fin    :text;
BEGIN
Vvod_m:
       writeln('Введите кол-во строк массива:');
       readln(m);
 
 
if (m < 2) or (m > 6) then
begin
     writeln('Недопустимое кол-во строк! Необходимо от 2 до 6!!!');
     goto vvod_m;
end;
Vvod_n:
       writeln('Введите кол-во столбцов массива:');
       readln(n);
 
if (n < 2) or (n > 6) then
begin
   writeln('Недопустимое кол-во столбцов! Необходимо от 2 до 6!!!');
   goto Vvod_n;
end;
 
for i:=1 to M do
    for j:=1 to N do
begin
     Writeln('Введите значение MassA(:',i, ', ', j, '):');
     readln(MassA[i,j]);
end;
 
Assign (Fout,'Summa.txt');
ReWrite(Fout);
for i:=1 to M do
    for j:=1 to N do
begin
write(Fout,MassA[i,j]);
Writeln(Fout);
end;
close(Fout);
END.

Но почему-то в файл ничего не записывается. Не могу понять почему.

@Puporev · 23.03.2014, 15:01

У меня все записывается, но лучше записывать так

Pascal

for i:=1 to M do
 begin
  for j:=1 to N do
  write(Fout,MassA[i,j]:6:2);
  Writeln(Fout);
 end;
close(Fout);

Ввожу размеры 2х2, 4 числа и вот что в файле

@Reginar · 23.03.2014, 15:23 **[ТС]**

Puporev, Спасибо. А из-за чего может не записываться?

@Puporev · 23.03.2014, 15:24

А я откуда знаю, у меня записывается...

@EagleAlex · 23.03.2014, 15:52

Reginar, если не закроете файл командой close

@Reginar · 23.03.2014, 15:54 **[ТС]**

EagleAlex, Но у меня-то он закрыт(

@EagleAlex · 23.03.2014, 22:09

Reginar, покажите весь код

@Reginar 2 / 2 / 2 Регистрация: 15.11.2013 Сообщений: 51
	23.03.2014, 15:23 [ТС]	3
	Puporev, Спасибо. А из-за чего может не записываться? 0

@Puporev Почетный модератор 64272 / 47571 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	23.03.2014, 15:24	4
	А я откуда знаю, у меня записывается... 0

@EagleAlex 37 / 37 / 25 Регистрация: 19.11.2012 Сообщений: 197
	23.03.2014, 15:52	5
	Reginar, если не закроете файл командой close 0

@Reginar 2 / 2 / 2 Регистрация: 15.11.2013 Сообщений: 51
	23.03.2014, 15:54 [ТС]	6
	EagleAlex, Но у меня-то он закрыт( 0

@EagleAlex 37 / 37 / 25 Регистрация: 19.11.2012 Сообщений: 197
	23.03.2014, 22:09	7
	Reginar, покажите весь код 0

Опции темы