70 (198)

106 Turbo Pascal • Ćwiczenia praktyczne

ĆWICZENIE

4.17

Określanie daty urodzenia

Napisz program, który odczyta datę urodzenia użytkownika, porówna ją z rokiem daty systemowej i wypisze jego wiek (rocznikowo).

Skorzystamy z procedury GetDate, która w jednym z parametrów przekazywanych przez zmienną poda nam bieżący rok. Zwróć uwagę, że pomimo tego, iż korzystamy tylko z roku, musimy zadeklarować i przekazać do niej zmienne dla miesiąca, dnia i dnia tygodnia.

program cw4_17;

{ Program obliczający wiek osoby na podstawie daty }

{ systemowej i podanego roku urodzenia.    }

{ Katalog r4_03 : 4_17.pas    }

uses

Crt,

Dos;

var

Rok, Miesiąc, Dzień, DzienTygodnia : Word;

RokUrodzenia : Word;

begin

ClrScr;

Write ('Podaj rok urodzenia: '); Readln (RokUrodzenia);

GetDate (Rok, Miesiąc, Dzień, DzienTygodnia);

Writeln ('Masz ', Rok - RokUrodzenia, ' lat.');

Readln;

end.

Ciekawostką jest fakt, że co prawda ten sposób odczytu daty był odporny na rok 2000, ale już na 2100 nie jest.

ĆWICZENIE

4.18

Wyświetlanie zegara

Napisz program, który na środku ekranu wyświetli działający zegar, aż do wciśnięcia klawisza przez użytkownika. Program powinien sygnalizować dźwiękowo każdą pełną godzinę.

Kolejny wygaszacz ekranu? Można to i tak nazwać. Program proponuję zrealizować w następujący sposób: w pętli będziemy odczytywać czas systemowy, przechodzić kursorem do środka ekranu i wypisywać go. Aby dać systemowi odpocząć, możemy w programie w pętli zarządzić także krótką przerwę (od niej będzie zależała płynność wyświetlania sekund). Jak widać, skorzystamy tu z funkcji zarówno z modułu Crt, aby przenieść kursor do wskazanego miejsca, no i by oczyścić ekran przed rozpoczęciem działania, oraz Dos, aby odczytać systemowy czas. W celu sprawdzenia tego komputerowego zegarka użyjemy procedury GetTime.

Jeżeli stwierdzimy, że nadeszła nowa godzina (liczba minut wynosi 0), postaramy się nakłonić program do wydania dźwięku. W tym celu posłużymy się standardowo stosowaną sekwencją:

Sound (częstotliwość);

Delay (czas);

NoSound;