referaty.sk – Všetko čo študent potrebuje
Vavrinec
Streda, 10. augusta 2022
Programovanie
Dátum pridania: 30.07.2007 Oznámkuj: 12345
Autor referátu: C1B0
 
Jazyk: Slovenčina Počet slov: 1 187
Referát vhodný pre: Gymnázium Počet A4: 3.4
Priemerná známka: 2.94 Rýchle čítanie: 5m 40s
Pomalé čítanie: 8m 30s
 
Príklad:

Program Moja_procedúra:
Uses Crt,Dos;
Var X,Y,Z:Integer;

Procedure WriteXY(X,Y:Integer; S:String);
Var SucXY:Integer;
Begin
SucXY:=X+Y;
GotoXY(X,Y);
Write(S);
End;

Begin { hlavne begin programu }
ClrScr;
WriteXY(10,4,’Ahoj ja som tvoje PC’);
WriteXY(10,5,’Stlač kláves ak chceš pokracovať’);
Readln;
End. { hlavne end programu }
Vysvetlenie funkcie

Napísali sme si už jednoduchú procedúru, ale často sa stáva že potrebujeme prenášať údaje medzi procedúrou a programom. Ináč povedané, aby ním procedúra vrátila nejaké číslo. Môžeme preto definovať funkciu, ktorá má skoro rovnakú štruktúru ako procedúra s jedným rozdielom, že naviac definujeme akú premennú nám bude dávať. V tele funkcie sa názov funkcie správa ako premenná, takže môžeme do nej zapisovať výsledok jednoduchým priradením.

Štruktúra:

FUNCTION_meno(definícia vstupných premenných):typ_výstupu;

BEGIN { begin - začiatok funkcie }
príkaz;
..
meno:=výsledok;
END; { end - koniec funkcie }
Príklad:
Program Priklad_funkcie;
Uses Crt,Dos;
Var X,Vys:Integerl;

Function Moc(X:Integer):Integer;
Var Pom:Integer;
Begin
Pom:=(X+X)*2;
Moc:=Pom;
End;

Begin
ClrScr;
X:=10;
Vys:=Moc(X);
End.
 
späť späť   1  |   2  |  3    ďalej ďalej
 
Copyright © 1999-2019 News and Media Holding, a.s.
Všetky práva vyhradené. Publikovanie alebo šírenie obsahu je zakázané bez predchádzajúceho súhlasu.