Вывод и ввод массива в текстовый файл

@qiwi · Регистрация: 08.01.2011

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

Требуется написать программу, которая создаст текстовый файл, заполнит его тремя рядам случайных чисел заданной длины, затем считать эти же числа и записать их в двумерный массив и вывести на экран
Заранее благодарю)

@Puporev · 05.04.2014, 11:39

Pascal

const m=3;
      max=25;
var f:text;
    n,a,i,j:integer;
begin
randomize;
assign(f,'1.txt');
rewrite(f);
repeat
write('Введите длину строк от 1 до ',max,' n=');
readln(n);
until n in [1..max];
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a:=random(100);
    write(f,a:3);
   end;
  writeln(f);
 end;
reset(f);
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    read(f,a);
    write(a:3);
   end;
  writeln
 end;
close(f);
end.

@qiwi · 05.04.2014, 17:51 **[ТС]**

огромное спасибо)

@qiwi 25 / 25 / 32 Регистрация: 08.01.2011 Сообщений: 192
		1
	Вывод и ввод массива в текстовый файл 04.04.2014, 21:57. Показов 1883. Ответов 2 Метки нет (Все метки) Требуется написать программу, которая создаст текстовый файл, заполнит его тремя рядам случайных чисел заданной длины, затем считать эти же числа и записать их в двумерный массив и вывести на экран Заранее благодарю) 0

@qiwi 25 / 25 / 32 Регистрация: 08.01.2011 Сообщений: 192
	05.04.2014, 17:51 [ТС]	3
	огромное спасибо) 0

Опции темы

Вывод и ввод массива в текстовый файл

Решение