Wykład 4

●
●
TYPY PROSTE
typy rzeczywiste
(Real, Single, Double, Extended, Comp)
typy porządkowe:
● typy całkowite
(Integer, ShortInt, Byte, Word, LongInt)
● typ logiczny (Boolean)
● typ znakowy (Char)
● typ wyliczeniowy
● typ okrojony

ZAKRESY TYPÓW
ShortInt -128 127 1 bajt
Byte 0 255 1 bajt
Integer -32768 32767 2 bajty
Word 0 65535 2 bajty
LongInt -2147483648 2147483647 4 bajty
Real 2.9e-39 1.7e38 6 bajtów
Single 1.5e-45 3.4e38 4 bajty
Double 5.0e-324 1.7e308 8 bajtów
Extended 3.4e-4932 1.1e4932 10 bajtów
Comp -9.2e18 9.2e18 8 bajtów

DEFINICJE TYPÓW
type
nazwa_typu_1 = opis_typu_1;
nazwa_typu_2 = opis_typu_2;
...
nazwa_typu_n = opis_typu_n;
W Pascalu możemy definiować własne typy.
Definicje typów umieszczamy pomiędzy
deklaracjami modułów i częścią wykonawczą
programu (część wykonawcza programu zaczyna
się od słowa begin i kończy słowem end)

DEFINICJE TYPÓW c.d.
Przykład:
program moje_nazwy_typów;
uses crt;
type
tab10x10int = array [1..10, 1..10] of integer;
l_calkowite = integer;
l_rzeczywiste = real;
var
tab : tab10x10int;
tab2 : array [1..5] of l_calkowite;
liczba : l_rzeczywiste;
liczba2 : real;
begin

TYP WYLICZENIOWY
type identyfikator_typu = (lista_identyfikatorów);
Zbiór wartości typu wyliczeniowego tworzą
identyfikatory wymienione na liście
identyfikatorów (oddzielone przecinkami)
Przykłady:
type miesiace = (styczen, luty, marzec, kwiecien, maj,
czerwiec, lipiec, sierpien, wrzesien,
pazdziernik, listopad, grudzien);
tydzien = (poniedzialek, wtorek, sroda, czwartek,
piatek, sobota, niedziela);

TYP OKROJONY
type identyfikator_typu = stala1 .. stala2;
Typ okrojony służy do ograniczania zakresu
wartości dowolnego typu porządkowego do
wartości zawartych w przedziale
. Typ porządkowy, którego
zakres ograniczamy nazywamy typem bazowym.
Obie stałe muszą być tego typu.
Przykłady:
type dni_robocze = poniedzialek .. piatek;
litery = 'a' .. 'z';
od_0_do_100 = 0 .. 100;

program typy;
type
kolory = (k_bialy, k_czarny, k_czerwony,
k_zielony, k_niebieski, k_zolty,
k_rozowy, k_pomaranczowy);
kolory_rgb = k_czerwony .. k_niebieski;
var
wybrany : integer;
kolor1 : kolory;
kolor2 : kolory_rgb;
begin
write ('Wybierz pierwszy kolor: ');
readln (wybrany);
case wybrany of

1 : kolor1 := k_bialy;
2 : kolor1 := k_czarny;
3 : kolor1 := k_czerwony;
4 : kolor1 := k_zielony;
5 : kolor1 := k_niebieski;
6 : kolor1 := k_zolty;
7 : kolor1 := k_rozowy;
8 : kolor1 := k_pomaranczowy;
else : kolor1 := k_bialy;
end;
if kolor1 = k_niebieski then
writeln ('Wybrałeś niebieski kolor');
readln;
end.

TYP ŁAŃCUCHOWY
type identyfikator_typu = string [rozmiar];
type identyfikator_typu = string;
Zbiorem wartości typu string są napisy długości
nie większej niż podany rozmiar. Jeśli nie został
podany rozmiar, to domyślnie wynosi on 255- to
największa liczba znaków, jaką może zawierać
napis. Zmienna typu string zajmuje w pamięci
tyle bajtów, ile wynosi podany rozmiar plus jeden
dodatkowy bajt, w którym pamiętana jest
faktyczna długość przechowywanego napisu.

