Задача про нахождение суммы ряда чисел _без_ циклов

«func(x) = bool» - это boolean expression condition или нет? Таки да.

А if как раз и введён чтобы писать «if <boolean expression condition> then».

Лучше не использовать atoi. Про это написано в ATOI(3):

BUGS
       errno  is  not  set  on  error so there is no way to distinguish between 0 as an error and as the converted value.  No checks for overflow or underflow are done.
       Only base-10 input can be converted.  It is recommended to instead use the strtol() and strtoul() family of functions in new programs.

Не всем это нужно.

Здравствуйте, дорогие любители математики и программирования!

Здравствуйте!

Задача: написать программу, которая принимает на вход целые числа A и B и выводит сумму ряда целых чисел от A до B включительно.

Есть правило Гаусса.

При этом перебирать числа в цикле нельзя. Никаких for, while, until, repeat,… и т.д.

Если кто не вспомнит Гаусса, то рекурсия или sum(range(a,b+1)). Кроме того, в классическом Basic циклы лепили руками из одних только IF и GOTO.

Моё решение этой задачи здесь

Скачай, распакуй, открой. Нет, не хочу.

Тем не менее, atoi() вполне работает. Как и gets().

Ты фундаментально не можешь понять, что именно ты делаешь не так, или это тонкий троллинг?

Второй вопрос: а учиться ты принципиально считаешь плохой идеей?

Да знаю я знаю, что хорошим тоном считается указывать юзеру на несоответствие типов вводимых им данных. Однако, ошибки юзера возможны не только в типах данных, но и в самих вводимых им данных. И кто будет проверять правильно ли юзер ввёл, например, 5.3, когда на самом деле он должен был ввести, например, 12.13? В любом случае самому юзеру нужно следить за тем, что он вводит. Иначе он так и будет получать не то, что ему нужно.

Поэтому, я считаю, падать с ошибкой нужно только в очевидных случаях. Когда, например, юзер должен был ввести номер месяца (1-12), а вместо этого он ввёл, например, 45. И такие проверки у меня всегда были. В остальных случаях понять ошибся юзер или нет, я считаю, невозможно (кроме несоответствия типов данных, да).

if (True == True) != False:
   gremlin_the_red.say_something_obvious(source=Wirth)

А если серьезно, то дело говоришь. Даже не могу представить, где такие проверки могут пригодиться, когда есть if и if not.

s := trunc((b - a + 1) * (a + b) / 2);

(a + b) / 2

Прям как в эпичном баге в Java JDK. Детали, например, тут.

У saahriktu тут нет бага. Переполнение произойдёт намного раньше.

Одно то, что он переходит к double, значит что диапазон представимых значений сужается до по модулю не превосходящих 2^53 - 1 вместо 2^64-1

Плюс умножение.

(a + b) / 2 не релевантно к этому коду, так как не изменит корректность ни для каких значений как бы мы это не посчитали.

А взял бы весь числитель в скобки и уже мог бы избежать такого косяка.

(a + b) / 2

Есть гарантия, что деление произойдёт после умножения?

Он оперирует целыми числами и внезапно в результате промежуточного действия возникает число x.5.

У него ещё и ненужный вообще trunc используется.

Я тут, кстати, тест набросал. Ближе к максимальному значению Int64 погрешность становится равна единице.

program int64fltdivtest;
var
   a, b :  Int64;
begin
   a := trunc($7FFFFFFFFFFFFFFF / 2);
   b := $7FFFFFFFFFFFFFFF shr 1;
   writeln(a, sLineBreak, b);
end.

> ./int64fltdivtest
4611686018427387904
4611686018427387903
>

Задача про нахождение суммы ряда чисел _без_ циклов (комментарий)

Я тут тоже тест набросал.

uses SysUtils;
var
  a, b, s: Int64;
begin
  a:=StrToInt64(ParamStr(1));
  b:=StrToInt64(ParamStr(2));
  s:=trunc((b-a+1)*(a+b)/2);
  Writeln('S:', s);
end.

$ k='1' ; for i in `seq 1 20` ; do k="${k}0"; ./test 1 $k ; done
S:55
S:5050
S:500500
S:50005000
S:5000050000
S:500000500000
S:50000005000000
S:5000000050000000
S:500000000500000000
An unhandled exception occurred at $00000000004002D7:
EIntOverflow: Arithmetic overflow
  $00000000004002D7

Тебе явно нужны проверки для ограничения вводимых чисел

Хотел написать, что лучше бы ты полезным чем занялся и помогал писать или патчить doublecommander. Но, пожалуй, лучше продолжай заниматься тем же чем сейчас.

Нужно использовать TryStrToInt64() и проверять не возвращает ли она False. А то так можно и ввести число, которое не влезет в Int64.

А при числах до 9223372036854774784 ($7FFFFFFFFFFFFC00) погрешность равна нулю.

Нет. Погрешность начнётся с 2^53

/ возвращает real тип. Этот тип является double (8 байт) в современном fpc.

double может без потери точности представить целые числа лишь до 2^53.

Вот тебе пример, лишь посчитаем сумму 100 чисел от 2^53:

(* program that sums integer values from A to B without loops
   2020 (c) saahriktu
   Under GNU GPLv3 *)
program sumatob;
uses sysutils;
var
   a, b, s, s2, s3, i : Int64;
begin
   a := 9007199254740992; // 2^53
   b := a + 100;

   s3 := 0;
   for i := a to b do begin
     inc(s3, i);
   end;

   s := trunc((b - a + 1) * (a + b) / 2);

   s2 := (b - a + 1) * (a + b) div 2;

   writeln(s);
   writeln(s2);
   writeln(s3);
