KURS PASCALA cz. 3

 

                        Cześć wszystkim. Jak tam wasze programy? Zgodnie z obietnicą zajmiemy się dzisiaj pozycjonowaniem tekstu oraz nadawaniem mu koloru. Nie jest to trudne i dzisiejsza lekcja opierać będzie się głównie na zabawie. To tyle słowem wstępu, więc zaczynamy.

 

                        Ooo Bym zapomniał, dobrze, że zapisałem to w dzienniku.. A zadanie domowe? No, co taka cisza? Nikt nie zrobił czy boicie się zgłosić? Jak nie ma chętnych to poprosimy do odpowiedzi, poprosimy, poprosimy o... Ciebie. Tak ciebie. Co się tak patrzysz? Nie oglądaj się za siebie masz zadanie czy nie? O tak myślałem. Nie mam sposobności cię sprawdzić, ale jak chcesz możesz porównać twoje rozwiązanie z prawidłowy klikając TUTAJ, lub TUTAJ w celu obejrzenia kodu źródłowego. A teraz przejdźmy do konkretów.

 

                        Zacznijmy najpierw od pozycjonowania tekstu, tak, aby komunikaty nie były wyświetlane pod sobą jeden pod drugim, tylko w różnych miejscach ekranu. Do tego posłuży nam funkcja GOTOXY(x,y) – Nic nie trzeba chyba tutaj tłumaczyć. X – oznacza współrzędną x, a Y – y. Uwaga.

    Mała wskazówka. Funkcję tą trzeba zastosować przed funkcją WRITE lub

    WRITELN, aby poprawnie zadziałała np.:

...

GOTOXY(50,50);

WRITELN(‘PIESEK’);

...

 

Po uruchomieniu programu wyświetlony zostanie napis PIESEK w pozycji x=50, y=50.

Chyba wszystko jasne. Pełny kod programu znajduje się TUTAJ.

Nie muszę jednak mówić, że jak podasz zbyt dużą wartość, która odnosi się do punktu poza obszarem monitora to tego nie będziesz widział.

 

                        Przejdźmy teraz do kolorów. Podobnie jaw w powyższej funkcji procedurę tą trzeba wpisać przed tekstem, który ma mieć zmieniony kolor. Do tego służy nam funkcja TEXTCOLOR(kolor), gdzie kolor to angielska nazwa koloru, lub liczba go określająca.

 

0 – Czarny

1 – Niebieski

2 – Zielony

3 – Turkusowy

4 – Czerwony

5 – Karmazynowy (Na kompie nie wiem jak wygląda)

6 – Brązowy

7 – Jasnoszary

8 – Ciemnoszary

9 – Jasnoniebieski

10 – Jasnozielony

11 – Jasno turkusowy

12 – Jasnoczerwony

13 – Jasnokarmazynowy (Na kompie nie wiem jak wygląda)

 

Dosyć teorii, czas na praktykę:

...

TEXTCOLOR(4); {1}

WEIRELN(‘Czerwony tekst’)

...                                                        Pełny kod źródłowy TUTAJ

 

{1} Numer 4 oznacza przypisanie tekstu następującego po funkcji koloru czerwonego. Zamiast liczby można podać angielski zwrot, np. RED, czyli TEXTCOLOR(RED);

 

Zad. Domowe.

Napisz program, który po uruchomieniu wyświetli na ekranie monitora choinkę z gwiazdek(*) i kilkoma bombkami. Trochę zabawy przy tym będzie. Tutaj mała wskazówka:

                                                                                  *

                                                                                 ***

                                                       *****                 i nic już więcej nie podpowiem.

 

Można całą dotychczasową wiedzę z sobą łączyć, tworząc już kolorowe programy. Poćwiczcie trochę, a za miesiąc zajmiemy się dodawaniem, odejmowaniem i takimi tam rzeczami.

 

LISTY OD CZYTELNIKÓW

 

TUTAJ ZNAJDĄ SIĘ LISTY

                                                                                               7 - MAŁY - 7   Maly-7@go2.pl