Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zasto u pascalu radi, a u delphiu ne radi??? :(

[es] :: Pascal / Delphi / Kylix :: Zasto u pascalu radi, a u delphiu ne radi??? :(

[ Pregleda: 3618 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Zasto u pascalu radi, a u delphiu ne radi??? :(21.06.2005. u 14:37 - pre 228 meseci
Evo, program koji obican broj pretvori u binarni....prilagodjen pascalu savrseno radi, al u delphi nece (vjerujem da je problem kod:for j:=i downto 1 do Edit4.Text:=binarni[j])...........

Code:

procedure TForm1.Button5Click(Sender: TObject);
var br:integer;
    i,ost,j:byte;
    binarni:string;
begin
br:=StrToInt(Edit3.Text);
i:=0;
ost:=0;
while br>0 do
begin
i:=i+1;
ost:=br mod 2;
if ost=0 then binarni:='0'
         else binarni:='1';
br:=br div 2;
for j:=i downto 1 do
begin
Edit4.Text:=binarni[j];
end;
end;
end;


 
Odgovor na temu

bondja

Član broj: 10286
Poruke: 167
*.gw.tehnicom.net.



+3 Profil

icon Re: Zasto u pascalu radi, a u delphiu ne radi??? :(21.06.2005. u 15:02 - pre 228 meseci
Code:

var br:integer;
    i,ost,j:byte;
    binarni:string;
begin
  br:=StrToInt(Edit3.Text);
  i:=0;
  ost:=0;
  while br>0 do
  begin
    i:=i+1;
    ost:=br mod 2;
    if ost=0 then binarni := '0' + binarni
             else binarni := '1' + binarni;
    br:=br div 2;
  end;

  Edit4.Text := binarni;
end;

Pozdrav!
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Zasto u pascalu radi, a u delphiu ne radi??? :(21.06.2005. u 15:15 - pre 228 meseci
E sad radi
Ajde mi sad jos samo objasni zasto je to trebalo napravit ??
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Zasto u pascalu radi, a u delphiu ne radi??? :(21.06.2005. u 15:53 - pre 228 meseci
A kako bi izgledao kod za pretvaranje obicnog u heksadekatski.....ali opet ne radi


Code:

procedure TForm1.Button6Click(Sender: TObject);
var broj:longint;
    ost,i,j:byte;
    heksa:string;
begin
broj:=StrToInt(Edit5.Text);
i:=0;
while broj>0 do
begin
i:=i+1;
ost:=broj mod 16;

if ost=1 then heksa:='1'+heksa;
if ost=2 then heksa:='2'+heksa;
if ost=3 then heksa:='3'+heksa;
if ost=4 then heksa:='4'+heksa;
if ost=5 then heksa:='5'+heksa;
if ost=6 then heksa:='6'+heksa;
if ost=7 then heksa:='7'+heksa;
if ost=8 then heksa:='8'+heksa;
if ost=9 then heksa:='9'+heksa;
if ost=10 then heksa:='A'+heksa;
if ost=11 then heksa:='B'+heksa;
if ost=12 then heksa:='C'+heksa;
if ost=13 then heksa:='D'+heksa;
if ost=14 then heksa:='E'+heksa;
if ost=15 then heksa:='F'+heksa;

end;

broj:=broj div 16;
Edit6.Text:=heksa;
end;
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



+1 Profil

icon Re: Zasto u pascalu radi, a u delphiu ne radi??? :(21.06.2005. u 16:00 - pre 228 meseci
Ubaci broj := broj div 16 u petlju (iznad end;)
 
Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949


+10 Profil

icon Re: Zasto u pascalu radi, a u delphiu ne radi??? :(21.06.2005. u 16:13 - pre 228 meseci
Zasto ne probas IntToHex funkciju!?
 
Odgovor na temu

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.



Profil

icon Re: Zasto u pascalu radi, a u delphiu ne radi??? :(21.06.2005. u 17:42 - pre 228 meseci
Zato jer nisam cuo za nju
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Zasto u pascalu radi, a u delphiu ne radi??? :(

[ Pregleda: 3618 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.