Forum www.techinf1.fora.pl Strona Główna www.techinf1.fora.pl

 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Procedure

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.techinf1.fora.pl Strona Główna -> dla grupy 1
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
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

PostWysł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
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.techinf1.fora.pl Strona Główna -> dla grupy 1 Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin