Übungsaufgabe 1 mit Code

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
==Aufgabe 1==

Entwickeln ein kleines Hallo Welt Programm. Verwende die Anweisung '''writeln''' um eine Zeichenkette auszugeben.

<eval>
BEGIN 
 writeln('Hallo Welt!');
END.
</eval>

==Aufgabe 2==

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

<eval>
VAR w : Integer;
BEGIN
 w := random(6)+1;
 writeln('Du hast eine ' + inttostr(w)+ ' gewürfelt.');
END.
</eval>

==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
 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.
</eval>