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_3 Procedury 3 - Kolorowe napisy

 
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:38, 07 Lis 2010    Temat postu: P8_3 Procedury 3 - Kolorowe napisy
Info:
Procedury 3 - Kolorowe napisy

Cytat:
program p8_3;
uses crt;
procedure napis(x,y,kolor_litery,kolor_tla:byte;tekst:string);
begin
textattr:=kolor_litery+16*kolor_tla;
gotoxy(x,y);
write(tekst);
end;

begin
textmode(co80);
textattr:=7;
clrscr;
napis(10,5,15,1,'Test');
napis(20,15,14,4,'Program');
napis(7,20,7,2,'Pascal');
napis(40,22,10,6,'Procedura');

readkey;
end.


Post został pochwalony 0 razy

Ostatnio zmieniony przez Kajtas dnia Nie 14:40, 07 Lis 2010, 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.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