Archief - [PROG] Priemgetallen in Delphi

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
R

Republika

Legacy Member
hoi,
ik heb al 2 programma's geschreven in Delphi om priemgetallen tot 1 000 te laten zien maar telkens krijg ik één of andere fout.
Als iemand mij kan helpen zou ik heel dankbaar zijn.


program Project1;
var
i,j,k: integer;
begin
i:=1;
repeat
while j<(i-1) do
begin
if (i mod j) =0 then
begin
inc(i);
j:=1
end;
j:=j+1
end;
writeln (i);
inc(i);
until i>=100;
end.

Program 2:

program priem;
var i,j:integer;
begin
i:= 1;
repeat
for j:=2 to i-1 do
if i mod j = 0 then inc(i);
writeln(i);
inc(i);
until i>=1000;
readln;
end.
d

den Acid Burn

Legacy Member
en welke fout krijg je dan?

die repeat lijkt me ook niet nodig en syntactisch incorrect.
als ge meerdere statements in een for hebt staan moet ge deze in een begin end block steken denk ik
R

Republika

Legacy Member
in het eerste programma krijg ik geen priemgetallen, opeens komen er getallen bij da geen priemgetallen zijn (35 enz)

in het tweede programma krijg ik gewoon de cijfers van 1 tot 1 000 opeenvolgend.
D

DarkCHronicle

Legacy Member
ik weet niet of dit enige hulp is:

for i := 1 to 1000 do
begin
k := 0;
for j := 1 to i div 2 do
if i mod j = 0
then k := k+1;
if k = 1
then writeln (i);
end;
R

Republika

Legacy Member
DarkCHronicle zei:
ik weet niet of dit enige hulp is:

for i := 1 to 1000 do
begin
k := 0;
for j := 1 to i div 2 do
if i mod j = 0
then k := k+1;
if k = 1
then writeln (i);
end;
Klik om te vergroten...

bedankt man, een kleine modificatie en het werkt. :niceone:
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan