U cemu je greska >?<

U cemu je greska >?< 13.11.2005. u 23:25 · pre 255 meseci #1

Treba pronaci zadnju cifru koja se razlikuje od nule u broju koji je jednak faktorijalu unetog broja.Da li je ovaj kod ispravam,ili se mozda mogao drugacije napisati.Nigde ne nailazim na gresku sem kod nekih brojeva (npr. 11600,9645,9956 ...).Evo koda.
npr za unet broj 10 treba da ispise 8:
1*2*3*4*5*6*7*8*9*10 = 3628800;
Unapred hvala ! ! ! Poz.

Code:

program proizvod;
var p:integer;
    n,i : word;
    r :byte;
begin
    readln(n);
    p:=1;
    for i := 1 to n do
       begin
        p:=p*i;
        r:=p mod 10;
        while (r=0)do begin
              p:=p div 10;
              r:=p mod 10;
        end;
        p :=r;
       end;
    if (p<0) then p:=-p;
    writeln(p);
    readln;
end.

Potpis

Ljubav je kad ja prdnem a njoj ne smrdi.

Re: U cemu je greska >?< 14.11.2005. u 15:11 · pre 255 meseci #2

"Nigde ne nailazim na gresku sem kod nekih brojeva"

!!!

Dobra fora

Elem, nikada nisam bio dobar u matematici, ali mislim da ne mozes da pamtis samo poslednju cifru. Na primer

12*15 = 180, a ako "zaboravis" jedinicu 2*15 = 30 pa ne dobijas istu poslednju ne-nula cifru.

Probaj da pamtis onoliko cifara koliko ih ima u mnoziocu, znaci ako je i>9 onda pamti 2 cifre, ako je i>99 pamti tri itd.

Re: U cemu je greska >?< 14.11.2005. u 19:01 · pre 255 meseci #3

"Nigde ne nailazim na gresku sem kod nekih brojeva"

Lapsus :)

Ok.Vidim u cemu je greska.Treba da diskutujem ukoliko je zadnja cifra nekog brojeva razlicita od nule) 5 ili ne .Hvala na pomoci.

Potpis

Ljubav je kad ja prdnem a njoj ne smrdi.

Re: U cemu je greska >?< 24.11.2005. u 14:38 · pre 254 meseca #4

O mislim da sam to ispravio , ali i dalje ne fukcionise ..

Code:

program proizvod;
var p:int64;
    n,irm,ir,r : int64;
    i:integer;
begin
repeat
    readln(n);
until ((n>=1)and(n<=10000));
    p:=1;
    for i := 1 to n do
       begin

        irm:=i mod 10;
        ir:=i;
        if(irm=0)then
          while (irm=0)do begin
                ir:=ir div 10;
                irm:=ir mod 10;
          end;

          p:=p*ir;
          r:=p mod 10;
        if(r=0)then
          while (r=0)do
          begin
                p:=p div 10;
                r:=p mod 10;
          end;

        if(((p mod 10)<>5)and(i+1<=n)and((i+1)mod 5<>0))then p :=r;
        writeln(p);
      end;
    writeln(p mod 10);

Potpis

Ljubav je kad ja prdnem a njoj ne smrdi.

Re: U cemu je greska >?< 24.11.2005. u 17:28 · pre 254 meseca #5

Danas sam dobre volje... 'aj' da se ne patis

Code:
var
  N: Integer;
  I: Integer;
  R: Longint;
begin
  Write('Unesi broj: ');
  ReadLn(N);
  R := 1;
  for I := 2 to N do
  begin
    R := R * I;
    while (R mod 10) = 0 do
      R := R div 10;
    R := R mod 10;
  end;
  WriteLn('Rezultat je: ', R);
  ReadLn;
end.

Potpis

Play Store

Re: U cemu je greska >?< 24.11.2005. u 19:28 · pre 254 meseca #6

Ali to je jos gore od onog sto sam ja napisao .Pogledaj gore.Sta ako se mnozi sa brojem koji se zavrsava peticom ?

Potpis

Ljubav je kad ja prdnem a njoj ne smrdi.

Re: U cemu je greska >?< 25.11.2005. u 10:18 · pre 254 meseca #7

Kakve veze ima sa kojim se brojem zavrsava broj kojim mnozis?
Hajde daj primer pa da vidimo da li ce program dobro uraditi... mozda stvarno i ima gresku, nisam ga proveravao.

-edit

Upravu si... ovaj program radi dobro samo za jednocifrene brojeve :)
Treba samo uvesti ogranicenje kod brisanja cifara da broj kome se oduzimaju cifre ne sme imati manje cifara od broja sa kojim se mnozi. Sad sam na poslu pa ne mogu da ispravim program... ali znas u cemu je fazon. Potrebno je jos samo to ogranicenje.

Potpis

Play Store

Re: U cemu je greska >?< 25.11.2005. u 13:57 · pre 254 meseca #8

Probacu .
U svakom slucaju hvala.Poz.

Potpis

Ljubav je kad ja prdnem a njoj ne smrdi.

Forum kao aplikacija na telefonu

Srodne teme