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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.01.2020, 23:01   #1
Camelot_2012
Пользователь
 
Регистрация: 19.12.2011
Сообщений: 90
По умолчанию Массив из средних чисел

Добрый вечер. Подскажите, дан массив из N чисел, в начале вводим 3 числа из этого массива, далее массив строится из средних значений предыдущих. Как это сделать? У меня получилось так
Код:
var
  a: array[1..40] of integer; 
  i: integer;
  s: real;
  sum: integer;
begin
a[1]:=1;
a[2]:=2;
a[3]:=3;
sum := 0;
for i:=1 to 40 do sum := sum + a[i];
s:= sum/40;
writeln('Массив:');
for i := 1 to 40 do
write(a[i]:2);
end.

Последний раз редактировалось Camelot_2012; 26.01.2020 в 23:04.
Camelot_2012 вне форума Ответить с цитированием
Старый 27.01.2020, 10:44   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Ничего не понял. Поясни на примере.
Средние значения будут real - как их приводить к integer - усечением или округлением ? Среднее опять же из 3 - или со всего накапливающегося массива предыдущих ? Про сумму вообще ничего не говориться. Это не от той стенки гвоздь из сети сдут совсем другой пример - чтоб не говорили, что не было попыток.

Последний раз редактировалось digitalis; 27.01.2020 в 11:16.
digitalis вне форума Ответить с цитированием
Старый 27.01.2020, 20:32   #3
Camelot_2012
Пользователь
 
Регистрация: 19.12.2011
Сообщений: 90
По умолчанию

Цитата:
Сообщение от digitalis Посмотреть сообщение
Ничего не понял. Поясни на примере.
Средние значения будут real - как их приводить к integer - усечением или округлением ? Среднее опять же из 3 - или со всего накапливающегося массива предыдущих ? Про сумму вообще ничего не говориться. Это не от той стенки гвоздь из сети сдут совсем другой пример - чтоб не говорили, что не было попыток.
Чтоб найти среднее значение нужно считать сумму предыдущих чисел
Camelot_2012 вне форума Ответить с цитированием
Старый 27.01.2020, 22:34   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Молодец, партизан! По существу не ответил ничего - сумма 3 предыдущих - или всех. Попробуем так и так.
Код:
program mas_sred;
var
  a: array[1..40] of integer; 
  i,j,k: integer;
{  s: real; 
  sum: integer; }
begin
  read (a[1],a[2],a[3]) ;
  readln ;

{  sum := a[1]+a[2]+a[3];
  for i:=4 to 40 do
  begin
    a[i] := Round(sum/(i-1)) ;    
    sum := sum + a[i]
  end ; }
  for i:=4 to 40 do a[i] := Round((a[i-1]+a[i-2]+a[i-3])/3.0) ;

  writeln('Array:');
  for i := 1 to 4 do
    begin
      k := (i-1) * 10 ; 
      for j := 1 to 10 do
          write(a[j+k]:4);
      writeln
    end ;
end.
То, что закомментировано скобками - это сумма всех. Результат предсказуем - с 4-го все одинаковы. БСК (Бред сивой кобылы) .
Попробуем суммировать только 3 предыдущих (строка красная). Массив опять вырождается, но чуть медленнее. Тоже БСК.

А где сказано, что массив целочисленный? Впрочем, это не спасает, real тоже всё равно вырождается. БСК ^ 2
Изображения
Тип файла: jpg 102030.JPG (20.9 Кб, 15 просмотров)

Последний раз редактировалось digitalis; 27.01.2020 в 22:52.
digitalis вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сформировать массив из средних арифметических элементов массива A с номерами от 1 до K - C++ SenkShow C++ Builder 4 04.11.2015 09:25
Java: Дан двумерный массив чисел А размером 6х6 и одномерный массив Х из 6-ти чисел. Заменить первые три строки массива A vikysha55 Помощь студентам 1 16.04.2014 10:50
Задан массив целых чисел, который может содержать повторяющиеся члены. Вычислить сколько чисел входят в массив более чем по одному nubiknovo Паскаль, Turbo Pascal, PascalABC.NET 6 20.11.2013 00:50
Дан массив из N целых чисел. Получить из него массив чисел по модулю меньших 10 и отсортировать его(язык си++) mitja-zakelidis Помощь студентам 2 15.03.2012 03:10
Генрация случайных чисел методом средних квадратов Дырдин Общие вопросы C/C++ 5 17.04.2010 16:10