Programmieren - alles kontrollieren 4.936 Themen, 20.625 Beiträge

Verfolgung starten Optionen

Primzahlen Programm mit Turbo Pascal

ZEPH / 10 Antworten / Flachansicht Nickles

Hi Folks!
ich hab in Computertechnik in der schule die aufgabe bekommen ein Prog zu schreiben, das die Primzahlen bis 20000 ausrechnet und anzeigt. ich darf die zahlen 2/3/5/7 als teiler vordefinieren, ab da muss alles andere selbst ausgerechnet werden. die primzahlen sollen in einem array gespeichert werden.
ich hab mir gedacht, dass ich eine variable(x) erhöhe und diese durch die im array gespeicherten zahlen teile und dann auf einen rest prüfe (mit "mod"). wenn der rest dann =0 ist wird die zahl im array gespeichert, und neu begonnen. das so lange bis x=20000.

geht denn das so wie ich es mir gedacht habe oder habt ihr eine leichtere (muss aber auch leicht verständlich bleiben ich hab TP erst seit einem halben jahr), Lösung?!

Schonmal Danke im vorraus für eure Mühen...

bei Antwort benachrichtigen
Hi! Das geht, ist aber warscheinlich keine schnelle Lösung, da für alle ... Andreas42
durch die im array gespeicherten zahlen teile In diesem Fall kannst Du den ... Borlander
Nur mal eine Frage zur Info. Zwingen Sie euch Pascal zu nehmen ??? PaoloP
Ja, sonst hätt ich ja schon lang Visual Basic oder so genommen. ZEPH
Ja ich habe das ich nämlich schon öfter gehört von Lehrern die vor ... PaoloP
ZEPH Nachtrag zu: „Primzahlen Programm mit Turbo Pascal“
Optionen

uses crt;

var p:Array[1..20000] of integer;
s,x: integer;
begin
clrscr;

p[1]:=2;
p[2]:=3;
p[3]:=5;
p[4]:=7;
p[s]:=x;
s:=4

repeat
x:=x+1;
if (x mod p[s])=0 then
p[s]:=x;
s:=s+1;
writeln(x);
until x=20000;

repeat until keypressed;
end.

könnt ihr an dem Code ne Verbesserung vornehmen, weil ich hab voll kein Plan warum das so nich geht und ob das überhaupt richtig is wie ich ins Array schreib...
weil mein CT Lehrer is halt so en Arsch, den kann ich nich fragen. wir müssen das Prog auch bloß schreiben, weil mal vor ein paar jahren ein schüler (der tag und nacht nur geproggt hat weil er keine freunde hatte) ein "ACH SO TOLLES PRIMZAHLEN PROGRAMM GESCHRIEBEN HAT"!!

bei Antwort benachrichtigen
ich schau s mir heute Nacht mal an. Solche Schüler werden dann später hier ... PaoloP
Gut danke! wenn das so weiter geht bei mir in CT wird der Kurs abgebrochen. ... ZEPH
Hallo! Fehlt Dir nicht von der Syntax her eine Klammerung bzw. begin end ? ... Wanja
uses crt Hannes Zechmann, 16.01.2004 var p:array 1..20000 of boolean ... ZEPH