Tízes számrendszerből kettesbe

[Altair222]

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.

[tiger105]

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

[Altair222]

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

[tiger105]

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?

 

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.

[Altair222]

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 .Köszönöm a programot, kipróbálom

[chiefa]

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

 

StrToInt = string->Integer

IntToHex = integer->Hexa string