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

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

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

Ответ
 
Опции темы
Старый 28.05.2017, 22:14   #51
digitalis
Форумчанин
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 378
Репутация: 132
По умолчанию

Не туда добавлено !
Код:

program Lab1;

const NMAS=1000;
type tMass=array[1..NMAS] of Extended;

Procedure Otcenki(const x: tMass;var Mx,Dx:Real);
Var
  i:integer;
Begin
  Mx:=0; Dx:=0;
  For i:=1 to NMAS do Mx:=Mx+x[i];
  Mx:=Mx/NMAS;
  For i:=1 to NMAS do Dx:=Dx+Sqr(x[i]-Mx);
  Dx:=Dx/(NMAS-1);
end;

Var
  Mx,Dx,a,b,r:real;
  x:tMass;
  i :word;
  MaxVal,MinVal,M_b : real;
  hist: array [0..14] of integer;
  n:integer;
Begin
  Write('a  b:   ');
  ReadLn(a,b);
  Randomize;
  For i:=1 to NMAS do
   begin
    r:=Random;
    x[i]:=a+r*(b-a);
   end;
for i :=0 to 14 do hist[i] := 0 ;
    M_b := 15.0/(b-a) ;
    for i:=1 to NMAS do 
     begin
       n := Trunc((x[i]-a)*M_b);
       Inc (hist[n])
     end;
   MaxVal := x[i];
   MinVal := x[i];
   for i:=2 to NMAS do
     begin
       if x[i] < MinVal  then  MinVal := x[i];
       if x[i] > MaxVal  then  MaxVal := x[i];
     end;
  Otcenki(x,Mx,Dx);
  Writeln ('Min element is: ', MinVal:8:6,' Max element is: ', MaxVal:8:6);
  WriteLn(Mx:8:6,Dx:8:6);
  for i :=0 to 14 do WriteLn(hist[i]:3) ;
  ReadLn;
End.

В вывод я добавил аттрибуты формата, чтобы вместо чисел-портянок получить внятный для понимания вид.
Теперь дело за малым: запустить прогу (без всяких самодеятельных телодвижений) из #39 в FreePascal, если нормально нарисует, будем ее прикручивать к нашей задаче.

Ну все, я пошел за сухоньким: сегодня моя любимая Феррари одержала двойную победу! Под гимн Италии дерябнем с котиками.
Изображения
Тип файла: jpg PrScr.JPG (19.1 Кб, 7 просмотров)

Последний раз редактировалось digitalis; 28.05.2017 в 22:21.
digitalis вне форума   Ответить с цитированием
Старый Вчера, 12:17   #52
Мария34
Пользователь
 
Регистрация: 30.04.2017
Сообщений: 30
Репутация: 10
По умолчанию

Да работает код из #39 на FreePascal.
Мария34 вне форума   Ответить с цитированием
Старый Вчера, 16:47   #53
digitalis
Форумчанин
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 378
Репутация: 132
По умолчанию

Отлично. Код прикрутим, если мой комп не загнется окончательно, как он пытался утром.
digitalis вне форума   Ответить с цитированием
Старый Вчера, 17:28   #54
Мария34
Пользователь
 
Регистрация: 30.04.2017
Сообщений: 30
Репутация: 10
По умолчанию

С чего начать?
Мария34 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Непрерывный рюкзак Evil Nigga Паскаль 8 10.08.2014 23:43
Нормальный (Гауссовский) закон распределения VOVA-74 C++ Builder 0 19.02.2013 18:33
закон распределения Эрланга. Lenr88 Паскаль 0 13.02.2012 12:56
менять видимость объектов на форме в соответствии с введёнными параметрами Mikuro Microsoft Office Excel 4 18.11.2010 14:54
Непрерывный звук в системнике Utkin Железо 9 17.12.2009 07:49




07:44.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru