Kilences számrendszerben szeretnék felírni bármilyen számot, Pascal-ban miként kell ezt megoldani?

Mutatsz egy példát, pl. a 7538 mennyi kilences számrendszerben?

Valamint a 23?

Miként kell ezt csinálni?

Itt egy megoldás kettes számrendszerre, miként lehetne átírni, hogy kilences számrendszerre működjön?

Uses Crt;

Var

Dec,Deci : Integer;

Bin : String;

Ul : Char;

Begin

Repeat

Clrscr;

Writeln('Decimal to Binary Convertion Program');

Writeln('======================================');

Writeln;

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');

Writeln;

Write('Try Again? [Y/N]: ');Readln(Ul);

Ul:=Upcase(Ul);

Until (Ul<>'Y');

End.

SimkoL programja egy másik feladatból sokkal jobb mint az általam bemásolt, miként írhatom át ezt kilences számrendszerbe?

program project1;

uses strutils;

var

d : longint;

eredmeny : string;

begin

Write('Kerem az atalakitando szamot: ');

ReadLn(d);

eredmeny := '';

repeat

if d mod 2 = 0 then eredmeny := eredmeny + '0' else eredmeny := eredmeny + '1';

d := d div 2;

until d = 0;

WriteLn(ReverseString(eredmeny));

ReadLn;

end.

Megpróbáltam átalakítani hogy kilences számrendszerbe alakítsa a számokat.

program project1;

uses sysutils,strutils;

var

d, maradek : longint;

eredmeny : string;

begin

Write('Kerem az atalakitando szamot: ');

ReadLn(d);

eredmeny := '';

repeat

maradek := d mod 9;

if maradek > 0 then eredmeny := eredmeny + inttostr(maradek) else eredmeny := eredmeny + '0';

d := d div 2;

until d = 0;

WriteLn(ReverseString(eredmeny));

ReadLn;

end.

Hopsz, egy "div 2" bentmaradt a kódban :-)

#7: összekeversz azokkal, akik nem gondolkodnak, jellemzőjük, hogy egyetlen sort sem írnak le, csak kérik a megoldást, a "házifeladatuk megírását", szerintem nem kellene hozzájuk hasonlítani.