Тема: Delphi

1.Обчислити суму перших n членів послідовності: у=10+100/1*2+1000/1*2*3+10000/1*2*3*4+....

2

Re: Delphi

Із чим саме у вас виникли труднощі? Може компілятор видає якісь помилки?

Подякували: koala1

3

Re: Delphi

Може компілятор видає якісь помилки?

Може n занадто велике дано вчителем?
Так то можна було б

var s,fac,decs:Extended; n:LongInt;
begin decs:=10;
for n=1 to 100500 do begin
  s:=s+decs/fac; decs:=decs*10; fac:=fac*n;
end;
writeln(s);
end.

Інкаше довга арифметика.

4 Востаннє редагувалося raxp (22.12.2015 21:27:20)

Re: Delphi

  • Арифметика довгих чисел. Частина 1. - "ПРОграммист", 2011, №12, с.12

  • Арифметика довгих чисел. Частина 2. - "ПРОграммист", 2011, №13, с.38

(src додатків до публікації безпосередньо в журналі, кнопа скріпки)

Білоруський журнал «Радиолюбитель»
Lead Radar systems engineer & Software developer of industrial automation
Мої розробки та відеоблог

5

Re: Delphi

це явно якась прогресія, і скоріш за все можна вивести просту формулу, котра відразу видає потрібний результат.
Думав, що вольфрам альфа покаже мені таку формулу, але не показує =(
http://puu.sh/m5a0O/91382d46c6.png

Говоріть українською! Живіть українською! Відчувайте українською!