{Programm zur Zahlenumwandlung } uses crt; var basis : integer; zahl : longint; zahlneu : string; procedure Berechnung; var i,r,a : integer; hs : string; begin zahlneu:=' '; a:=zahl; repeat r:=a-Basis*(a div Basis); str(r,hs); zahlneu:=hs + zahlneu ; a:=a div Basis; until a=0; writeln('Die Zahl ',Zahl,' ist gleich : ( ',zahlneu,') zur Basis ',Basis); end; procedure Eingabe; begin clrscr; Writeln(' *** Umwandlung einer Zahl ***'); write(#10,#10,'NatÜrliche Zahl := ?');read(Zahl); write(#10,#10,'Basis der Zahl := ?');read(Basis); end; {**************************************************************************} begin repeat repeat Eingabe until Basis >1 ; Berechnung; repeat until keypressed; until (readkey='n') or (readkey='N'); clrscr; writeln('Goodbye ! '); end.