Найти максимальную компоненту файла

@samec051 · Регистрация: 14.01.2015

Создать файл F вещественных чисел. Найти максимальную компоненту файла и записать ее в конец файла. Сформировать файл H, записав в него каждую вторую компоненту файла F.

@Hitoku · 04.03.2018, 23:17

Вариант

Pascal

var max, buff: real;
begin
  var F, H: file of real;
  max := -MaxReal;
  var counter := 0;
  assign(F, 'f.dat');
  assign(H, 'h.dat');
  rewrite(F);
  for var i := 1 to 10 do begin
    buff := Random * 20;
    if buff > max then max := buff;
    write(F, buff);
    write(buff, ' ');
  end;
  writeln(max);
  close(F);
  reset(F);
  rewrite(H);
  while not eof(F) do begin
    read(F, buff);
    inc(counter);
    if not odd(counter) then write(H, buff);
  end;
  close(F);
  close(H);
  reset(H);
  while not eof(H) do begin
    read(H, buff);
    write(buff, ' ');
  end;
  close(H);
end.

@samec051 0 / 0 / 0 Регистрация: 14.01.2015 Сообщений: 49
		1
	Найти максимальную компоненту файла 04.03.2018, 23:02. Показов 1269. Ответов 1 Метки нет (Все метки) Создать файл F вещественных чисел. Найти максимальную компоненту файла и записать ее в конец файла. Сформировать файл H, записав в него каждую вторую компоненту файла F. 0

Опции темы

Найти максимальную компоненту файла

Решение