Artykuł: Funkcje w PASCALU - 4informatic.com portal dla informatyka Page 1 of 2

Nawigacja

Funkcje w PASCALU

Logowanie

Nazwa UŜytkownika

Portal

Deklaracja własnych funkcji Strona Główna

Artykuły

Czasem, gdy nasz program się rozrasta, w celu optymalizacji, lub po prostu "ułozenia kodu" niezbędne jest Hasło

Download

"pocięcie" go na podprogramy(funkcje). PokaŜe jak samemu deklarować funkcje w języku PASCAL.

FAQ

Forum

Struktura fragmentu programu Zapamiętaj mnie

Linki

Kontakt

Galeria

Loguj

Szukaj

program funkcje1;

VAR

Rejestracja

Usługi

{

Zapomniane hasło?

Downloader

Tutaj deklarujemy zmienne globalne, te które moŜemy wykorzystywaćw całym programie i podprogramach PageRank system

)

Serwery GG

Reklama

Szpieg GG

Function nazwa_funkcji( argumenty funkcji ) : typ zwracanego wyniku; VAR

{ Zmienne lokalne, czyli takie które są wykorzystywane tylko w obrębie danego podprogramu }

UŜytkowników

BEGIN

Online

{ Treść funkcji }

Gości Online: 2

nazwa_funkcji:=wynik_operacji; Brak UŜytkowników

END;

Online

Excel - funkcje i

formuły

Zarejestrowanych

Skorzystaj z

UŜytkowników: 163

gotowych

Najnowszy

Chwila wyjaśnienia:

rozwiązań, a

UŜytkownik: Elwood848

zyskasz dla siebie 2

Po słowie Function następuje nadanie funkcji nazwy. WaŜne jest, aby nie kolidowała ona z nazwami innych h dziennie

zmiennych, typami danych i słowami kluczowymi (np do , begin , to). Następnie w nawiasie podajemy Wątki na Forum

www.excelwpraktyce.pl

parametry, które będą przekazywane do funkcji z programu głównego. Za nawiasem, określamy typ wyniku Najnowsze Tematy

działań przeprowadzonych w funkcji, np integer.

Zadanie z Asemblera

prosty kalkulator w ...

Po słowie VAR deklarujemy Zmienne lokalne, których nazwy NIE MOGĄ kolidować z nazwami zmiennych z Dziwny Problem

programu głównego.

Problem z kartą

Następnie pomiędzy słowami BEGIN oraz END umieszczamy główną treść funkcji. Aby funkcja miała sens, GeFo...

po wykonaniu działań, musimy jej przypisać wartość, wynik przeprowadzonych operacji w postaci: Nielegalne

Oprogramo...

nazwa_funkcji:=zmienna;

Linki

Najciekawsze

Tematy

Pytanie do

[13]

Reklamy Google

potrze...

PokaŜę przykład programu wykorzystującego samodzielnie zadeklarowaną funkcję.

Najlepszy

Programy C++

[10]

windows

Zaliczenie C++

Assembler -

[7]

Program funkcje2;

Turbo Pascal

projekt

VAR

Algorytmy w C++

Atak typu DoS:

[7]

liczba : integer;

Fo...

Wykres Funkcji

Function do_3_potegi(a:integer):integer; UBUNTU 7.10

[6]

Begin

wasze...

a:=a*a*a;

do_3_potegi:=a;

Ostatnie Artykuły

End;

Begin

Funkcje w PASCALU

Writeln('Podaj liczbe ktrą chces zpodnieść do potegi 3.'); Pętla for

Readln(liczba);

Komputer w Oleju

Writeln(liczba,' do 3 potegi =',do_3_potegi(liczba)); Wszystko o wirusach

Readln;

Sharing

End.

Reklama

W tym programie zadeklarowałem funkcje podnoszacą liczbę do 3 potęgi. Wartość liczba przekazywana jest do funkcji za pomocą wywołania do_3_potegi(liczba)

Wartość jest zwracana z powrotem w momencie przypisaniu funkcji wartości a.

Funkcje rekurencyjne

Poza zwykłymi funkcjami, spotykamy równieŜ funkcje rekurencyjne. Inaczej mówiąc, są to funkcje, które wywołują same siebie.

Dla przykładu, zadeklarujemy funkcję podnoszącą 2 do n-tej potęgi.

Function poteguj(n:integer):integer; Begin

if n<1 then poteguj:=1

else poteguj:=poteguj(n-1)*2; End;

Funkcja ta potęguje liczbę 2 do potęgi o wykładniku całkowitym.

W przypadku podania 0 jako parametr, zwróci 1, w przeciwnym wypadku wywoła sama siebie. JeŜeli n jest róŜne od 0, będzie ona wywoływana, dopóki n nie będzie równe 0.

Dodane przez k0siarka dnia styczeń 27 2008 14:28:46

0 Komentarzy ˇ 533 Czytań

http://www.4informatic.com/readarticle.php?article_id=44

2008-07-01

Artykuł: Funkcje w PASCALU - 4informatic.com portal dla informatyka Page 2 of 2

Komentarze

Brak komentarzy.

Dodaj komentarz

Zaloguj się, Ŝeby móc dodawać komentarze.

Oceny

Dodawanie ocen dostępne tylko dla zalogowanych UŜytkowników.

Proszę się zalogować lub zarejestrować, Ŝeby móc dodawać oceny.

Brak ocen.

Powered by PHP-Fusion © 2003-2006

81730 Unikalnych wizyt http://www.4informatic.com/readarticle.php?article_id=44

2008-07-01