Program vypíše prvých N overených prvočísel

Category: Homework in Pascal

Author: Pheo
web: pascalsource.ic.cz

Program: Prvocislo3.pas
File exe: Prvocislo3.exe

{ PRVOCISLO3.PAS                                 Copyright (c) Pheo }
{ Program vypise prvych N overenych prvocisel.                      }
{                                                                   }
{ Datum:24.04.2003                             http://www.trsek.com }
 
program prvocisla;
uses crt;
var n,x,p:integer;
 
{ funkcia zisti ci cislo je prvocislo }
function prvocislo(x:integer):boolean;
var s:real;
    d:integer;
begin
    prvocislo:=false;
    s:=sqrt(x);
    d:=1;
    repeat
         d:=d+1;
    until (x mod d=0) or (d>=s);
    if x mod d<>0 then  prvocislo:=true;
end;
 
begin
 clrscr;
 write('Kolko prvocisel mam vypisat ? : ');
 read(n);
 write('2, ');
 p:=1;
 x:=1;
 
 repeat
    x:=x+1;
    if  prvocislo(x)  then
    begin
        p:=p+1;
        write(x,', ');
    end;
 until p=n;
 
 repeat until keypressed;
end.