Ćwiczenie 7.doc

Ćwiczenie 7  20.11.2008.

Zadanie1

Program funkcja1;

uses crt;

var x,f:real;

begin

clrscr;

writeln ('Podaj argument x');

readln (x);

if x>0 then

f:=exp(0.2*ln(x))*(1+sqrt(1+sqrt(x)))

else

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

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

readln

end.

Zadanie2

program funkcja2;

uses crt;

var x,f:real;

begin

clrscr;

writeln ('Podaj x');

readln (x);

if x<=0 then

begin

f:=0;

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

end;

if (x>0) and (x<1) then

begin

f:=(x*(1-x))*((1+sin(1+x*x))/(1+x*x));

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

end;

if (x>=1) and (x<2) then

begin

f:=(1-x)*(x-2)*(ln(1+x*x)/ln(10));

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

end;

if (x>=2) and (x<10) then

begin

f:=(x-2)*exp(1)*((x-10)/(1+x*x));

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

end;

if x>=10 then

begin

f:=8+((x-10)/(1+x*x));

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

end;

readln

end.

Zadanie3

program pierwiastki;

uses crt;

var a,b,c,x1,x2,x,d:real;

begin

clrscr;

writeln ('Podaj wspolczynniki');

readln (a,b,c);

if a=0 then

begin

writeln ('Jest to rownanie liniowe');

readln;

exit

end;

d:=b*b-4*a*c;

if d<0 then

begin

writeln ('Brak rozwiazan rzeczywistych');

readln;

end;

if d=0 then

begin

x:=(-b)/(2*a);

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

readln;

end;

if d>0 then

begin

x1:=(-b-sqrt(d))/(2*a);

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

x2:=(-b+sqrt(d))/(2*a);

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

readln;

end;

readln

end.