44 (399)

else

end; {

PotegaCalkowita A * Sqr (PotegaCalkowita (A, N div 2))

PotegaCalkowita -}

begin

Write ('Podaj liczbę: '); Readln (A);

Write ('Podaj wykładnik: '); Readln (N);

Writeln (A,    , N, ' = ', PotegaCalkowita (A, N));

Readln;

end.

Czyż nie jest to piękne? I jakie szybkie!

Pojawił nam się nowy operator div, którego wynikiem jest część całkowita dzielenia jednej liczby całkowitej przez drugą.

Trochę zmęczeni funkcjami zajmijmy się drugim elementem tematu rozdziału. Nie tylko wartości pewnych funkcji w programie wyliczamy wielokrotnie. Wielokrotnie wykonujemy też pewne czynności: wyświetlamy menu, sortujemy tablicę, wypisujemy komunikat o błędzie, wypisujemy informacje, rysujemy kółko. Aby usprawnić sobie takie działanie (i tekst programu wpisywać tylko raz) można posłużyć się procedurami. Procedura to zbiór instrukcji do wykonania (może być zależny od podanych parametrów). Można ją wykonać poprzez podanie nazwy i listy parametrów (o ile takie są).

Definicja procedury występuje w bloku deklaracji i ma następującą postać:

procedurę nazwa_procedury (lista_paramertów_i_ich _typów);

{ blok deklaracji }

begin

{ blok instrukcji } end;

Jak widać, wygląda to bardzo podobnie do definicji funkcji, poza tym, że procedura nie zwraca wyniku. I jest to rzeczywiście bardzo podobne. Każdą procedurę można by zapisać jako funkcję zwracającą jakikolwiek wynik. Coraz częściej widać tendencję do programowania zbiorów instrukcji, które dawniej zostałyby zapisane jako procedury, w postaci funkcji, której wartością jest poprawność wykonania: jeżeli się wszystko udało, funkcja zwraca True, jeżeli nie — False. Bardzo pomaga to w śledzeniu działania programu.

Parametry procedur definiuje się i przekazuje w sposób identyczny, jak funkcji.

W I C Z E N I E

Wielokrotne uruchomienie procedury

Napisz procedurę wypisującą Twoje imię i nazwisko i uruchom ją dwa razy.

Ponieważ procedura ma wypisywać konkretnie Twoje dane, nie wymaga żadnych parametrów.

program cw3_51;

{ Program ilustrujący działanie procedur, wypisującej }

{ imię i nazwisko.    }

{ Katalog r3_10 : 3_51.pas    }

procedurę MojelmielNazwisko;

{ Procedura wypisuje moje imię i nazwisko. }