Zadanie 1

program funkcja1;

uses CRT;

var x,f1,f2,f3:real;

begin

CLRSCR;

writeln('podaj x');

readln(x);

f1:=sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*x;

f2:=sqr(sqr(sqr(sqr(x))))/(sqr(x)*x);

f3:=exp(12*ln(abs(x)))*x;

writeln('f1=',f1:10:5);

writeln('f2=',f2:10:5);

writeln('f3=',f3:10:5);

readln

end.

Zad2

program punkt;

uses crt;

var xj,yj,xk,yk,xp,yp,d,l,dxjp,dyjp,dxjk,dyjk,ca,sa:real;

begin

clrscr;

write('podaj x,y punktu poczatkowego i koncowego lini');

readln(xj,yj,xk,yk);

dxjk:=xk-xj;

dyjk:=yk-yj;

l:=sqrt(sqr(dxjk)+sqr(dyjk));

ca:=dxjk/l;

sa:=dyjk/l;

write('podaj odleglosc od punktu d');

readln(d);

dxjp:=d*ca;

dyjp:=d*sa;

xp:=xj+dxjp;

yp:=yj+dyjp;

writeln('x=',xp:10:2);

writeln('y=',yp:10:2);

readln

end.

Zad3

program funkcja;

uses crt;

var x,f:real;

begin

CLRSCR;

writeln('podaj x');

readln(x);

f:=x*sqr(1+sqr(x))/1+sqr(sin(sqr(x)))*(1+Ln(sqrt(1+2*sqr(x))));

writeln('x=',f:10:5);

readln

end.

Zad4

program wciecie;

uses crt;

var xa,ya,xb,yb,alfa,beta,cta,ctb,m,xp,yp:real;

begin

clrscr;

writeln('podaj wspolrzedne punktu lewego');

readln(xa,ya);

writeln('podaj wspolrzedne punktu prawego');

readln(xb,yb);

writeln('podaj kat na punkcie lewym (w gradach)');

readln(alfa);

writeln('podaj kat na punkcie prawym (w gradach)');

readln(beta);

cta:=(cos(alfa/63.66))/(sin(alfa/63.66));

ctb:=(cos(beta/63.66))/(sin(beta/63.66));

m:=cta+ctb;

xp:=(xb*cta+xa*ctb+yb-ya)/m;

yp:=(yb*cta+ya*ctb-xb+xa)/m;

writeln('xp=',xp:6:2,'yp=',yp:6:2);

readln

end.

Zad5

program punkt;

uses crt;

var xj,yj,xk,yk,xp,yp,d,l,dxjp,dyjp,dxjk,dyjk,ca,sa:real;

begin

clrscr;

writeln('podaj x,y punktu poczatkowego i koncowego lini');

readln(xj,yj,xk,yk);

dxjk:=xk-xj;

dyjk:=yk-yj;

if(dxjk=0)and(dyjk=0)

then

begin

writeln('prosta nie istnieje');

readln;

exit

end;

l:=sqrt(sqr(dxjk)+sqr(dyjk));

ca:=dxjk/l;

sa:=dyjk/l;

write('podaj odleglosc od punktu d ');

readln(d);

dxjp:=d*ca;

dyjp:=d*sa;

xp:=xj+dxjp;

yp:=yj+dyjp;

writeln('x=',xp:10:2);

writeln('y=',yp:10:2);

readln

end.

---