Переписать с сохранением порядка следования компоненты файла F1 в файл F2

@xersin · Регистрация: 29.11.2014

Ввести файлы F1 и F2. Переписать с сохранением порядка
следования компоненты файла F1 в файл F2, а компоненты файла F2 в
файл F1. При решении допускается использование вспомогательного файла
H . Файлы вывести до и после преобразования с возведением в квадрат их
максимальных компонент

@Netolyrg · 28.02.2015, 19:22

Вот. Если есть ошибки или, я что-то не так понял, то напишите. И да, я не использовал вспомогательный файл (посчитал лишним). Это не смертельно?

Pascal

Var
a, b :array[1..100] of integer;
F1, F2 :text;
max1, max2, i, n, m :integer;
Begin
assign(F1, 'F1.txt');
assign(F2, 'F2.txt');
reset(F1); reset(F2);
n:=0; m:=0;
while not eof(F1) do begin
   n:=n+1;
   read(F1, a[n]);
   end;
while not eof(F2) do begin
   m:=m+1;
   read(F2, b[m]);
   end;
close(F1); close(F2);
max1:=a[1]; max2:=b[1];
for i:=1 to n do if a[i]>max1 then max1:=a[i];
for i:=1 to m do if b[i]>max2 then max2:=b[i];
assign(F1, 'F1(new).txt');
assign(F2, 'F2(new).txt');
rewrite(F1); rewrite(F2);
for i:=1 to m do write(F1, b[i], ' ');
writeln(F1); write(F1, max2*max2);
for i:=1 to n do write(F2, a[i], ' ');
writeln(F2); write(F2, max1*max1);
close(F1); close(F2);
end.

@xersin 0 / 0 / 0 Регистрация: 29.11.2014 Сообщений: 12
		1
	Переписать с сохранением порядка следования компоненты файла F1 в файл F2 28.02.2015, 13:51. Показов 2549. Ответов 1 Метки нет (Все метки) Ввести файлы F1 и F2. Переписать с сохранением порядка следования компоненты файла F1 в файл F2, а компоненты файла F2 в файл F1. При решении допускается использование вспомогательного файла H . Файлы вывести до и после преобразования с возведением в квадрат их максимальных компонент 0

Опции темы

Переписать с сохранением порядка следования компоненты файла F1 в файл F2

Решение