Hallo erstmal.
Ich hab ein Problem mit einem programm und zwar komm ich einfach nicht weiter. Ich hoffe ihr könnt mir vielleicht weiterhelfen.
Ich muss ein programm schreiben das mir zahlen von dezimal nach dual und umgekehrt rechnet.
Könnt ihr mir vielleicht bei den beiden Proceduren helfen ?.
Kann mir da vielleicht einer weiterhelfen ?
Danke schonmal.
Seperate
Ich hab ein Problem mit einem programm und zwar komm ich einfach nicht weiter. Ich hoffe ihr könnt mir vielleicht weiterhelfen.
Ich muss ein programm schreiben das mir zahlen von dezimal nach dual und umgekehrt rechnet.
Könnt ihr mir vielleicht bei den beiden Proceduren helfen ?.
PROGRAM umrechnen;
USES crt;
VAR choice:INTEGER;
BEGIN
REPEAT
clrscr;
writeln( '[1] Dec2Bin' );
writeln( '[2] Bin2Dec' );
writeln( '[3] Arab2Rom' );
writeln( '[0] Programm beenden' );
write( 'Ihre Wahl? ' );
read( choice );
CASE choice OF
1: BEGIN
write( 'Bitte geben sie die umzuwandelnde Dezimalzahl ein... ' );
readln( Zahl_dez );
writeln;
umrechnen_dez_dual;
Writeln( '==> Binärzahl: ', Zahl_dual2 );
END;
2: BEGIN
write( 'Bitte geben sie die umzuwandelnde Binärzahl ein... ' );
readln( Zahl_dual2 );
writeln;
umrechnen_dual_dez;
Writeln( '==> Dezimalzahl: ', Zahl_dez );
END;
3: (*...*)
END;
UNTIL choice = 0;
END.
PROCEDURE umrechnen_dez_dual;
HIER STEH ICH AN ! -
Kann mir da vielleicht einer weiterhelfen ?
Danke schonmal.
Seperate