Delphi
Programmauschnitt 1
Funktion (Deklaration).
Function mmm (a, b: real): real;
Begin
if a > b then
result := a //Rückgabe a
Else
result:=b; //Rückgabe b
End;
Aufruf der Funtion:
Zahl1:= 2;
Zahl2:= 5.4;
Zahl3:= ????????; //Aufruf
Programmauschnitt 2
Prozedur (Deklaration)
Procedure xxxx (var a,b: real);
Var zwspeicher: real;
Begin
Zwspeicher :=a;
a:=b;
b:=zwspeicher
end;
Aufruf der Prozedur:
Zahl1:=2;
Zahl2:= 5.4;
????????????
1. Erklären sie genau die Abreitweise der Funktion von Programmauschnitt1 und den Funktionskopf
2. Ergänzen sie die Zeile 3 ???????
3. Schreiben sie die Funktion von Programmauschnitt1 als Procedure
4. Was ändert sich dann beim Aufruf? Welche werte stehen am ende in Zahl1, Zahl2 und Zahl3?
5. Erklären sie genau die Abreitweise der Funktion von Programmauschnitt2 und den Funktionskopf
6. Wie lautet der Aufruf der Prozedur. Welche werte stehen am ende in Zahl1 und Zahl2?
7. Kann die Prozedur als Funktion geschrieben werden? (Begründung)
8. schreiben sie ein Procedure, die 2 zahlen verdoppelt zurückgibt und außerdem die summe dieser beiden zahlen verdoppelt.
Vielen Dank im Voraus
