Wert von Variablen tauschen / Pascal

Hallo,

ich komme bei der folgenden Aufgabe nicht so richtig weiter, vielleicht kann mir ja jemand einen Tipp geben.

"Schreiben Sie ein Programm, das zwei reele Zahlen a und b austauscht, wenn a größer ist als b."


Nachfolgend mein Versuch (ich hoffe, ich bin auf dem richtigen Weg...):
(kann man das mit dem "If" überhaupt so realisieren?)

-------------------------------------------------------------


Program Zahlen_Austausch;

Var a,b,h : Real;

Begin
readln (a);
readln (b);

If a > b
Then Begin
h := a;
a := b;
b := h;
End;

writeln ('Der Wert von a ist jetzt' a);
writeln ('Der Wert von b ist jetzt' b);


End.


-----------------------------------------

Viele Grüße,
Marco
 
AW: Wert von Variablen tauschen / Pascal

Hallo Marco,

das müsste so funktioieren. Sieht eigentlich ganz gut aus.
 
AW: Wert von Variablen tauschen / Pascal

Program Zahlen_Austausch;
Var h,a,b:Byte;

Begin
a:= strtoint(readln ('bitte eine Zahl eingeben'));
b:= strtoint(readln ('bitte eine Zahl eingeben'));
If a > b
Then Begin
h := a;
a := b;
b := h;
End;
writeln ('Der Wert von a ist jetzt' +inttostr(b));
writeln ('Der Wert von b ist jetzt' +inttostr(a));

End.

funktioniert sicher und real gibt es nicht mehr:rolleyes::p
 
Top