Forum www.cosinusinfa.fora.pl Strona Główna www.cosinusinfa.fora.pl
Nieoficjalne forum szkoly cosinus - kierunek informatyka
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

p8_2 Procedury 2

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.cosinusinfa.fora.pl Strona Główna -> Programowanie
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Kajtas
Administrator
Administrator



Dołączył: 26 Wrz 2010
Posty: 37
Przeczytał: 0 tematów

Pomógł: 1 raz
Ostrzeżeń: 0/5
PostWysłany: Nie 14:34, 07 Lis 2010    Temat postu: p8_2 Procedury 2
Info:
Procedury 2 - ze zmiennymi parametrami

Cytat:

program p8_2;{procedury programisty}
uses crt;

procedure komunikat(x,y:byte);{procedura z prametrami, x, y- parametry formalne procedury}
var klawisz:char;
begin
clrscr;
gotoxy(x,y);
writeln('Teraz dziala procedura komunikat.');
gotoxy(x,y+1);
write('Nacisnij ESC,aby zakonczyc.');
repeat
klawisz:=readkey;
until klawisz=#27;
end;

var klawisz:char;
begin
textmode(co80);
textattr:=7;
clrscr;
write('Nacisnij klawisz Enter, zacznia dzialac procedura');
repeat
klawisz:=readkey;
until klawisz=#13;
komunikat(20,10); {Procedura wywolana z parametrami aktualnymi, inaczej - z wartosciami aktualnymi parametrow formalnych}
clrscr;
write('Procedura zakonczyla dzialanie');
readkey;
end.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.cosinusinfa.fora.pl Strona Główna -> Programowanie Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie 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
Na skróty:InneWAŻNE DATY I MATERIALYZajeciaGry i rozrywkaSystemyProgramowanieaktualnościPrace kontrolneUTKOprogramowanieMultimediaAngielski