FreePascal? Az a feladat, h kell írni egy programot, mely eldönti, h a beolvasott szám prím-e! Ebből 2 típus kell:az egyik repeat-until-al, a másik while-al!

Ha 2-nél kisebb a szám akkor nem prím, különben 2-től végigpróbálod az összes nála kisebb számon hogy osztja e.

Lehet hatékonyabban is, de egyelőre maradjunk ennél.

Ha már talált egy számot ami osztja akkor tovább nem kell nézni.

Vagy egyszerűen a legkisebb osztóját keresed ami 1-nél nagyobb (ilyen mindig van), akkor prím ha ez megegyezik a számmal.

2 változó minden féleképp kell egy a beolvasott szám és egy amelyik , minden egyes "oszója e" ellenőrzés után ellenőrzés után nő ha nem az nem példány, igen példány a kilépési feltétel.

Valamit csak csináltál.

Meddig sikerült eljutni?

for i:=m to n do

begin

...

end;

Ezt a következőképpen írhatod while-al

i:=m-1;

while i<n do

begin

i:=i+1;

...

end;

Így magában nincs sok értelme, majd annyi lesz hogy tudod a cikluson belül változtatni a ciklusváltozót illetve több feltételt is megszabhatsz (and/or).

Példák az elöltesztelős While..Do és

a hátultesztelős Repeat..Until ciklusra:

[link]

[link]