Чтение из файла и вывод массивов - Pascal ABC

Формулировка задачи:

Здравствуйте! Требуется для решения одной задачи три массива. Их чтение происходит из файла, далее с ними работа и потом на выбор: либо результат на экран, либо в файл. Собственно вопрос: как прочитать файл, выявить три различных массива и вывести их потом в файл? Каждый массив записывается в отдельную строку, кол-во элементов заранее неизвестно(у каждого массива может быть разное кол-во элементов).


textual

Код к задаче: «Чтение из файла и вывод массивов - Pascal ABC»

var a,b,c:array[1..100] of integer;
    f:text;
    s:string;
    k,m,n,i:integer;
begin
assign(f,'1.txt');
reset(f);
while not eof(f) do
 begin
  k:=0;
  while not eoln(f) do
   begin
    k:=k+1;
    read(f,a[k]);
   end;
  readln(f,s);
  m:=0;
  while not eoln(f) do
   begin
    m:=m+1;
    read(f,b[m]);
   end;
  readln(f,s);
  n:=0;
  while not eoln(f) do
   begin
    n:=n+1;
    read(f,c[n]);
   end;
 end;
 close(f);
 assign(f,'2.txt');
 rewrite(f);
 for i:=1 to k do
 write(f,' ',a[i]);
 writeln(f);
 for i:=1 to m do
 write(f,' ',b[i]);
 writeln(f);
 for i:=1 to n do
 write(f,' ',c[i]);
 close(f);
 end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.900 из 5

Источник