Aufgabe 1

Unter http://www.uni-koblenz.de/~ros/InfB/pascalsyntax.txt finden Sie eine BNF-Syntax für Turbo-Pascal. Leiten Sie aus dem Nonterminal statement die Anweisung

while i>0 do i := i-1;

ab!


Aufgabe 2

Gegeben seien folgende Deklarationen;

const N=20;

type Feld = array [1..N] of integer;

Implementieren Sie eine Prozedur

procedure posneg(a : Feld; var pSum, nSum : integer);

posneg liefere im var-Parameter pSum die Summe der positiven Feldelemente von a und in nSum die Summe der negativen Feldelemente.

Schreiben Sie ein Pascal-Hauptprogramm, das Ihre Prozedur testest, in dem es posneg auf das Feld (1,-2,3,-4,5,-6,7,-8,9,-10,11,-12,13,-14,15,-16,17,-18,19,-20) anwendet.

Das Ergebnis des Aufrufs ist geeignet auszugeben.

Abzugeben ist die sinnvoll Kommentierte Programmquelle.


Abzugeben bis Di, 18.05.2004, 24h, entweder per E-Mail an infb-a@uni-koblenz.de , infb-b@uni-koblenz.de , infb-d@uni-koblenz.de , infb-e@uni-koblenz.de oder infb-f@uni-koblenz.de je nach Ihrer Gruppe oder aber schrifltich nahc Maßgabe des jeweiligen Übungsgruppenleiters.