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_1 Procedury

 
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 13:39, 07 Lis 2010    Temat postu: p8_1 Procedury
Opis:
Procedury - poczatek
Cytat:

program p8_1;{procedury programisty}
uses crt;

procedure komunikat;{procedura pezparametrowa}
var klawisz: char;{zmienna lokalna procedury,moze miec taka sama nazwe jak zmienna globalna programu, nie ma w tym zadnego konfliktu}
begin
clrscr;
writeln('Teraz dziala procedura komunikat.');
write('Nacisnij ESC, aby zakonczyc.');
repeat
klawisz:=readkey;
until klawisz=#27;
end;
var klawisz: char;{zmienna globalna programu}
begin
textmode(co80);
textattr:=7;
clrscr;
write('Nacisnij klawisz Enter,zacznie dzialac procedura.');
repeat
klawisz:=readkey;
until klawisz=#13;
komunikat;{wywolanie procedury}
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