Vergleich der Verfahren: Programm zum Gegenbeispiel

Methodisches Testen von Programmen

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.