Zad 1

W wyznaczonym (…) miejscu programu wpisać jakie wartości będą miały zmienne: x,y,z,

Program test;

Var: x,y,z: Word;

Procedure: liczy (a:Word; var: b,c: word;);

Var: z:word;

Begin

Repeat

a:=a+1; b:=c+a; c:=b+a;

until b>5;

end;

begin

x:= 1; y:=2; z:=3;

licz(x,y,z);

{x=…1 y=10… z=13…}

End.

Zad 2

Napisać ciąg instrukcji, który realizuje następujące zadanie:

W zależności od wartości zmiennej a typu Word, należy nadać wartość zmiennej b typu Byte, wg następujących zasad:

Jeżeli a jest z zakresu od 1 do 5 b=1

Jeżeli a jest z zakresu od 10 do 20 b=2

Jeżeli a jest większe od 40 b=3

Należy zwrócić uwagę, że w pewnych przypadkach zmienna b nie jest określona.

Zadanie należy zrealizować przy wykorzystaniu instrukcji wyboru case.

var

a: Word;

b: Byte;

begin

case a of

1..5: b := 1;

10..20: b := 2;

0, 21..39: ;

else

b := 3;

end;

end;

Zad 3

Poniższą instrukcję zapisać przy pomocy instrukcji iteracyjnej While

For i:=5 to 25 do Write (i*i)

zamiana

i:=4;

while i<=25 do

write (i*i);

Zad 4

Napisać definicje funkcji C zwracającej wartość A+B

A i B są typu Real

Dane należy przekazać do funkcji za pomocą parametrów formalnych.

Function C( A,B: real): real;

Var C:Real;

Begin

C:=A+B;

End;

Zad 5

Dany jest 30-elementowy wektor W liczb rzeczywistych. Napisać program, którego zadaniem jest obliczenie sumy elementów tego wektora.

program wektor;

UsesCrt;

Var W: array[1..30] of real;

Suma : real;

i: integer;

begin

ClrScr;

Begin

For i:=1 to 30 do

… dalej nie wiem

Zad 6

Do pliku tekstowego X.txt zapisać (w kolumnie) liczby całkowite z zakresu od 10 do 200.

Program zapis;

var