Ćwiczenie 6.doc

Ćwiczenie 6  13.11.08.

Zadanie1

Program zadanie1;

uses crt;

var w,x,sinx,cosx,e,a,b:real;

begin

clrscr;

writeln ('Podaj x=');

readln (x);

a:=sqr(x)*sin(sqr(x));

b:=sqr(1+cos(x));

w:=((a+exp(a))*(sqr(sqr(x))+exp(sqr(sqr(x)))))/(b+exp(b)+2+exp(2));

writeln ('w=',w:0:5);

readln

end.

Zadanie2

program zadanie2;

uses crt;

var C,B,A,DX,DY,XA,YA,XB,YB,XP,YP,CA,CB,CP,P4:real;

begin

clrscr;

writeln ('Podaj X,Y punktu lewego');

readln (XB,YB);

writeln ('Podaj X,Y punktu prawego');

readln (XA,YA);

writeln ('Podaj odleglosc od punktu lewego');

readln (A);

writeln ('Podaj odleglosc od punktu prawego');

readln (B);

DX:=XB-XA;

DY:=YB-YA;

C:=sqrt(sqr(DX)+sqr(DY));

CA:=sqr(C)+sqr(B)-sqr(A);

CB:=sqr(A)+sqr(C)-sqr(B);

CP:=sqr(A)+sqr(B)-sqr(C);

P4:=sqrt(CA*CB+CB*CP+CA*CP);

XP:=(XA*CB+XB*CA+P4*(YA-YB))/(CA+CB);

YP:=(YA*CB+YB*CA+P4*(XB-XA))/(CA+CB);

writeln ('XP=',XP:0:2);

writeln ('YP=',YP:0:2);

readln

end.

Zadanie3

program zadanie3;

uses crt;

var a,b,c,s,p,p1:real;

begin

clrscr;

writeln ('Podaj a=');

readln (a);

writeln ('Podaj b=');

readln (b);

writeln ('Podaj c=');

readln (c);

s:=0.5*(a+b+c);

p:=sqrt(s*(s-a)*(s-b)*(s-c));

p1:=p/10000;

writeln ('p1=',p1:0:4,'ha');

readln

end.