Hlavička:
Procedure
Volanie procedúry sa zabezpečí zapísaním mena procedúry s uvedením prípadných skutočných parametrov jako samostatného príkazu.
Tri druhy parametrov:
1, s globálnymi premennými – sú to premenné, ktoré sú deklarované vo všetkých blokoch, ktoré obsahujú tento program.
2, s lokálnymi premennými – Lokálne premenné sú tie , ktoré sú deklarované vo vnútri podprogramu a ich platnosť je obmedzenáiba na príkazovú časťpodprogramu. Lokálna premenná v príkazovej časti podprogramu zatieňuje všetky premenné a formálne parametre rovnakého mena deklarované v nadriadených blokoch.
3, S formalnymi parametrami – formálne parametre zastupujú v podprograme triedu objektov, pre ktorú je postup zostavený. V príkazovej časti podprogramu predstavujú objekty, s ktorými príkazy operujú.
Z hľadiska volania podprogramu rozlišujeme parametre:
1, parametre volane hodnotou
2, parametre volane odkazom
3, komformne pole
PRÍKLADY:
1, Zostavte program pre splátku pôžičky, ak sme si A Sk požičali, na B rokov s C
úrokom.
2, Zostavte program na vypísanie * na obrazovke do trojuholníka, ak v prvom stĺpci
bude max *.
program hviezdy;
var i,j,n:integer;
begin
write('zadaj pocet: ');
readln(n);
for i:=1 to n do
begin
for j:=1 to i do write('*');
writeln;
end;
readln
end.
3, Zostavte program na vypísanie * na obrazovke do trojuholníka, ak v prvom stĺpci
bude jedna * .
program hviezda1;
var i,j:integer;
begin
for i:=1 to 24 do
begin
for j:=1 to 24-i do write(' ');
for j:=1 to i do write('*');
writeln;
end;
readln
end.
4, Zostavte program na zobrazenie ľubovolného obrázku pomocou *.
program hviezdy;
var i,j,N:integer;
begin
Write ('Zadaj poźet hviezd :');
Readln(N);
for i:=1 to N do
begin
for j:=1 to N-i do write (' ');
for j:=1 to N do write ('*');
writeln;
end;
readln
end.
5, Zostavte program na zobrazenie tabuľky malej násobilky.
program mala_nasobilka;
uses crt;
const posun=6;
var i,j:integer;
begin
clrscr;
writeln('Mala nasobilka':46);
for i:=1 to 78 do write('-');
writeln;
writeln;
write(' ':posun);
for j:=0 to 9 do write(j:posun);
writeln;
writeln;
for i:=0 to 9 do
begin
write(i:posun);
for j:=0 to 9 do write(i*j:posun);
writeln;
end;
writeln;
readln
end.
6, Preveďte číslo z desiatkovej sústavy do dvojkovej.
