75 (174)

Rozdział 4. • Zagadnienia trudniejsze 111

uses

Crt; var

Miesiąc : Byte;

NazwaMiesiaca : String;

begin

ClrScr;

1	NazwaMiesiaca	- 'styczeń';
2	NazwaMiesiaca	- 'luty';
3	NazwaMiesiaca	- 'marzec';
4	NazwaMiesiaca	- 'kwiecień';
5	NazwaMiesiaca	- 'maj';
6	NazwaMiesiaca	- 'czerwiec';
7	NazwaMiesiaca	- 'lipiec ' ;
8	NazwaMiesiaca	- 'sierpień ' ;
9	NazwaMiesiaca	- 'wrzesień' ;
10	NazwaMiesiaca	- 'październik'
11	NazwaMiesiaca	- 'listopad ' ;
12 else	NazwaMiesiaca	- 'grudzień ' ;

Write ('Podaj numer miesiąca: '); Readln (Miesiąc); case Miesiąc of

NazwaMiesiaca 'nieokreślony'; end;

Writeln ('Miesiąc ', Miesiąc, ': ', NazwaMiesiaca); Readln; end.

ĆWICZENIE

4.21

Sterowanie ruchem gwiazdki

Napisz program, który umożliwi sterowanie ruchem gwiazdki na ekranie za pomocą klawiatury, z wykorzystaniem instrukcji wyboru.

Pomysł na napisanie programu jest następujący: w pętli będziemy czytać znak z klawiatury i w zależności od niego przemieszczać gwiazdkę. Aby w zależności od wciśniętego klawisza przesuwać gwiazdkę w różne strony, wykorzystamy instrukcję wyboru. Samo przesunięcie gwiazdki zrealizujemy w następujący sposób: przesuniemy kursor w bieżące położenie gwiazdki i wypiszemy spację. W ten sposób gwiazdka zniknie. Następnie ustalimy nowe współrzędne, przeniesiemy tam kursor i wypiszemy nową gwiazdkę. Użytkownik programu będzie to obserwował jako jej przesunięcie.

program cw4_21;

{ Program umożliwiający sterowanie za pomocą klawiatury }

{ ruchem gwiazdki na ekranie, z wykorzystaniem instrukcji }

{ wyboru.    }

{ Katalog r4_04 : 4_21.pas    }

uses

Crt;

var

Znak : Char;

X, Y : Byte;

procedurę Przesuń (dX, dY : Integer);

{ Procedura przesuwa gwiazdkę o dX znaków } { w poziomie i dY w pionie. Zmienia wartość } { globalnych zmiennych X i Y. Sprawdza, czy } { gwiazdka nie wyskoczy poza ekran.    }