Заполнение файла случайными числами и его последующая обработка

@Анна М · Регистрация: 16.06.2017

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

Заполнение файла случайными числами и его последующая обработка. Заполнить двоичный файл N действительными числами, полученными с помощью генератора случайных чисел. Найти сумму минимального и максимального элементов этого файла. N – случайное число, не превышающее 100.
Примечание: Результат работы с данными вывести на экран и в новый файл. Файл, в который записывается результат, называется OUTPUT.DAT для двоичных файлов.

@Puporev · 16.06.2017, 11:30

Pascal

uses crt;
var f,g:file;
    n,i:integer;
    a,mn,mx,s:real;
begin
clrscr;
randomize;
assign(f,'input.dat');
rewrite(f,6);{6 байт тип real}
repeat
write('Сколько чисел записать в файл от 2 до 100 n=');
readln(n);
until n in [2..100];
for i:=1 to n do
 begin
  a:=9*random;
  blockwrite(f,a,1);{запишем 1 блок размером 6 байт}
 end;
reset(f,6);
writeln('Содержание исходного файла');
for i:=0 to filesize(f)-1 do
 begin
  blockread(f,a,1);
  if i=0 then
   begin
    mn:=a;
    mx:=a;
   end
  else if a<mn then mn:=a
  else if a>mx then mx:=a;
  write(a:5:2);
 end;
close(f);
writeln;
s:=mn+mx ;
writeln('Минимальный элемент=',mn:0:2,' максимальный элемент=',mx:0:2);
writeln('Их сумма=',s:0:2);
{Не понимаю зачем это}
assign(f,'output.dat');
rewrite(f,6);
blockwrite(f,s,1);
close(f);
readln
end.

@Анна М 0 / 0 / 0 Регистрация: 16.06.2017 Сообщений: 2
		1
	Заполнение файла случайными числами и его последующая обработка 16.06.2017, 10:01. Показов 2373. Ответов 1 Метки нет (Все метки) Заполнение файла случайными числами и его последующая обработка. Заполнить двоичный файл N действительными числами, полученными с помощью генератора случайных чисел. Найти сумму минимального и максимального элементов этого файла. N – случайное число, не превышающее 100. Примечание: Результат работы с данными вывести на экран и в новый файл. Файл, в который записывается результат, называется OUTPUT.DAT для двоичных файлов. 0

	16.06.2017, 11:30

Опции темы

Заполнение файла случайными числами и его последующая обработка

Решение