DSCN1065

Readln(nr [k] ,wyka*Ik,l] ,wyka*[k,2] ,wykaz[k,3] ł ; end;

-Zad 2.

Dana jest procedura pole.

Procedurę pole(a,b:real;Var P:reał);

Begjn

P:=a*b

End;

“-Napisać funkcję niestandardową pole realizującą ten sam algorytm.

'• Napisać program na wyznaczenie pola kompleksu składającego się z N działek w kształcie prostokąta z wykorzystaniem wybranego podprogramu -procedury lub funkcji. Dane: N -liczba działek ,

ai.bj ,82,b2,.. •BN.bN * wymiary kolejnych działek.

Zad3.

Określić postać funkcji wyznaczanej przedstawionym programem: program zadanie2; nsesert; var a,f:real; k^mńntcger; tebgin

clrscr;    *

writela ('podaj argument a i zakres funkcji m'); readln(a,m); for fc-l to m do if (k dłv 2)*2-k then

f:-f*a*k*EXP(2*aVsqiKI+sqr<k)*k)

ebe

fc-f-<2*k*EXP(2*a)ysqrt(I+sqrik)*k):

writdn CNW.-fcS);

readln;