Файлы последовательного доступа

@furymaxim · Регистрация: 25.09.2016

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

Сформировать файл из значений случайных величин:
0,32;0,524;0,789;0,556;0,761;0,248;0,345;0,911;0,216
Определить для данной последовательности среднее ариф. компонентов, значения которых меньше 0,5

Заранее спасибо!

Добавлено через 2 часа 29 минут
Либо,если всю программу сделать трудно, то только код для второй части задания..Спасибо

@furymaxim · 26.11.2016, 08:56 **[ТС]**

Данная задача актуальна.Прошу помочь.

@Puporev · 26.11.2016, 16:02

Pascal

var f:text;
    a,s:real;
    n,i,k:integer;
begin
write('Сколько чисел записать в файл n=');
readln(n);
assign(f,'111.txt');
rewrite(f);
for i:=1 to n do
 begin
  a:=random;
  write(f,a:6:2);
 end;
close(f);
reset(f);
k:=0;
s:=0;
while not seekeof(f) do
 begin
  read(f,a);
  if a<0.5 then
   begin
    s:=s+a;
    k:=k+1;
   end;
end;
close(f);
if k=0 then write('В файле нет чисел меньше 0.5')
else write('Среднее арифметическое чисел меньше 0.5=',s/k:0:2);
end.

@furymaxim · 26.11.2016, 17:22 **[ТС]**

Спасибо Вам большое!Всегда выручаете

@furymaxim 1 / 1 / 0 Регистрация: 25.09.2016 Сообщений: 160
		1
	Файлы последовательного доступа 24.11.2016, 17:12. Показов 2947. Ответов 3 Метки нет (Все метки) Сформировать файл из значений случайных величин: 0,32;0,524;0,789;0,556;0,761;0,248;0,345;0,911;0,216 Определить для данной последовательности среднее ариф. компонентов, значения которых меньше 0,5 Заранее спасибо! Добавлено через 2 часа 29 минут Либо,если всю программу сделать трудно, то только код для второй части задания..Спасибо 0

@furymaxim 1 / 1 / 0 Регистрация: 25.09.2016 Сообщений: 160
	26.11.2016, 08:56 [ТС]	2
	Данная задача актуальна.Прошу помочь. 0

@furymaxim 1 / 1 / 0 Регистрация: 25.09.2016 Сообщений: 160
	26.11.2016, 17:22 [ТС]	4
	Спасибо Вам большое!Всегда выручаете 0

Файлы последовательного доступа

Решение