Navigace: Hlavní stránka -> PASCAL -> 04 Cykly -> 04.22 Hledání prvočísla dle zadaného pořadí

MENU

04.22 Hledání prvočísla dle zadaného pořadí

Zadání:
Sestavte program, který nalezne prvočíslo dle zadaného pořadí.
Řešení:
Řešení vychází z programu 04.21. Na začátku programu vložíme do proměnné c hodnotu 1 (jedna). Pomocí cyklu
REPEAT vždy zvýšíme hodnotu této proměnné o 1 a otestujeme, zda obsahuje prvočíslo. Pokud ano, zvýšíme
hodnotu proměnné p o 1 (v této proměnné evidujeme počet nalezených prvočísel). Cyklus REPEAT ukončíme tehdy,
když bude počet nalezených prvočísel shodný se zadaným pořadím. Pak nalezené prvočíslo vytiskneme. 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var c,i,n,p:longint;
    prvocislo:boolean;

begin

   write('Zadejte, kolikate prvocislo chcete najit: ');
   readln(n);
   c:=1;
   p:=0;
   repeat
      c:=c+1;
      prvocislo:=true;
      for i:=2 to round(sqrt(c)) do
         if c mod i=0 then prvocislo:=false;
      if prvocislo then p:=p+1;
   until p=n;

   writeln(n,'.prvocislo: ',c);

   readln;

end.
program ke stažení
Pro studenty:
Uvedený program předpokládá, že prvním prvočíslem je hodnota 2.