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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.10.2017, 11:57   #1
-Pride
Новичок
Джуниор
 
Регистрация: 02.10.2017
Сообщений: 4
По умолчанию Среднее значение однозначных чисел. Задание в Паскале

Среднее значение однозначных чисел
-Pride вне форума Ответить с цитированием
Старый 02.10.2017, 12:15   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ОМГ.

Код:
var i, sum : integer;
begin
  sum := 0;
  for i:=1 to 9 do sum := sum + i;
  WriteLn(sum/9)
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 02.10.2017, 12:22   #3
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

А если слово прогрессия вспомнить...
p51x на форуме Ответить с цитированием
Старый 02.10.2017, 12:27   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

как бы и ноль однозначное число ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 02.10.2017, 13:24   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

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


Цитата:
Сообщение от p51x Посмотреть сообщение
А если слово прогрессия вспомнить...
можно и вспомнить:
16f_1.png

и тогда, всё ещё интересней. чтобы найти среднее, нужно сумму разделить на N
поэтому, задача вырождается в "программу":
Код:
begin
  WriteLn((1+9)/2) {если мы считаем, что ряд однозначных чисел начинается с единицы}
end.
Код:
begin
  WriteLn((0+9)/2) {если мы считаем, что ряд однозначных чисел начинается с нуля}
end.



только я думаю, что задача состоит именно в умении организовать цикл и в цикле что-то посчитать (сумму, произведение, среднее и т.д.).
поэтому исходный вариант с циклом TC подойдёт больше, чем WriteLn(5)
Serge_Bliznykov вне форума Ответить с цитированием
Старый 02.10.2017, 14:27   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
Если верить гуглу, то в начальной школе, когда вводят понятие разрядности числа (и там же единицы, десятки, сотни и т.д.) утверждают, что ноль - это такое особое число, которое не относится к натуральным и поэтому не является однозначным.
та это больше и в основном к ТС - пусть он разбирается какое число ноль - натуральное, целое или какое-то особое, а может мнимое ))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 02.10.2017, 14:41   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Аватар, согласен.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ввести 10 чисел. Подсчитать сколько среди них однозначных чисел, двухзначных чисел, трехзначных чисел. Olzhakesh Общие вопросы по Java, Java SE, Kotlin 3 14.12.2014 20:27
Среднее значение всех найденных чисел в столбце, если оно, к примеру меньше 100, но больше 20 Gamer-747 Microsoft Office Excel 2 29.09.2014 12:30
Задача на VBA. Найти среднее значение отрицательных чисел. PeterFox Microsoft Office Excel 7 18.01.2012 16:07
Delphi-console-поиск однозначных чисел в файле trigger Помощь студентам 1 01.02.2011 19:12
вычислить среднее гармоническое значение элементов вектора чисел с плав точкой с пом алгоритма accumulate -GT- Общие вопросы C/C++ 2 28.11.2009 17:19