Chcemy napisać program na wyszukiwanie liczb bliźniaczych.
Musimy w nim dwukrotnie sprawdzi, czy jakieś liczby są pierwsze. Nie ma sensu pisać dwa razy długiego kodu który sprawdza czy liczba jest pierwsza.
Dlatego stosujemy funkcje. Używamy ich wtedy, gdy chcemy usystematyzować program, lub zamknąć jakąś część programy pod jedną, krótką nazwą. Wygląda to tak:
function nazwa (zmienna:typ):oddawany_typ
var deklaracja_zmiennych
begin
komendy
określenie wartości funkcji
end;
kody programów
program blizniaki;
function Pierwsza (x:integer):boolean;
var
p:boolean;
d:integer;
begin
p:=(odd(x) and(x>1))or(x=2);
d:=3;
while (d*d<=x) and p do
if x mod d=0 then
p:=false
else
d:=d+2;
Pierwsza:=p
end;
var
x,i,l:integer;
b:boolean;
begin
readln(l);
i:=0;
x:=3;
while i<l do
begin
if (pierwsza(x)) and (pierwsza(x+2)) then
begin
writeln(x,' ',x+2);
i:=i+1
end;
x:=x+2;
end;
end.
program blizniaki;function Fibrek(n:integer):integer;
begin
if n<3 then
FibRek:=1
else
Fibrek:=fibrek(n-2)+fibrek(n-1)
end; var
n:integer;begin
write(‘n= ‘);
readln(n);
write(fibrek(n))
end.
