3 zadatka

[ atlas @ 14.04.2005. 23:22 ] @

1) Program za pretvaranje iz dekatnog u binarni zapis brojeva??
-------------------------------------------------------------------
2**) Napisati program koji ce za dato n 0<n<32767 odrediti sa koliko nula se zavrsava n! (n faktorijela)
primjer n=30 000 broj nula je: 7498
-------------------------------------------------------------
3) *** Zadani realni broj r 0<r<1 ispisati kao najpriblizniji razlomak u obliku br/naz ali da nazivnik ima najvise 6 znamenki.

primjer : 0.772727273 2 17/22
-------------------------------------------------------------

_{[Ovu poruku je menjao atlas dana 15.04.2005. u 13:19 GMT+1]}

[ Toyo @ 15.04.2005. 00:02 ] @

1.Zadatak je resen pre 2 dana
4.To je takodje reseno (C/C++ forum), ako ti treba u C-u daj PP.
5. Neka matematika. Pretrazi, imas program za racunanje preciznosti od 20000-40000 cifara (ovaj forum). Ako ti treba kod, poslacu ti.

atlas ti nekog zaj.bavas ili ti to samo tako doslo?

[ IgLo @ 15.04.2005. 13:16 ] @

Evo od mene dva laksa (mrzi me one ostale da radim)

Zadatak broj 3:

Code:

Var
   n,
   X : LongInt;

   S : String;
Begin
     S := '';
     Write ('Unesite decimalni broj: '); ReadLn (n);
     For X := 31 DownTo  0 Do
         If  (n And (1 Shl x)) > 0 Then
             S := S + '1'
         Else
             S := S + '0';
     While S [1] = '0' Do
            Delete (s, 1, 1);
     WriteLn ('Broj u binarnom zapisu je: ', s);
End.

Zadatak broj 2:

Code:

Var
   Niz : Array [1..4] Of Integer;
   X,
   Y,
   Temp : Integer;

Begin
     For X := 1 To 4 Do Begin
         Write ('Unesite ', X, '. clan niza: ');
         ReadLn (Niz [x]);
     End;

     Write ('Koji clan niza zelite da izracunate? '); ReadLn (y);

     If Y < 5 Then
        WriteLn (y, '. clan niza je ', Niz [y])
     Else Begin
          For X := 5 To Y Do Begin
              Temp := (Niz [1] + Niz [2] + Niz [3] + Niz [4]) Mod 10;
              Niz [1] := Niz [2];
              Niz [2] := Niz [3];
              Niz [3] := Niz [4];
              Niz [4] := Temp;
          End;
          WriteLn (y, '. clan niza je ', Niz [4])
     End;

End.

Znam ta onaj 3. nisam bas uradio u takmicarskom fazonu, ali je ispravno i radi

[ IgLo @ 15.04.2005. 13:17 ] @

Atlas, nemoj da radis tako drasticne promene u poruci posto postovi posle izmenjene poruke onda nemaju smisla

Znaci, po ovom sto si izmenio, zadatak 3 je sada zadatak 1, a zadatak 2 je nestao bez objasnjenja.

[ broker @ 15.04.2005. 16:09 ] @

A jel vi to pokusavate da dokazete kako nesto znate pa raditeovde domace zadatke?

Ima ja jedan zahtev za neku plaikaciju za knjigovodsto, kad ste toliko zaludni a volite da radite dzabe...

:)