kleine mathematische Beispiele (2)

Addition einfacher Terme

Schreibe eine Funktion zur Berechnung der Summe von Produkt und Quotient zweier Zahlen.
Tipp: Kopiere wieder den Quelltext aus den obigen Eingabeboxen und verändere ihn.

Berechnung einer Quadratzahl

Schreibe eine Funktion zur Berechnung der Quadratzahlen.

Berechnung mehrerer Quadratzahlen

Ergänze Dein Programm so, dass die ersten 5 (10, 20, ...), also n 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

Berechnung beliebiger Anzahl ausgewählter Quadratzahlen

Verändere Dein Programm nun so, dass die Quadratzahlen von n bis m berechnet und ausgegeben werden.