kleine mathematische Beispiele (2)

Aus ProgrammingWiki

Addition einfacher Terme

Schreibe eine Funktion zur Berechnung der Summe von Produkt und Quotient zweier Zahlen.

function sumPQ

ausführen

Berechnung einer Quadratzahl

Schreibe eine Funktion zur Berechnung der Quadratzahlen.

ausführen

Berechnung mehrerer Quadratzahlen

Ergänze Dein Programm so, dass die ersten 5 (10, 20, ...), also beliebigen Quadratzahlen berechnet und ausgegeben werden.
Es werden also mehrere Werte ausgegeben. Dies ist mit einer function nicht möglich.
Es wird eine procedure verwendet.

Analysiere den folgenden Beispielquelltext im Vergleich zur Schreibweise einer Funktion.

procedure qua2(a:integer); var zahl, i:integer; begin for i:=1 to a do begin zahl:=i*i; writeln(zahl); end; end;		Struktogramm
qua2(5); ausführen