Сделать матрицу не используя массивы

@ericgilmanov · Регистрация: 17.12.2013

Author24 — интернет-сервис помощи студентам

Ребят, нужна помощь в написании программы. Суть программы в том, что бы паскаль создавал текстовый документ с матрицей 2 на 4. После чего создавался еще один текстовый файл, где к числам начальной матрицы прибавлялась единица. Для создания матрицы нельзя использовать массивы, но числа должны быть всегда рандомные.

@Puporev · 15.12.2015, 17:02

Pascal

var f,g:text;
    a,i:integer;
begin
assign(f,'1.txt');
rewrite(f);
randomize;
for i:=1 to 8 do
 begin
  a:=random(100);
  write(f,a:4);
  if i=4 then writeln(f);
 end;
reset(f);
assign(g,'2.txt');
rewrite(g);
for i:=1 to 8 do
 begin
  read(f,a);
  write(g,a+1:4);
  if i=4 then writeln(g);
 end;
close(f);
close(g);
end.

@ericgilmanov · 15.12.2015, 17:14 **[ТС]**

Program1.pas(13) : Ошибка времени выполнения: Процесс не может получить доступ к файлу "C:\Users\Eric\Documents\Программы\1.txt", так как этот файл используется другим процессом.

@Puporev · 15.12.2015, 17:39

Это раздел простого АВС. А если пишете в АВС.net то и тему создавайте в том разделе. Задолбали тупоумные.
Вставь после строки 12 close(f);

@ericgilmanov 0 / 0 / 0 Регистрация: 17.12.2013 Сообщений: 44
		1
	Сделать матрицу не используя массивы 15.12.2015, 16:53. Показов 550. Ответов 3 Метки нет (Все метки) Ребят, нужна помощь в написании программы. Суть программы в том, что бы паскаль создавал текстовый документ с матрицей 2 на 4. После чего создавался еще один текстовый файл, где к числам начальной матрицы прибавлялась единица. Для создания матрицы нельзя использовать массивы, но числа должны быть всегда рандомные. 0

@ericgilmanov 0 / 0 / 0 Регистрация: 17.12.2013 Сообщений: 44
	15.12.2015, 17:14 [ТС]	3
	Program1.pas(13) : Ошибка времени выполнения: Процесс не может получить доступ к файлу "C:\Users\Eric\Documents\Программы\1.txt", так как этот файл используется другим процессом. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.12.2015, 17:39	4
	Это раздел простого АВС. А если пишете в АВС.net то и тему создавайте в том разделе. Задолбали тупоумные. Вставь после строки 12 close(f); 1