>>Procedury
Procedury właściwie nie występują w innych językach programowania. Są tam używane dalej omówione funkcje. Procedura to jakby mały podprogram, blok kodu, który realizuje określone zadanie. Procedury tworzymy następująco:procedure Nazwa_procedury;
begin
Instrukcje;
end;
Rozpoczynamy słowem kluczowym procedure po czym wpisujemy jej nazwę. Następnie w blokach begin end; wpisujemy jej kod. Należy zwrócić uwagę, że w tym wypadku bloki są wymagane i nie można ich pominąć. Procdedury wpisujemy przed blokiem głównym, tzn. begin end. i najlepiej po deklaracji zmiennych. Procedur najczęściej używa się gdy program musi wykonać jakąś skomplikowaną czynność kilka razy. Wtedy wystarczy zapisać ją raz w procedurze i właśnie nią się posługiwać. Spójrzmy na przykład:
program Project19;
var
S:string;
procedure Wyswietlanie_napisu;
begin
Writeln;
Writeln('To program obslugujacy proceudry');
Writeln;
end;
procedure Zmiana_zmiennej;
begin
S:='Wartosc B';
end;
begin
Wyswietlanie_napisu;
S:='Wartosc A';
Writeln(S);
Zmiana_zmiennej;
Writeln(S);
Wyswietlanie_napisu;
readln;
end.
Jednej procedury możemy używać w programie dowolną ilośc razy.
W procedurach możemy również deklarować zmienne. Są to jednak zmienne lokalne, co oznacza, że nie możemy odwołać się do nich z innej procedury, funkcji czy programy. Sposób deklaracji obrazuje poniższy kod:
...
procedure Zmiana_zmiennej;
var
D:string;
begin
D:='Wartosc C';
S:=D;
end;
...
>>Parametry procedur
Do procedur możemy przekazywać parametry czyli po prostu pewne dane. Jednak aby najpierw je przekazać musimy je gdzieś zapisać. Robi się to następującoprocedure Nazwa_procedury(Nazwa_zmiennej:typ; Nazwa_zmiennej:typ);
begin
Instrukcje;
end;
...
procedure Wyswietlanie_napisu(Tresc:string);
begin
Writeln;
Writeln(Tresc);
Writeln;
end;
...
Wyswietlenie_napisu('Procedura z parametrem');
W nawiasie wpisujemy wartość jaka ma zostać przypisana do zmiennej "Tresc". Jeśli parametrów jest więcej wpisujemy je po przecinku.>>Funckje
Funkcje różnią się od procedur. Są to także małe podprogramiki lecz dodatkowo zwracają wartość.function Nazwa_funkcji:Typ zwracany;
begin
Instrukcje;
end;
program Project20;
function Imie:string;
begin
Result:='Astaz3l';
end;
begin
writeln('Kurs Pascala by '+Imie);
readln;
end.
>>Parametry funkcji
Parametry funkcji tworzymy identycznie jak w przypadku procedur. Obrazuje to poniższy przykład:...
function PodajImie(Imie:string):string;
begin
Result:=Imie;
end;
...
writeln('Nazywam sie '+PodajImie('Jan Kowalski'));
...
Powrót