написать программу

[profi15]

написать программу вычисления произведения n чисел т.е 1*2*3*...*n причем, если n=0 или n=1, то произведение равно 1. число множителей не должно превышать 33

[fbus]

если еще актуально стучи в аську

[hon]

Наработки и проблему в студию!

[profi15]

begin
if n=15 then
begin
a:=7200*56*99*12*13*14*15;
end
else
begin
if n=16 then
begin
a:=7200*56*99*12*13*14*15*16;
end
else
begin
if n=17 then
begin
a:=7200*56*99*12*13*14*15*16*17;
end
else
begin
if n=18 then
begin
a:=7200*56*99*12*13*14*15*16*17*18;
end
else
begin
if n=19 then
begin
a:=7200*56*99*12*13*14*15*16*17*18*19;
end
else
begin
if n=20 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19;
end
else
begin
if n=21 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21;
end
else
begin
if n=22 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22;
end
else
begin
if n=23 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23;
end
else
begin
if n=24 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24;
end
else
begin
if n=25 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25;
end
else
begin
if n=26 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26;
end
else
begin
if n=27 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27;
end
else
begin
if n=28 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28;
end
else
begin
if n=29 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28*29;
end
else
begin
if n=30 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28*29*30;
end
else
begin
if n=31 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28*29*30*31;
end
else
begin
if n=32 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28*29*30*31*32;
end
else
begin
if n=33 then
begin
a:=144000*56*99*12*13*14*15*16*17*18*19*21*22*23*24*25*26*27*28*29*30*31*32*33;
end
else
begin
a:=0
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.

Проблема в длине кода и Паскаль выдает ошибку Переполнение а арифметической операции

P.S Это вторая половина кода

[Аватар]

Ай-да профи. Не знает что такое факториал и команды цикла на паскале. Да и 33! на паскале так просто не высчитать, нужно программировать арифметику с длинными числами

[Stilet]

Красивая елочка )
А может всетки циклом стоит?

[PavelDD]

Сообщение от Stilet

Красивая елочка )
А может всетки циклом стоит?

Только хотел написать)))

[Poma][a]

Может в юмор забрать?

var
	f : Int64;
	k, n : Byte;
begin
	ReadLn (n);
	k := 2;
	f := 1;
	while k <= n do begin
		f := f * k;
		Inc (k)
	end;
	WriteLn (f)
end.

Хорошо папочка со своими задачками для начинающих на рабочем столе..

И как уже заметил Аватар, для 33 Вам надо реализовывать длинную арифметику.. Выше представленный код работает только до 21 числа.

[eoln]

Вот это код
Проффи, держи найденную где-то когда-то на просторах сети длинную арифметику, подшлифуешь самостоятельно

const
 BigNumber = 100;
type
  TBig = array [1..BigNumber] of integer;
var
  m: tbig;

procedure F(var F: TBig; Value: Integer);
var
  i, k, q, z, j: integer;
begin
  k := 0;
  for i := 1 to BigNumber - 1 do F[i] := 0;
  F[BigNumber] := 1;
  for i := 2 to Value do begin
    j := BigNumber;
    while j - 1 > 0 do begin
      q := F[j]*i;
      z := q mod 10;
      F[j] := z + k;
      k := q div 10;
      k := k + F[j] div 10;
      F[j] := F[j] mod 10;
      j := j - 1;
    end;
  end;
end;

var 
  i:integer;
 begin
   f(m, 33);
   for i := 1 to BigNumber do write(m[i]);
   readln
 end.

[Arigato]

Сообщение от profi15

Проблема в длине кода

Профессионалов длинна кода не должна останавливать