Записать в файл g наименьшее значение первых двух компонент файла f

@komariks · Регистрация: 11.12.2013

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

Помогите решить...Дан файл f, компоненты которого являются целыми числами. Записать в файл g наименьшее значение первых двух компонент файла f, затем - следующих двух компонент и т.д, если количество чисел в файле нечетное, то дописать ее последней в новом файле.

@Puporev · 11.04.2014, 09:10

Pascal

uses crt;
var f,g:file of integer;
    n,a,b,i:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел записать в файл F n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(50);
  write(f,a);
 end;
writeln('Содержание исходного файла:');
seek(f,0);
i:=0;
while i<filesize(f) do
 begin
  seek(f,i);
  read(f,a);
  write(a,' ');
  if i<filesize(f)-1 then
   begin
    seek(f,i+1);
    read(f,b);
    write(b,' ');
    if a<b then write(g,a)else write(g,b);
   end
  else  write(g,a);
  i:=i+2
 end;
close(f);
writeln;
seek(g,0);
writeln('Содержание полученного файла:');
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
end.

@komariks 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 23
		1
	Записать в файл g наименьшее значение первых двух компонент файла f 11.04.2014, 01:09. Показов 1156. Ответов 1 Метки нет (Все метки) Помогите решить...Дан файл f, компоненты которого являются целыми числами. Записать в файл g наименьшее значение первых двух компонент файла f, затем - следующих двух компонент и т.д, если количество чисел в файле нечетное, то дописать ее последней в новом файле. 0

	11.04.2014, 09:10

Записать в файл g наименьшее значение первых двух компонент файла f

Решение