isar
Administrator
Dołączył: 03 Lut 2008
Posty: 28
Przeczytał: 0 tematów
Pomógł: 3 razy Ostrzeżeń: 0/5 Skąd: z plyty cd
|
Wysłany: Sob 13:49, 09 Lut 2008 Temat postu: Procedure |
|
|
jezeli w programie robimy 10x to samo(A nie mamy mozliwosci zastosowania petli), to nie ma sensu kopiowanie paru linijek i wklejanie ich nizej. wystarczy zastosowac procedure.
procedury sa dosc dziwne, ale nie takie trudne na jakie wygladaja:) wiec zaczynamy.
jak wogole zadeklarowac procedure?
otoz robimy to nastepujaco:
procedure nazwa;
ale sama deklaracja nam nic nie da, musi ona cos robic
a teraz procedura ktora bedzie robic 3linijki gwiazdek(np do odzielenia czegos w programie;) prosta ale od czegos trzeba zaczac..
program jakis_tam;{nazwa programu}
procedure gwiazdki;{nazwa procedury to "gwiazdki", tym slowem bedziemy ja wywolywac}
begin {tu bedzie tresc procedury}
writeln('**************************************************');
writeln('**************************************************');
writeln('**************************************************');
{3linie gwiazdek(bez zadnych petli, bo nie potrzebuje przy 3liniach petli}
end; {koniec tresci procedury}
begin {dopiero ten begin rozpoczyna program}
writeln('ble ble ble');
gwiazdki;
writeln('ble ble ble ble ble');
gwiazdki;
readln;
end.
[link widoczny dla zalogowanych]
zamiescilem to co program wyswietla:) z opisem co robi procedura.
*************************************************************
zmienne:
zmienne w procedurach robi sie troszke inaczej, te zmienne ktore beda uzyte w procedurze musimy zadeklarowac pod slowem kluczowym procedure:
program proc;
var pet: integer;
tab : array[1..10] of integer ;
procedure zero;
var a:integer;
begin
for a:=1 to 10 do
tab[a]:=0;
end;
zmienna ktora zastosowalismy w procedurze jest pod slowem kluczowym "procedure".
caly program:
program proc;
var pet: integer;
tab : array[1..10] of integer ;
procedure zero;
var a:integer;
begin
for a:=1 to 10 do
tab[a]:=0;
end;
begin {przypisujemy do tablicy losowe liczby}
writeln('wprowadzenie liczb do tablicy');
randomize; {rozpoczete losowanie}
for pet:=1 to 10 do
tab[pet]:=random(1000);
writeln('wybrane liczby : ');
for pet:=1 to 10 do
writeln(tab[pet]);
writeln('zerowanie tablicy slowem "zero"');
zero; {po wpisaniu zero, tablica zostala wyzerowana}
readln;
end.
Post został pochwalony 0 razy
Ostatnio zmieniony przez isar dnia Sob 13:50, 09 Lut 2008, w całości zmieniany 1 raz
|
|