program napisy;
type krotki_napis = string [20];
dlugi_napis = string [40];
var
imie : krotki_napis;
nazwisko : dlugi_napis;
adres : string [100];
begin
write ('Podaj swoje imię: '); readln (imie);
write ('Podaj swoje nazwisko: '); readln (nazwisko);
writeln ('Nazywasz się: ', imie, ' ', nazwisko);
writeln ('Dlugość Twojego imienia: ', length (imie));
writeln ('Dlugość nazwiska: ', length (nazwisko));
end.

OPERACJE NA NAPISACH
● a + b konkatenacja a i b (łączenie napisów)
● a = b, a b a równe b, a różne od b
● a < b, a b, a >= b a większe b, a większe równe b
Wynik porównania dwóch napisów jest
wynikiem porównania dwóch pierwszych
różniących się znaków w tych napisach. Jeśli
wszystkie kolejne znaki są równe, ale napis a jest
krótszy od napisu b, to mniejszy jest napis a.

OPERACJE NA NAPISACH c.d.
Przykłady
wyr := 'abc' 'ABC'; {True}
wyr := 'M'+'ar'+'ek' = 'Marek'; {True}
wyr := 'abc' < 'abcd'; {True}
wyr := 'abce' > 'abcd'; {True}
wyr := 'Ela' < 'Ola'; {True}
wyr := 'sosna' > 'solna'; {True}

TYP ZBIOROWY
type nazwa_typu = set of typ_porzadkowy;
Zbiorem wartości typu zbiorowego są wszystkie
podzbiory typu_porzadkowego w tym zbiór pusty
Typ_porzadkowy, który jest typem bazowym typu
zbiorowego może zawierać nie więcej niż 256
elementów, których liczby porządkowe muszą
zawierać się w przedziale
Wartości typu zbiorowego zapisujemy, wypisując
w nawiasach kwadratowych elementy zbioru
oddzielone przecinkami.

OPERACJE NA ZBIORACH
● a + b suma zbiorów a i b
● a – b różnica zbiorów a i b
● a * b iloczyn zbiorów a i b
● a = b równość zbiorów a i b
● a b różność zbiorów a i b
● a = b zawieranie zbioru b w zbiorze a
● el in a przynależność el do zbioru a

program zbiory;
type
dni_t = (pn, wt, sr, czw, pt, sob, nd);
zb_dni_t = set of dni_t;
var
dni, dni_wsz : zb_dni_t;
m_wolne, n_wolne, wolne, spokoj : zb_dni_t;
dzien : dni_t;
moje_dni_prac, jej_dni_prac : set of pn .. sob;
begin
dni := [pn, sr, pt]; dzien := nd;
moje_dni_prac := [pn..czw]; jej_dni_prac := [wt..pt];
dni_wsz := [pn, wt, sr, czw, pt, sob, nd];
m_wolne := dni_wsz – moje_dni_prac;

n_wolne :=dni_wsz–(moje_dni_prac+jej_dni_prac);
wolne := dni_wsz-(moje_dni_prac*jej_dni_prac);
spokoj := (dni_wsz-moje_dni_prac)*jej_dni_prac;
if pn in wolne then
writeln ('W poniedziałek masz wolne.');
if spokoj = [] then
writeln ('To dobrze czy zle???');
if moje_dni_prac

program kalendarz;
var rok : integer;
begin
readln (rok);
if rok > 1582 then
if (rok mod 4 = 0) and (rok mod 100 0)
or (rok mod 400 = 0) then
writeln (rok, ' jest rokiem przestępnym')
else
writeln (rok, ' jest rokiem zwyklym')
else
writeln ('Obowiązywał kalendarz juliański');
readln;
end.

Inny sposób na sprawdzanie “przestępności” roku:
if rok > 1582 then
if rok mod 400 = 0 then
writeln (rok, ' jest rokiem przestępnym')
else
if rok mod 100 = 0 then
writeln (rok, ' jest rokiem zwykłym')
else
if rok mod 4 = 0 then
writeln (rok, ' jest rokiem przestępnym')
else
writeln (rok, ' jest rokiem zwykłym')
else
writeln ('Obowiązywał kalendarz juliański');