Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2020, 23:20   #1
suggestion
 
Регистрация: 30.09.2020
Сообщений: 7
По умолчанию pascal Abc. Вычислить среднее значение и дисперсию для заданного массива.

Разработать алгоритм решения задачи, реализовать его на языке Pascal в виде отдельной функции. Диалог с
пользователем (ввод исходных данных и вывод результата) также оформить в виде отдельных функций.
Вычислить среднее значение x(черта сверху) и дисперсию Dx для заданного массива Xk по
формулам:
Изображения
Тип файла: png 1.png (5.5 Кб, 27 просмотров)
Тип файла: png 2.png (3.5 Кб, 26 просмотров)

Последний раз редактировалось suggestion; 05.10.2020 в 00:23.
suggestion вне форума Ответить с цитированием
Старый 05.10.2020, 10:54   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,647
По умолчанию

Во фриланс, быстро! Тимуровцы исчезли вместе с пионерами.
digitalis вне форума Ответить с цитированием
Старый 18.10.2020, 11:54   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,951
По умолчанию

Код:
procedure Vvod(var k:integer; var s1,s2:real);
var x:real;
    i:integer;
begin
   Write('k = '); Readln(k);
   If k<=1 then
      Exit;
   s1:=0;
   s2:=0;
   For i:=0 to k-1 do
   begin
      Write('x',i+1,' = ');
      Readln(x);
      s1:=s1+x;
      s2:=s2+x*x;
   end;
end;

var k:integer;
    s1,s2,x_,Dx:real;
begin
   Vvod(k,s1,s2);
   If k<=1 then
   begin
      Writeln('Error: ',k,' <= 1');
      Readln;
      Exit;
   end;
   x_:=s1/k;
   Writeln('x_ = ',x_:5:8);
   Dx:=s2/(k-1)-s1*s1/k/(k-1);
   Writeln('Dx = ',Dx:5:8);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]

Последний раз редактировалось newerow1989; 18.10.2020 в 12:34.
newerow1989 вне форума Ответить с цитированием
Старый 18.10.2020, 13:07   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,647
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Тимуровцы исчезли вместе с пионерами.
Виноват, обшибся. Есть ещё добрые люди, что и старушку через дорогу переведут, и задачку за лентяя решат.
А то уже все двоечники всполошились: где Неверов, у нас уже семестр идёт, а он - всё никак

Последний раз редактировалось digitalis; 18.10.2020 в 13:11.
digitalis вне форума Ответить с цитированием
Старый 19.10.2020, 01:15   #5
suggestion
 
Регистрация: 30.09.2020
Сообщений: 7
По умолчанию

newerow1989, спасибо огромное
suggestion вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal: вычислить значение функции и найти максимальный элемент массива vitaliy-d94 Паскаль, Turbo Pascal, PascalABC.NET 4 30.04.2017 08:17
Pascal: вычислить значение функции и найти максимальный элемент массива vitaliy-d94 Фриланс 5 25.04.2017 09:15
Вычислить среднее геометрическое значение элементов заданного массива F (19), которые больше по абсолютной величине от числа А doker___ C++ Builder 2 18.06.2013 16:26
Pascal среднее значение квадрата элементов массива Inklet Помощь студентам 11 22.07.2011 10:24
Как вычислить среднее значение? parsn Microsoft Office Excel 2 31.01.2010 19:25