„Eratoszthenész szitája” változatai közötti eltérés
| [nem ellenőrzött változat] | [nem ellenőrzött változat] |
Tartalom törölve Tartalom hozzáadva
121. sor:
== Programkód Pascal-ban ==
<source lang="pascal">
var n,i,j,p:longint;
a:array[1..2000000] of boolean; //logikai tömböt hozunk létre
fout:text; //kimeneti fájl
Begin
assign(fout,'Név'); rewrite(fout);
n:=2000000; //az n lehet bármilyem érték ami belefér longint-ba
a[1]:=false; //az a[1] 0-t vesz fel mivel az 1 nem primszám
135 ⟶ 138 sor:
end;
repeat p:=p+1 until a[p]=true; //ha a következő érték hamis, akkor továbbugrik
end;
for i:=1 to n do if a[i]=true then write(i,' '); //kiiratjuk azokat az elemeket amelyek igazak maradtak, vagyis primszámok
close(fout);
End.
</source>
== Források ==
| |||