Programmieren - alles kontrollieren 4.935 Themen, 20.621 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
uses crt var p:Array 1..20000 of integer s,x: integer begin clrscr p 1 : 2 p ... ZEPH
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
ZEPH Nachtrag zu: „Primzahlen Programm mit Turbo Pascal“
Optionen

uses crt; {Hannes Zechmann, 16.01.2004}

var p:array[1..20000] of boolean;
startzahl, anfangszahl, endzahl, teiler, seite, seiten, zeilen: integer;

begin
repeat
clrscr;
write('Anfangszahl: ');
readln(startzahl);
write('Endzahl: ');
readln(endzahl);
until startzahl
for anfangszahl:=startzahl to endzahl do
begin
p[anfangszahl]:=true;
for teiler:=2 to anfangszahl div 2 do
begin
if (anfangszahl mod teiler)=0 then
begin
p[anfangszahl]:=false;
end;
end;

if p[anfangszahl]=true then
write(anfangszahl:8);
end;

readln;
end.

dank eines freundes gehts jetzt, auch wenns ne ganz andere methode is!

bei Antwort benachrichtigen