end.

909727124728845184
909727124728845242
909727124728845242

Оперировать double вместо нормальных целых чисел это дичь. Но именно так в JS мире, где есть только double (и с недавних пор BigInteger, но в palemoon например его ещё нет).

Если ты не пишешь Web SPA, то используй настоящие целочисленные типы. double вместо int64 это дичь.

https://developer.mozilla.org/ru/docs/Web/JavaScript/Reference/Global_Objects/Number/MAX_SAFE_INTEGER

Есть гарантия, что деление произойдёт после умножения?

Да. https://www.freepascal.org/docs-html/ref/refch12.html

Хотя, да, всё-таки погрешность может вылазить. Да, целочисленное деление надёжнее.

Ты конечно извини, но это еще в школе проходят.

Программа без циклов получается слишком большая, чтобы её тут запостить. Поэтому вот программа (с циклами), которая создаёт нужную программу (без циклов).

print('#include <stdlib.h>')
print('#include <stdio.h>')
print('int main(int argc, char *argv[]) {')
print('  if (argc <= 2) { printf("argc\\n"); exit(2); }')
print('  int a, b;')
print('  unsigned long s = 0;')
print('  sscanf(argv[1], "%d", &a);')
print('  sscanf(argv[2], "%d", &b);')
for i in range(-1_000_000, 1_000_001):
    print('  if (a <= {i} && {i} <= b) s += {i};'.format(i=i))
print('  printf("s = %ld\\n", s);')
print('  return 0;')
print('}')

В качестве компилятора рекомендую брать tcc.

Теперь мы знаем в каком классе он учится. Обучение в школе многое бы объяснило и к нему можно было бы отнестись со снисхождением.

С другой стороны, я видел четверокурсников технического вуза, которые не знали,что такое цикл в программировании. А им на первом курсе как минимум один язык преподавали.

ТС хотя бы это знает и, авось, в какую-то сторону да движется.

Мащинлёрнинг на джаваскрипте, да!

(на блокчейне еще)

Можно подумать, что вообще все люди помнят вообще все формулы школьной программы, особенно к 40-ка или 50-ти годам.

И, вообще, в математике редко когда бывает одно единственное решение.

Так я формулу и не помню, просто знаю, что такая есть.

Ну и вот. Никогда не помешает вспомнить.

Вообще, к любому человеку, который берет на себя смелость начать игру «давайте подумаем», предъявляется как минимум 2 требования:

• задача должна быть чем-то новой и чем-то интересной

• афтар должен предоставить свое авторское решение, которое было бы интересным

Ты завалил обе задачи, потому что взял штуку даже не из Перельмана, Мартина или Маковецкого. Не говоря уже про Рамануджана, Харди или Литлвуда. Даже не эманации Смольякова, Эдуарда Римовича! Нет, учебник 9го класса, раздел «это интересно, посоны, что Гаусс в 6 лет придумал!». И решение ты предоставил не только тривиальное, из учебника, но и с ошибками.

Не надо так.

От.

Б**...

ещё 3 исправления и будет компилироваться :)

В моем чертоге разума конпилируеца.

Рамануджана

Теперь человек будет неделю думать, как так получается, что складывая положительные числа, мы получим -1/12. А потом, того и гляди, вскроется.

Не надо так.

А два на два тебе не умножить?

Поздравляю, ты только что создал (силой мысли, которая, в данном случае, материальна) проект https://saahriktu.org/downloads/twoplustwo.tar.xz

saahriktu - Рамануджан наоборот.

На ЛОРе бывают самые разные викторины.

Насколько я помню, одно время выкладывали фотографии с вопросом «А что это такое?». И все вспоминали что же это такое.

А я считаю, что нет принципиальной разницы что вспоминать, какие-то штуки с фотографий или формулы из математики. При этом, напоминаю, я не говорил вспоминать конкретно формулы. Может быть, здесь есть люди с таким уровнем знания математики, что найдут и другие способы решения задачи.

Но, Шома! Критикуя - предлагай. Как надо-то?

Так вот, пилю прохладную.

Упомянутый выше Эдуард Римович в свободное от ловли инопланетян время преподавал нам спецглавы высшей математики (методист он ниочень, ученый - очень, охотник за приведениями и маг - ну уровень примерно 42й с капом в 50 по моей шаманской оценке). Нашлись 2 студента, которые в глаза называли его шизофреником (в отличие от меня, тупого отличника, который ничего не понимал, но ходил на все его лекции просто чтобы он знал мое щачло уверенно и нарисовал бы «отл» в зачетке просто от того, что я не прогорал на его лекциях, а слушал на сложных щщах. Это сработало, мне стыдно, но я овлекся). Римович обратился к этим студентам с челледжем: «вы решаете мне задачку, я вам ставлю ОТЛ за 2 семестра и мы больше не встречаемся». Он, потирая руки, дал им задачу из серии «1000 задач не решенных за тысячелетие», а они через 2 недели принесли ему решение, внимание, на Macromedia Flash. Двоечники, чо.

Но он человек честный, они опубликовались в каком-то большом американском журнале, получили респекты, теперь этот список из 999 задач.

из математики

арифметики

мне стыдно, но я овлекся

Овлёкситься — это стыднее, чем подзюбить?

Справедливости ради, ВТФ относится к арифметике.

Ну, вам виднее. У меня дисграфия, в домике.

принесли ему решение

Что за задача то?

Честно говоря, уровень детсадовский. Такое годится разве что для капчи

Но для кого придумали всякие aspell?