[m1nd]

Heyho, liebe Community, ich soll bis morgen ein Programm mit Turbopascal + Struktogramm fertig haben.

Programme schreiben, ist kein Problem, aber Struktogramme sind irgendwie garnicht mein Ding. Ich würde mich also super freuen, wenn mir jemand zu folgendem Quellcode

program ratespieln;
var i, zahl,versuch : integer;

BEGIN
writeln('Zahlenratespiel: Raten sie eine Zahl zwischen 0 und 50.Sie haben 10 Versuche ');
writeln;
randomize;
zahl:=random(50);
i:=1;
repeat
begin
write('Raten sie die Zahl: '); readln(versuch); i:= i+1;
if versuch=zahl then
writeln('Richtig geraten.');
if versuch<zahl then
writeln('zu niedrig.');
if versuch>zahl then
writeln(' zu hoch.');
end;
until (versuch=zahl) or (i= 10) or (versuch=0000);

readln;
END.

ein Struktogramm zeichnen könnte!

Außerdem würde mich noch interessieren, ob irgendjemand den Turbopascal 64bit Patch hat.

Ich weiß, dass Turbopascal scheiße ist, aber unsere Lehrer finden es geil -.-

Gruß m1nd


:edit: Hat sich erledigt, werde es demnächst mal posten.