Egzamin z przedmiotu Podstawy Programowania Komputerów, część teoretyczna termin I
INFORMATYKA, SEMESTR 1, ROK AKADEMICKI 2008/2009
Imię, nazwisko: str. 1/3
1. Dane są definicje elementu listy liniowej jednokierunkowej oraz procedura drukuj_liste.
type
wsk_elem = ^elem;
elem = record
x : integer;
nast : wsk_elem;
end;
procedure drukuj_liste(glowa : wsk_elem);
begin
if (glowa <> nil) then
begin
writeln(glowa^.x);
drukuj_liste(glowa^.nast);
writeln(glowa^.x);
end;
end;
Jakie wartości zostaną wypisane na ekranie, jeżeli wywołana zostanie procedura drukuj_listę do
której przekazywany zostanie wskaz
nik do głowy następującej listy: (1 punkt)
głowa
1 2 3 4 5
nil
2. Dana jest sekcja deklaracji pewnego programu. Dla każdej deklaracji zaznacz czy jest ona
poprawna, a jeżeli jest niepoprawna to uzasadnij dlaczego (2 punkty).
type
liczby = integer;
skala = -5.5..5.5;
char = 'a'..'z';
LICZBY : 100..200;
const
cyfry : '0'..'9' = '5';
procedura = 'procedure';
var
_1 : liczby;
end : char;
R : record;
px : @real;
3. Zastąp poniższą instrukcję warunkową przez równoważną konstrukcję wykorzystującą typ
zbiorowy języka Pascal. (1 punkt)
if (znak >=  a ) and (znak <=  z ) or (znak >=  A ) and (znak <=  F ) then
Egzamin z przedmiotu Podstawy Programowania Komputerów, część teoretyczna termin I
INFORMATYKA, SEMESTR 1, ROK AKADEMICKI 2008/2009
Imię, nazwisko: str. 2/3
4. W pamięci komputera została utworzona następująca lista liniowa. Zapisz deklaracje typów
potrzebnych do stworzenia takiej listy (1 punkt).
głowa
nil
imię: imię: imię: imię:
Jan Anna Joanna Piotr
nazwisko: nazwisko: nazwisko: nazwisko:
Kowalski Nowak Kowalska Nowak
mężczyzna: mężczyzna: mężczyzna: mężczyzna:
true false false true
kategoria nazwisko nazwisko kategoria
'A' Nowacka Kowal 'A'
wojskowa: panieńskie: panieńskie: wojskowa:
5. Co zostanie wyświetlone na ekranie dla poniższego kodu (2 punkty):
program test;
var x : integer;
y : ^integer;
begin
y := @x;
x := 31;
writeln(2 * (x div 2), ' ', x mod 2);
y^ := 11;
x := x shr 2;
writeln(x, ' ', y^);
end.
6. Stosując pętlę while zapisz tekst programu o identycznym działaniu do programu podanego
poniżej (1 punkt).
program testowy;
var suma, ile, x : integer;
begin
suma := 0; ile := 0;
repeat
read(x);
suma := suma + x;
inc(ile);
until x = 0;
writeln(suma / ile);
end.
7. Dany jest zestaw liczb: 7, 10, 11, 16, 20, 21, 22, 27, 28, 31, 36. Podaj w jakiej kolejności należy
jest wstawiać do drzewa poszukiwań binarnych tak, aby długość drogi z korzenia do każdego liścia
znajdującego się w jego lewym poddrzewie była równa 2, a do każdego liścia znajdującego się w
jego prawym poddrzewie równa 3. Narysuj to drzewo. (2 punkty)
Egzamin z przedmiotu Podstawy Programowania Komputerów, część teoretyczna termin I
INFORMATYKA, SEMESTR 1, ROK AKADEMICKI 2008/2009
Imię, nazwisko: str. 3/3