Ćwiczenie 5 6.11.08
Zadanie 1
Program dlugosc;
Uses CRT;
Var x1,y1,x2,y2,d,dx,dy: real;
Begin
CLRSCR;
WRITEln ('Podaj x,y punktu poczatkowego');
Readln (x1,y1);
WRITEln ('Podaj x,y punktu koncowego');
Readln (x2,y2);
dx:=x2-x1;
dy:=y2-y1;
d:=sqrt(dx*dx+dy*dy);
writeln ('d=',d);
writeln ('d=',d:0:3);
readln
END.
Zadanie 2
program funkcja;
uses crt;
var x,f,a,b,c:real;
begin
clrscr;
writeln ('Podaj x=');
readln (x);
a:=1/(1+sqr(sin(x)));
b:=2/(2+sqr(cos(x)));
c:=(1+sqr(sin(sqr(x))))/(sqrt(1+sqr(cos(sqr(x)*x))));
f:=(a+b)*c;
writeln ('f=',f:0:5);
Readln
End.
Zadanie 3
program potega;
var x,f1,f2,f3,f4:real;
f1:=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;
f2:=(sqr(sqr(sqr(sqr(x)))))/x;
f3:=(exp(14*ln(ABS(x)))*x);
f4:=sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*sqr(x)*x;
writeln ('f1=',f1:0:5);
writeln ('f2=',f2:0:5);
writeln ('f3=',f3:0:5);
writeln ('f4=',f4:0:5);
end.
rako91