Поиск факториала числа 0<N<101

[SGU_ART]

эх..если мог бы то не просил
или можете написать строчки как избавиться от ведущих нулей?
вот это
for i:=1 to 101 do begin {èçáàâëÿåìñÿ îò âåäóùèõ íóëåé}
if a[i]=0 then
inc(q)
else break;
end;
как можно изменить?это типо нули отбрасывает.

[rishikesh]

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

при поиске факториала 101 выводит 9.4E+0159

на сколько я помню, что бы вывело все нужно в этом рядке:

Writeln('Result:',fact(n):8:0);

задать нужное количество цифр до и после коммы, т.е. например:

Writeln('Result:',fact(n):123:123);

[ROMA2PVT]

Если тебе нужны факториалы больших чисел, то вычислять их значение можно только в строки, либо в массивы чисел.Таких типов численных переменных,которые могут вместить эти большие значения нет.

[LeBron]

Ловите. Что надо - переделывайте и доделывайте.

var input,output:text; a,b,i,ost,t,q,w,e,y:longint;ar:array[1..10000] of longint;
begin
assign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);
readln(input,ar[1]);q:=1;  e:=ar[1]; y:=ar[1];
for i:=1 to y-1 do begin ost:=0;dec(e);for w:=1 to q do begin t:=ost;ost:=(ar[w]*e+ost) div 10000;ar[w]:=(ar[w]*e+t) mod 10000;end;
if ost>0 then begin inc(q);ar[q]:=ost;end; end;      if y=0 then write(output,1) else begin
write(output,ar[q]);
for i:=q-1 downto 1 do begin if ar[i]<10 then write(output,'0');if ar[i]<100 then write(output,'0');
if ar[i]<1000 then write(output,'0');write(output,ar[i]);
end;end;
close(input);close(output);
end.

[SGU_ART]

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

Если тебе нужны факториалы больших чисел, то вычислять их значение можно только в строки, либо в массивы чисел.Таких типов численных переменных,которые могут вместить эти большие значения нет.

у меня есть сделанная массивом, надо выкинуть нули.

[loloverg]

На сколько я помню, что бы увидеть нужное количество символов нужно в этой строке:

Writeln('Result:',fact(n):8:0);

вместо 8 и 0 поставить нужное число т.е. количество символов до коммы и после (щяс в данном случае у тебя 8 до коммы, и 0-после).

[LeBron]

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

На сколько я помню, что бы увидеть нужное количество символов нужно в этой строке:

Writeln('Result:',fact(n):8:0);

вместо 8 и 0 поставить нужное число т.е. количество символов до коммы и после (щяс в данном случае у тебя 8 до коммы, и 0-после).

Такой подход не поможет, так как вычисления не достаточно точны. Или используйте тот подход, который в моем коде, или то же самое сделайте через строку.

[SGU_ART]

или напишите отрывок проги чтобы возводить 2 в степень n, где 1<n<101

[sabbathist]

Вся хитрость длинной арифметики в том, чтобы в массиве хранить числа в обратном порядке. Чтобы при выводе не было ведущих нулей, надо идти от конца массива к началу до первого ненулевого эл-та и уже потом начиная с него выводить значение.

[LeBron]

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

или напишите отрывок проги чтобы возводить 2 в степень n, где 1<n<101

отрывок так отрывок...

s[1]:=2;l:=1;
for i:=1 to n-1 do begin h:=0;for q:=1 to l-1 do begin s[q]:=s[q]*2+h;h:=0;
if s[q]>9 then begin h:=1;s[q]:=s[q] mod 10;end;
                                 end;   
s[l]:=s[l]*2+h;
if s[l]>9 then begin s[l]:=s[l] mod 10;inc(l);s[l]:=1;end;
end;