Nazwisko i imię

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

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:

for f := -5 to 4 do wa[f+6] := abs (f + 2) ;

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 (alfa:1) ;

b) pozytywne := (alfa = A) or (alfa = B);

c) assign (beta ; plik) ;

d) i := i / 5;

e) liczba = 5E10 - 2 ;

f) if pozytywne=true then write ( beta , nazwisko, ocena ) ;

g) wykaz (student :10) ;

h) spis := 5;

i) liczba := sin(pi*alfa) ;

j) repeat liczba:=5 until i = 0 ;

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

program p4;

var c, d, e :integer;

begin

c := 4 ;

d := 2 ;

e := 0;

repeat

if e < -5 then c := c -1 ;

d := d + 1 ;

e := e - d

until c<= 2;

writeln (c:10 , c:10 , e:10)

end.

Krok	c	d	e
1	4	2	0
2
3
4
5
6
7
8
9
10
wartości drukowane

5. [7 p] Napisać tekst programu, w którym przy pomocy iteracji wypełniona zostanie tablica o rozmiarze 2 x 10 według poniższego wzoru:

1	3	5	7	...	17	19
19	17	15	13	...	3	1

D

1

2

3

4

5

---