Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
SKim961
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 7
1

Найти в массиве(одномерном), среднее арифметическое которых наиболее близко к заданному Х

10.01.2012, 13:10. Просмотров 431. Ответов 3
Метки нет (Все метки)

Найти в массиве(одномерном), среднее арифметическое которых наиболее близко к заданному Х.

есть пример задачи на QBasic.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
Randomize
input "x="; x
input "n="; n
  Dim a(n)
  for i = 1 to n
  a(i) = int(200*rnd(-time)) - 100
  print a(i);
  next i
  M = ABS((a(1) + a(1)) / 2 -x)
 a=1
 d=1
  for i = 1 to n 
   for j= i to n
   if M < ABS((a(j) + a(i)) / 2 -x) then M = ABS((a(j) + a(i)) / 2 -x): a = j: d=i
   next j
  next i
 Print ("a= "); a
 Print ("d= "); d
Помогите кто чем может)))) заранее спасибо.

Добавлено через 21 минуту
пропустил два слова... ))

Найти в массиве(одномерном) два члена, среднее арифметическое которых наиболее близко к заданному Х.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2012, 13:10
Ответы с готовыми решениями:

В массиве найти два элемента, среднее арифметическое которых ближе всего к X
Даны действительное число X и массив A. В массиве найти два члена среднее...

В массиве найти два члена, среднее арифметическое которых ближе всего к x
Дано действительное число x и массив A. В массиве найти два члена, среднее...

Массив. Найти два числа, среднее арифметическое которых ближе к заданному числу "a"
Ввести действительные числа.b1,b2,...bn.В последовательности этих чисел найти...

В массиве найти два члена, среднее арифметическое которых ближе всего к х
Составить программу на языке Pascal.Даны действительное число х и массив А . В...

Дано действительное число x и массив А [n]. В массиве найти два члена, среднее арифметическое которых ближе всего к x
Помогите написать программку через array Дано действительное число x и...

3
unick12345
1751 / 1090 / 168
Регистрация: 27.03.2009
Сообщений: 4,142
10.01.2012, 13:14 2
переделать ее на паскаль?
0
SKim961
0 / 0 / 0
Регистрация: 10.01.2012
Сообщений: 7
10.01.2012, 13:15  [ТС] 3
да... не дружу с этим языком..(
0
tantemka
Амурчанка
131 / 131 / 44
Регистрация: 07.11.2011
Сообщений: 279
10.01.2012, 14:39 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
    arr: array [1..100] of real;
    i,n, d, j: integer;
    x, M: real;
begin
  write ('vvedite kolichestvo elementov n ');
  readln(n);
  randomize;
  for i:=1 to n do
    begin
     arr[i]:= random (100);
     write (arr[i]:10:2);
    end;
  writeln;
  write ('vvedite X= ');
  readln(x);
  M:= abs((arr[1]+arr[1])/2 - x);
  for i:= 1 to n do
    for j:=1 to n do
        if M < abs((arr[i]+arr[j])/2 - x)
            then
                begin
                  M:= abs((arr[i]+arr[j])/2 - x);
                  d:= i;
                end;
  writeln ('d= ', d);
  readln;
end.
Практически дословный перевод.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2012, 14:39

В одномерном массиве определить среднее арифметическое четных чисел.
В одномерном массиве А опрелелить:1)среднее арифметическое четных чисел. 2)из...

В массиве найти два члена среднеарифметическое которых близко к знач. Х.
Помогите решить задачку с массивом пожалуйста :) Даны вещественное число X и...

Массив: Вычислить среднее арифметическое нечетных элементов в одномерном массиве
Составить программу, которая вычисляет среднее арифметическое нечетных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru