Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 23.02.2009, 23:51   #1
КуДрЯ
Пользователь
 
Регистрация: 25.01.2009
Сообщений: 14
Восклицание Множества(Pascal)решите плиз.

Записать в текстовый файл 1000 случайных целых чисел в диапазоне [1..100]. Прочитать каждое пятое и найти их среднюю величину "M" и среднеквадратичное отклонение от нее - "D". Составить множество из чисел, лежащих в интервале [M-3D,M+3D] (используя только прочитанные числа). Вывести полученное множество в текстовый файл.
КуДрЯ вне форума Ответить с цитированием
Старый 24.02.2009, 00:19   #2
XeN0N
Форумчанин
 
Аватар для XeN0N
 
Регистрация: 18.01.2009
Сообщений: 118
По умолчанию

ваш код ?
XeN0N вне форума Ответить с цитированием
Старый 24.02.2009, 01:38   #3
Jean-Esther
Пользователь
 
Аватар для Jean-Esther
 
Регистрация: 15.01.2009
Сообщений: 69
По умолчанию Наш код

Код где-то такой вроде бы.
Код:
function r:byte;
begin randomize; r:=random(101); end;

procedure G(filename:string);
var F:Text;
var a:array[1..200] of byte;
var x,i:byte;
var m,d:real;
begin
  Assign(F,filename);
  ReWrite(F);
  m:=0;
  for i:=1 to 200 do
    begin
      x:=r;
      write(F,r,' ',r,' ',r,' ',r,' ',x,' ');
      a[i]:=x;
      m:=m+x;
    end;
  m:=m/200;
  d:=0;
  for i:=1 to 200 do
    d:=sqr(a[i]-m);
  d:=d/200;
  Close(F);
  {<-- Вывод M, D -->}
  Assign(F,'*.*') {<-- по выбору}
  ReWrite(F);
  for i:=1 to 200 do
    if (a[i]>=M-3D) and (a[i]<=M+3D)
      then write(F,a[i],' ');
  Close(F);
end;
— красивый смайл.
Silence is of great value...
Jean-Esther вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы



Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS