ZAD 1 W OZNACZONYCH MIEJSCACH PROGRAMU WPISZ JAKIE BĘDĄ WARTOŚCI ZMIENNYCH X,Y,Z ODP: 16 3 8 i 11 3 9 i 2 4 0 varx,y,z:word; koniec: boolean; function jeden(vara,b:Word):WOrd; var c:word; begin a:=a+b; c:=a+2; b:=a+c; jeden:=b+b; end; procedure dwa(vara,b,c:word); begin while c>a do begin a:=a+1; b:=a-b; c:=c-2; end; end; procedure trzy(a:word; varb,c:word); begin repeat koniec:=a>c; a:=a+1; c:=c-1; b:=c+a; until koniec; end; begin x:=7; y:=1; z:=2; x:=jeden(y,z); Writeln(x,' ',y,' ',z); x:=10; y:=8; z:=11; dwa(x,y,z); Writeln(x,' ',y,' ',z); x:=2; y:=6; z:=2; trzy(x,y,z); Writeln(x,' ',y,' ',z); readln; end.	ZAD 2 PRZEPROWADZIĆ ANALIZĘ PROGRAMU. JAKA WARTOŚĆ ZMIENNEJ S ZOSTANIE WYPISANA NA EKRANIE. Type Dane = rekord a: Byte; b: Array[1..10] of Byte; end; var d: Dane; f: File of Dane; g: Text; I,j,s:Byte; Begin Assign(f,’a.dat’); Rewrite(f); for i:=1 to 4 do begin d.a:=i; for j:=1 to 10 do d.b[j]:=j+2; Write(f,d); End; Close(f); Reset(f); I:=0; s:=0; While not Eof (f) do Begin I:=i+1; Read(f,d); If d.a<4 then s:=s+d.b[6] Else s:=s-d.b[2]; End; Close(f); Writeln(‘s = ‘,s); End. ODP d.a=1 d.b[1]=3 d.b[2]=4 d.b[3]=5 d.b[4]=6 d.b[5]=7 d.b[6]=8 d.b[7]=9 d.b[8]=10 d.b[9]=11 d.b[10]=12 d.a=2 d.b[1]=3 d.b[10]=12 d.a=3 d.b[1]=3 d.b[10]=12 d.a=4 d.b[1]=3 d.b[10]=12 d.a 1<4 tak s=0+8=8 d.a 2<4 tak s=8+8=16 d.a 3<4 tak s=16+8=24 d.a 4<4 nie s=24-4=20	ZAD 3 DANA JEST DWUWYMIAROWA ZMIENNA TABLICOWA X O WYMIARACH wX wierszy i kY KOLUMN. NAPISAĆ DEF. FUNKCJI ZWRACAJĄCEJ SUMĘ ELEMENTOW TEJ MACIERZY. MACIERZ X ORAZ JEJ WYMIARY NALEŻY PRZEKAZAĆ DO FUNKCJI ZA POMOCĄ PARAMETRÓW FORMALNYCH. Type Macierz = Array[1..40,1..50]of real; Var X: Macierz; wX,kX:byte; ODP: FUNCTION SUMA(X: Macierz; wX,kX:byte;): real; Vari,j:byte;sm:real; Begin Sm:=0; For i:=1 to wX do For j:=1 to kX do Sm:= A[i,j]+ sm Suma:=sm; End; ZAD 7 NAPISAĆ DEF PROCEDURY KTÓRA DO PLIKU TEKSTOWEGO ZAPISUJE LICZBY CAŁKOWITE Z ZAKRESU OD 20 DO 60( W POJEDYNCZYM WIERSZU JEDNA LICZBA) ODP:procedure liczby; var f:text; i:byte; begin assign(f,'plik.txt'); rewrite(f); for i:=20 to 60 do writeln(f,i); close(f); end;	ZAD 4 NAPISAĆ DEFINICJĘ FUNKCJI KTÓRA OBLICZA SUMĘ DWÓCH LICZB RZECZYWISTYCH PRZEKAZYWANYCH DO FUNKCJI PRZEZ PARAMETRY ODP: function suma(n,m: real):real; begin suma:=n+m; end; ZAD 5 NAPISAĆ DEFINICJĘ PROCEDURY KTÓRA ZWRACA DWIE LICZBY CAŁKOWITE OD NIEJ PRZEKAZANE POWIEKSZONE O ICH SUMĘ. ODP: procedurepow(varn,m:integer); varsuma:integer; begin suma:=n+m; n:=n+suma; m:=m+suma; end; ZAD 6 NAPISAĆ DEF. PROCEDURY KTÓRA DO PLIKU ZDEF ZAPISUJE LICZBY CAŁKOWITE Z ZAKRESU OD 10 DO 50 ODP: type dane=record liczba:byte; end; procedure plik; var i:byte; f: file of dane; d:dane; begin assign(f,'plik.dat'); rewrite(f); for i:=10 to 50 do begin d.liczba:=i; write(f,d); end; close(f); end;