PMG1/kleine mathematische Beispiele (2)

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
== Addition einfacher Terme ==

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


<code id="4dc8e6c252d72">
function sumPQ
</code>

<run id="4dc8e6c25315a"></run>

<check>
result := ((sumPQ(3,6) = 18.5) and (sumPQ(8,4) = 34));
</check>


== Berechnung einer Quadratzahl ==

Schreibe eine Funktion zur Berechnung der Quadratzahlen.

<code id="4df7be2341c5d"></code>

<run id="4df7be2341d8c"></run>


<check>
result := ((qua(3) = 9) and (qua(8) = 64));
</check>

== Berechnung mehrerer Quadratzahlen ==

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

''Analysiere den folgenden Beispielquelltext im Vergleich zur Schreibweise einer Funktion.''


{| border="0"
 |-
 | <code id="4df7be2341ce1" > procedure qua2(a:integer);
var zahl, i:integer;
begin
for i:=1 to a do 
begin
zahl:=i*i;
writeln(zahl);
end;
end;</code> ||           || [[Bild:Thomas_N_QZ.jpg|right|thumb|100px|Struktogramm]]
 |-
 | <run id="4df7be2341e0f">qua2(5);</run> || ||
 
 |}