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;