Writeln
Programowanie strukturalne
Marek Pudełko
Polecenia write i writeln
• Obydwa polecenia wypisują tekst zawarty w
nawiasach.
write ('tekst');
writeln ('tekst');
• Polecenie writeln po zakończeniu
wypisywania przechodzi do nowej linii.
Znak końca linii
writeln;
– wstawia znak końca linii.
– Pozwala na wstawienie pustych linijek pomiędzy
tekst. Należy wtedy użyć kilku poleceń writeln;.
• Przykład
write ('To jest efekt polecenia');
writeln;
Sklejanie tekstu
write ('To jest ');
write ('efekt ');
writeln ('polecenia');
– Jest równoważne zapisowi
writeln('To jest ','efekt ','polecenia');
– Daje taki sam efekt jak
writeln ('To jest efekt polecenia');
• Pozwala to na obróbkę tekstu (np. użycie różnych
kolorów dla danych fragmentów tekstu, wstawienie
nazw zmiennych, wypisywanie w pętli itp.)
ASCII – ART
• To sposób tworzenia bardzo prostych
rysunków układanych za pomocą zwykłych
symboli ASCII (tzn. z liter, cyfr, znaków
typograficznych).
• Tworzone są na obszarze o jednakowej
szerokości kolumn (stałej ilości znaków w
każdym wierszu) oraz o stałej wysokości
znaków (tym samym stopniu pisma).
• Tego typu sposób tworzenia grafiki, a raczej
jej symbolizowania, nosi nazwę semigrafiki.
Przykład
• Człowiek w słuchawkach
=d(~_~)b=
• Realizacja wPascalu
writeln (‘=d(~_~)b=‘);
Ćwiczenie- narysuj następujące
kształty ASCII-ART
•
@ @
• .---ooO-(_)-Ooo---------------------.
• | |
• | Imię i nazwisko |
• | .ooO Ooo. |
• `---( )---( )---------------------'
• (_) (_)
\_/
muu! ( _ ) -(_)-
~O o~__ / \
(._.)_|\
________|_|_|_____
&%%.
,' %%%%=---._
"-"\%% _( |\
|/-" )/ *
-----""----""----
Kolory
• Pascal umożliwia użycie różnych kolorów
tekstu.
• Wymaga to użycia biblioteki CRT w nagłówku.
uses crt;
• Polecenia zmiany koloru
– TEXTCOLOR - Zamienia kolor tekstu na podany
(kolory od 0 do 15).
textcolor(red);
– TEXTBACKGROUND - Zamienia kolor tła tekstu
na podany (kolory od 0 do 7).
textbackground(red);
Nazwa angielska
Numer koloru
Nazwa polska
Black
0
czarny
Blue
1
niebieski
Green
2
zielony
Cyan
3
turkusowy
Red
4
czerwony
Magenta
5
karmazynowy
Brown
6
brązowy
LightGray
7
jasnoszary
DarkGray
8
ciemnoszary
LightBlue
9
jasnoniebieski
LightGreen
10
jasnozielony
LightCyan
11
jasnoturkusowy
LightRed
12
jasnoczerwony
LightMagenta
13
jasnokarmazynowy
Yellow
14
żółty
White
15
biały
Przykłady
textcolor(red);
Writeln (‘Kolor czerwony’);
textcolor(4);
Writeln (‘ to też kolor czerwony’);
i:=4;
textcolor(i);
Writeln (‘ i to też jest kolorem
czerwonym’);
textbackground(green);
textcolor(blue);
Writeln (‘ Niebieskie na zielonym’);
Tekst migający
Polecenia koloru migającego
• Do nazwy koloru należy dodać słowo blink lub
liczbę 128.
textcolor(red+blink);
Writeln (‘Kolor czerwony’);
textcolor(4+128);
Writeln (‘ to też kolor czerwony’);
program napisy_kolorowe;
uses crt;
var i:integer;
begin
clrscr;
textcolor (blue);
writeln (‘kolorniebieski');
textcolor (blue+blink);
writeln ('kolor niebieski pulsujacy');
textbackground (magenta);
textcolor (14);
writeln ('numer 14 to kolor zolty');
readln;
end.
Ćwiczenie
1. Narysuj któryś z obrazków ASCII-
ART w kolorze.
2. Napisz program rysujący wszystkie
kolory tła i tekstu.
Czyszczenie ekranu
• Chcąc wyczyścić ekran z efektów
wcześniejszej pracy należy użyć
polecenia
clrscr;
• Wymaga ono użycia biblioteki CRT.
uses crt;