Jump to content
Sign in to follow this  
Altair222

Tízes számrendszerből kettesbe

Recommended Posts

Az lenne a feladatom, hogy Delphiben tízes számrendszerből kettesbe kellene alakítani a számot, amit edit mezőből olvasunk be. Teljesen elakadtam, ezért szeretném valaki segítségét kérni, hogy nem e tudná megírni.

Share this post


Link to post
Share on other sites

Azért ezt pillanatok alatt kiguglizhattad volna :)

 

http://www.programmersheaven.com/mb/pasprog/389747/389747/binary-to-decimal-and-decimal-to-binary-conversion/
http://www.greatis.com/delphicb/tips/lib/mathematics-dec2bin.html

Share this post


Link to post
Share on other sites

Pillanatok alatt ki is googleztam, csak nekünk function nélkül kell megoldani. Azért volt annyi sütnivalőm , hogy először ott kerestem

Share this post


Link to post
Share on other sites

Bocsi, de néma gyereknek anyja se érti a szavát :) Ha nem írod le milyen kritériumoknak kell megfelelnie, hogy is várod el, hogy valaki a jó megoldást adja meg neked? :P

 

Program Decimal_Binary;
Uses WinCrt;
Var
Dec,Deci: Integer;
Bin: String;
Begin
Write('Input Decimal Number: ');Readln(Dec);
Deci:=Dec;
Bin:='';
Repeat
If(Dec Mod 2 = 0) Then
 Bin:='0'+Bin
Else
 Bin:='1'+Bin;
Dec:=Dec Div 2;
Until Dec=0;
Writeln;
Writeln(Deci,' Decimal = ',Bin,' Binary');
End.

 

Nem tudok ugyan pascalban programozni, de ezt sikerült összeollóznom netről. Remélem megfelel.

Share this post


Link to post
Share on other sites

Bocs hogy kicsit mogorvább voltam a kelleténél, de nálunk jövő héten van az érettségi hét, úgyhogy most kicsit feszültebb vagyok :D .Köszönöm a programot, kipróbálom

Share this post


Link to post
Share on other sites

IntToHex(StrToInt(Edit1.text),1)) vagy
Format('%x', [strToInt(Edit1.text)])

 

StrToInt = string->Integer

IntToHex = integer->Hexa string

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Bejelentkezés

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×