PROGRAM Test;
|
| USES crt; |
| VAR Summe:integer; |
|
| PROCEDURE Test1(n,Summand:integer;VAR Summe:integer);
|
| VAR i:integer; |
| BEGIN |
| i := 0; |
| {Summe := 0; fehlt hier, falls die Summe von n Summanden berechnet wird}
|
| REPEAT |
| | i := i+1;
|
| | Summe := Summe + Summand;
|
| UNTIL i>=n; |
| END; {Test1} |
|
| PROCEDURE Test2(n,Summand:integer;VAR Summe:integer);
|
| VAR i:integer; |
| BEGIN |
| {Summe := 0; fehlt hier, wenn oben zu einer Zahl addiert werden soll}
|
| Test1(n,Summand,Summe);
|
| writeln(n,'*',Summand,'=',Summe);
|
| END; {Test2} |
|
| PROCEDURE Test3(VAR Summe:integer);
|
| VAR i:integer; |
| BEGIN |
| FOR i:=10 TO 20 DO {hier kann man die Werte ändern}
|
| | Test2(i,6,Summe); {hier sind i und 6 willkürlich eingesetzt}
|
| END; {Test3} |
|
| BEGIN |
| clrscr; |
| Summe:=0; {zu addierende Zahl wird auf Null gesetzt}
|
| Test3(Summe); |
| readln |
| END. |
