Nazwisko i imię

1. [4 p] Podać „pascalową” postać nastepującego wyrażenia:

+ 2,5 ^.10⁸

2. [4 p] Dla tablicy zadeklarowanej jako:

var wa : array [ 1 .. 10 ] of integer ;

wypisz jakie wartości przyjmują elementy tablicy wa po wykonaniu instrukcji:

v := 11;

while v > 1 do

begin

v := v - 1;

wa [v] := v + sqr(v ­­-1)

end;

3. [10 p] Przy założeniu następujących deklaracji:

type wektory = array [ 1 .. 10, 1 .. 10 ] of real ;

osoba = record

nazwisko : string [15] ;

ocena : 2 .. 5 ;

end;

var i : integer ;

liczba : real ;

alfa : char ;

pozytywne : boolean ;

student : osoba ;

tab : wektory ;

spis : set of 1 .. 20 ;

beta : file of osoba ;

procedure wykaz (y:osoba);

begin

writeln(y.nazwisko);

writeln(y. ocena)

end;

opisz wszystkie błędy w następujących instrukcjach lub zaproponuj zbliżoną, poprawną ich postać:

a) read ( student ) ;

b) assign ( beta ) ;

c) i := i / 3 ;

d) write ( beta , `Kowalski') ;

e) wykaz ( student.nazwisko ) ;

f) i := 16 mod 5 + 2.3;

g) if student.nazwisko:=Nowak then pozytywne := true ;

h) while i = 50 do i + 5 ;

i) spis := [1 , 3 , 5] / [3] ;

j) with student do writeln (ocena:10:2);

4. [5 p] Zbadaj jak zmieniają się wartości zmiennych i, j, k w trakcie wykonywania poniższego programu, wypełnij tabelkę dla każdej zmiany i określ ostateczne wartości wydrukowane na ekranie:

program p2;

var i, j, k :integer;

begin

i := 0 ;

j := 4 ;

k := 0;

repeat

if k > 5 then i := i +1 ;

j := j -1 ;

k := k + j

until i >= 1 ;

writeln (i:10 , j:10 , k:10)

end.

krok	i	j	k
1	0	4	0
2
3
4
5
6
7
8
9
10
Wartości drukowane

5. [7 p] Napisać tekst programu, którego zadaniem będzie przeczytanie podanej z klawiatury liczby rzeczywistej, zbadanie czy mieści się ona w przedziale od 0 do 100 oraz wypisanie na ekranie odpowiedniego komunikatu.

B

1

2

3

4

5

---