samo malkice -jedna komanda u kodu

[ atlas @ 04.01.2006. 22:49 ] @

Toyo ga je davno postavio.............

sta mu je ovo inttostr

Code:

function Nadji(b,d, prec : Integer):String;
var i, j: Integer;
  s:String;
begin
  s:= inttostr(b div d)+'.';
  i := 0;
  b := b mod d;
  while i <= prec do
    begin
      b := b*10;
      s := s+ inttostr(b div d);
      b := b mod d;
      inc(i);
    end;
  Nadji := S;
end;

Zoves sa Nadji(1,3,200)
Daje string 1/3 na 200 decimala.
ili Nadji(22,7,155)
ovo daje 22/7 na 155 decimala.

[ ntojzan @ 04.01.2006. 23:57 ] @

IntToStr je komanda koja omogucuje konverziju integer vrednosti u string. ;)

[ osmica @ 05.01.2006. 02:38 ] @

Pogledaj ovo dole moze da ti pomogne! :)
Pozzzz

[ osmica @ 05.01.2006. 02:46 ] @

e kad si skinuo predhodni fajl skini i ovaj i ubaci ga u folder ch11 od fajla sto si malo pre skinuo!
Pozzzz

_{[Ovu poruku je menjao osmica dana 05.01.2006. u 03:51 GMT+1]}

[ atlas @ 05.01.2006. 11:32 ] @

A u redu je to inttostr (convert integer to string) a komanda je str(int,str);
pa evo koda:::::

Code:

program na_decimale (input,output);
uses crt;
var b,d,dec:longint;
function Nadji(b,d,dec:Integer):String;
var i,j,e: Integer;
   s,inttostr,a:String;
begin
  str((b div d),inttostr);
  s:=inttostr+',';
  i := 0;
  b := b mod d;
  while i<dec do
    begin
      b:=b*10;
      e:=b div d;
      str(e,a);
      s:=s+a;
      b:=b mod d;
      inc(i);
    end;
  Nadji:=S; readln;
end;
begin
clrscr;
write('DJELJENIK= ');
read(b);writeln;
write('djelilac= ');
read(d); writeln;
write('na kolko decimala= ');
read(dec);writeln;
writeln('REZULTAT');
WRITELN;
writeln(b,'/',d,' na ',dec,' decimala je ');
writeln;
write(nadji(b,d,dec));
writeln;
writeln('                      "ENTER"'); READLN;
end.

Osmica hvala na knizi

[ osmica @ 05.01.2006. 13:03 ] @

Str ti je funkcija ili procedura,nemogu se setim,koja konvertuje bilo koji tip integera
u string.

Code:
str((b div d),inttostr);

ovde ti se (b div d) konvertuje u string i cuva promenjivi inttostr!
Pozzzzzzz

[ Nemanja Avramović @ 05.01.2006. 15:53 ] @

Zamena je StrToInt (barem u Delphiju)

[ ntojzan @ 05.01.2006. 23:55 ] @

Napomena: za StrToInt je potrebno ukljuciti i StrUtils u uses listi.

[ Nemanja Avramović @ 06.01.2006. 13:37 ] @

u delphiju to sve samo ide