Hallo liebe Delphi-Praxis User.
Ich brauche eure Hilfe.
In der Schule arbeiten wir momentan mit dem Programm "Turbo Pascal" und irgendwie werden wir nicht so richtig Freunde.
Heute in der Schule sollten wir dann einen "Lotto Rechner" schreiben.
Unser Lehrer schrieb uns das meiste an der Tafel vor und wir durften abschreiben.
Mein eigentliches Problem ist nun, dass ich zuhause weiter arbeiten soll und mein Vista 64 Bit das
TP nicht mag.
Zur nächsten Woche sollen wir die ausgegebenen Zahlen sortieren lassen.
Hierzu habe ich auch schon diverse Verfahren gefunden. Unser Lehrer riet uns zum "Bubble Sort".
Hierzu fand ich hier in der Code-Library diesen Link:
http://www.delphipraxis.net/internal...ect.php?t=6237
Nun weiß ich jedoch nicht, wie ich das 1. in Turbo Pascal übersetzen kann und 2. testen kann ich es leider auch nicht, da es bei mir nicht funktioniert.
Hier mal den Source aus der Schule:
Code:
program lottozahlen;
uses crt;
var lotto:array [1..6] of integer;
i:integer;
procedure ziehung;
Begin
for i:=1 to 6 do
Begin
lotto[i]:=1+random(49); {1+0-48}
End;
End;
Begin
Textbackground(Black);Textcolor(white);
clrscr;
randomize;
ziehung;
if (lotto[1]=lotto[2]) or (lotto[1]=lotto[3]) or (lotto[1]=lotto[4])
or (lotto[1]=lotto[5]) or (lotto[1]=lotto[6]) or (lotto[2]=lotto[3])
or (lotto[2]=lotto[4]) or (lotto[1]=lotto[5]) or (lotto[2]=lotto[6])
or (lotto[3]=lotto[4]) or (lotto[3]=lotto[5]) or (lotto[3]=lotto[6])
or (lotto[4]=lotto[5]) or (lotto[4]=lotto[6]) or (lotto[5]=lotto[6])
then ziehung
else {Vor else nie ein Simikolon :-)}
Begin
gotoxy(28,25);
for i:=1 to 6 do
Begin
write(lotto[i],' ');
End;
End;
readkey;
End.
Ich hoffe, dass jemand von euch mir weiterhelfen kann. In 1-2 Wochen werden wir dann hoffentlich mit Delphi anfangen, denn das läuft Flüssig auf meinem Pc
.
MfG,
Christian