Free Pascal

[Goja]

Mam pytanie : zna się ktoś na FCP ? Moim zadaniem jest napisanie programu ktoryby mówil czy dana liczba naturalna jest liczba pierwsza.Czekam na odpowiedz...

[juzef]

Resztę z dzielenia liczby a przez liczbę b otrzymujesz przez a%b. W googlach możesz poszukać zarówno kursów paszczala, jak i gotowych programów.

[Goja]

Znalazlam Ale mam pewne problemy zeby zrozumiec jak zostalo to napisane bo w FCP jestem poczatkujaca , a nauczyciel bedzie mnie pytac z kazdego szczegółu zanim wstawi mi ocene za to zadanie..... No wiec tak :
1. procedure Wczytaj(var LiczbaNaturalna:word); - dlaczego obok procedury sa podane zmienne ? mozna tak ?? a nie pod spodem :p i tutaj pisze var a w nastepnej procedurze juz nie pisze var tylko tak to jest : procedure Obliczenia(N:word);
A ja sie uczylam pod spodem , to jak w koncu to ma byc ??
2. No i tego tez nie lapie do konca :

procedure Obliczenia(N:word);
var k : word;

begin
k:=2;
{p�tla sprawdzajĄca dzielniki liczby N}
while (kN) do { sprawdzenie czy N jest podzielna przez k }
k:=k+1;

{ k jest teraz najmniejszym dzielnikiem N }
if k=N then
writeln('Podana liczba ',N,' JEST liczba pierwszĄ')
else
writeln('Podana liczba ',N,' NIE JEST liczbĄ pierwszĄ');
end;

a zwlaszcza tego pogrubionego - co to jest za polecenie div ??

3. repeat until keypressed - i to co to, bo nie wiem czy dobrze zrozumialam

Jak ktoś mi to ladnie wytłumaczy to bylabym wdzieczna , bo niestety nie mam czasu żeby całego programu sie teraz uczyć , zreszta to mnie czeka w liceum ....Pozdrawiam goraco i czekam na odopowiedz :*

[mat1989]

1. procedure Wczytaj(var LiczbaNaturalna:word); - dlaczego obok procedury sa podane zmienne ? mozna tak ??

to są parametry procedury;

a nie pod spodem :p i tutaj pisze var a w nastepnej procedurze juz nie pisze var tylko tak to jest : procedure Obliczenia(N:word);

tutaj się deklaruje zmienne wewnętrzne procedury;

a zwlaszcza tego pogrubionego - co to jest za polecenie div ??

div - dzielenie całkowite;

repeat until keypressed

KeyPressed-jest to funkcja zwracająca wartość true, jeśli przed jej wywołaniem naciśnięto jakiś klawisz.

[półpasiec]

function pierwsza(n:longint):boolean;
var
t:boolean;
i:longint;
begin
if n=2 then t:=true
else
if n mod 2=0 then t:=false
else
begin
i:=3;
t:=true;
while (i