Übungsaufgabe 1 mit Code

Aufgabe 1

Lernt man eine Programmiersprache ist häufig das erste Programm ein sogenanntes "Hallo Welt" Programm. Dabei wird nur eine einzige Zeichenkette, eben "Hallo Welt", ausgegeben. In Pascal können wir die Anweisung writeln verwenden, um Zeichenkette auszugeben.

<eval> BEGIN </eval>

writeln('Hallo Welt!');

END.

Aufgabe 2

Wir wollen einen Würfel in Pascal entwickeln. Verwende hierfür die Anweisung random(integer). Da diese Funktion eine Zahl zurückliefert, muss sie erst in eine Zeichenkette umgewandelt werden, bevor wir sie ausgeben können. Hierfür kannst du IntToStr(integer) verwenden.

<eval> VAR w : Integer; BEGIN</eval>

w := random(6)+1;
writeln('Du hast eine ' + inttostr(w)+ ' gewürfelt.');

END.

Aufgabe 3

Bei einem Glücksspiel geht es darum, mit 3 Würfeln möglichst viele gleiche Augen zu werfen. Entwickle ein Programm, welches drei mal würfelt und die Augenzahl ausgibt (zum Beispiel 4,2,6). Anschließend soll ausgegeben werden, ob der Spieler verloren oder gewonnen hat.

Gewinnbedingung: >=2 Würfel haben die gleiche Augenzahl.

<eval> VAR w1,w2,w3 : Integer; BEGIN</eval>

w1 := random(6)+1;
w2 := random(6)+1;
w3 := random(6)+1;
writeln('Du hast ' + inttostr(w1)+','+inttostr(w2)+','+inttostr(w3)+' gewürfelt.');
if (w1=w2)or(w1=w3)or(w2=w3) then
 writeln('Du hast gewonnen!') else
 writeln('Du hast verloren!');

END.