Übungsaufgabe 1 mit Code

Aufgabe 1

Ein Hallo-Welt-Programm ist ein kleines Computerprogramm und soll auf möglichst einfache Weise zeigen, welche Anweisungen oder Bestandteile für ein vollständiges Programm in einer Programmiersprache benötigt werden und somit einen ersten Einblick in die Syntax geben. Aufgabe des Programms ist, den Text Hallo Welt! oder auf Englisch Hello, world! auszugeben.

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.