Hallo,
ich hab mich schon sehr lange nicht mehr mit Pascal beschäftig muss jetzt aber ein kleines Programm schreiben. Also hab ich mich wieder ein wenig damit beschäftigt und folgendes Programm geschreiben. (Große Teile sind aus einem Lehrbuch entnommen)
Alles anzeigen
Ich benutze unter WindowsXP Home Free Pascal.
Wenn ich jetzt auf "Compile" klicke kommt folgende Fehlermeldung:
[Blockierte Grafik: http://img171.imageshack.us/img171/4535/untitled1ll9.jpg]
Ich find selbst keinen Fehler :(.
Wie gesagt, große Teile des Programms sind aus einem Lehrbuch, deswegen wundere ich mich auch dass Fehler beim Kompilieren auftreten.
Ich hoffe ihr könnt mir helfen.
ich hab mich schon sehr lange nicht mehr mit Pascal beschäftig muss jetzt aber ein kleines Programm schreiben. Also hab ich mich wieder ein wenig damit beschäftigt und folgendes Programm geschreiben. (Große Teile sind aus einem Lehrbuch entnommen)
Quellcode
- PROGRAM gebtag;
- {Gebtagpara}
- USES crt;
- VAR k, person, geb_tag, gem_geb_tag: integer;
- n, m, simulation : longint;
- h : real;
- anzahl : array[1...365] of integer;
- BEGIN
- clrscr; randomize;
- writeln, writeln;
- write ('Anzahl der Personen: '); readln(k);
- write ('Anzahl der Simulationen: '); readln(n);
- m:=0;
- FOR simulation:=1 TO n DO
- BEGIN
- FOR geb_tag:=1 TO 365 DO anzahl[geb_tag]:=0; gem_geb_tag:=0;
- FOR person:=1 TO k DO
- BEGIN
- geb_tag:=random(365)+1;
- anzahl[geb_tag]:=anzahl[geb_tag]+1;
- IF anzahl[geb_tag]>1 THEN gem_geb_tag:=1
- END;
- IF gem_geb_tag=1 THEN m:=m+1
- END;
- h:m/n;
- writeln; writeln;
- writeln('Die rel.Häufigkeit, dass unter ', k/2, 'Personen mindestens');
- writeln('zwei am selben Tag Geburtstag haben, ist ',h:4:3, '.');
- readln
- END.
Ich benutze unter WindowsXP Home Free Pascal.
Wenn ich jetzt auf "Compile" klicke kommt folgende Fehlermeldung:
[Blockierte Grafik: http://img171.imageshack.us/img171/4535/untitled1ll9.jpg]
Ich find selbst keinen Fehler :(.
Wie gesagt, große Teile des Programms sind aus einem Lehrbuch, deswegen wundere ich mich auch dass Fehler beim Kompilieren auftreten.
Ich hoffe ihr könnt mir helfen.