Заполнить линейный массив из текстового файла

@Anastasia98 · Регистрация: 23.11.2013

Написать программу, которая с помощью различных процедур:
а) Заполняет линейный массив из текстового файла
б) обернуть массив (перевернуть массив относительно середины)
в) записать новый массив в другой файл
Помогите пожалуйста!

@Puporev · 29.03.2014, 10:09

Pascal

type mas=array[1..100] of integer;
procedure readfile(var f:text;var a:mas;var n:integer);
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[n])
 end;
close(f)
end;
procedure revers(var a:mas;n:integer);
var i,x:integer;
begin
for i:=1 to n div 2 do
 begin
  x:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=x
 end;
end;
procedure writefile(var f:text;a:mas;n:integer);
var i:integer;
begin
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do
write(f,' ',a[i]);
close(f);
write('Массив обработан и записан в файл output.txt')
end;
var f:text;
    a:mas;
    n:integer;
begin
readfile(f,a,n);
revers(a,n);
writefile(f,a,n);
readln
end.

@Anastasia98 0 / 0 / 0 Регистрация: 23.11.2013 Сообщений: 14
		1
	Заполнить линейный массив из текстового файла 29.03.2014, 09:55. Просмотров 978. Ответов 1 Метки нет (Все метки) Написать программу, которая с помощью различных процедур: а) Заполняет линейный массив из текстового файла б) обернуть массив (перевернуть массив относительно середины) в) записать новый массив в другой файл Помогите пожалуйста! 0

Опции темы

Заполнить линейный массив из текстового файла

Решение