Ćwiczenie 9.doc

Ćwiczenie 9   11.12.08.

Zadanie1

program zad1;

uses crt;

var x,f1,f2:real;

var n,sn,k:integer;

begin

clrscr;

writeln ('podaj wartosc n');

readln (n);

writeln ('podaj wartosc x');

readln (x);

sn:=1;

for k:=2 to n do

begin

sn:=sn*k;

end;

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

f2:=sn*sqr(cos(x));

if f1>f2 then

begin

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

readln;

end;

if f1<f2 then

begin

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

readln;

end;

end.

Zadanie 2

program zad2;

uses crt;

var x,f:real;

var k,n:integer;

begin

clrscr;

writeln ('Podaj x');

readln (x);

writeln ('Podaj n');

readln (n);

if x=0 then

f:=0;

if x>0 then

begin

for k:=1 to n do

begin

if k MOD 2=0 then

f:=f+k*(x+1)

else

f:=f-k*(x+1);

end;

end;

if x<0 then

begin

for k:=1 to n do

f:=f+((k*sqr(x))/2);

end;

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

readln;

end.

Zadanie 2b

program zad2b;

uses crt;

var x,f:real;

var k,n:integer;

begin

clrscr;

writeln ('Podaj x');

readln (x);

writeln ('Podaj n');

readln (n);

if x=0 then

f:=0;

for k:=1 to n do

if x>0 then

if k MOD 2=0 then

f:=f+k*(x+1)

else

f:=f-k*(x+1)

else

f:=f+((k*sqr(x))/2);

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

readln

end.

Zadanie3

program zad3;

uses crt;

var n,k:integer;

var x,y,r,alfa:real;

label 10,20;

begin

clrscr;

writeln ('Podaj liczbe punktow');

readln (n);

for k:=1 to n do

begin

20:

writeln ('Podaj x,y',k:2,'punktu');

readln (x,y);

if (x=0) and (y=0) then

begin

writeln ('zle dane');

readln;

goto 20

end;

if (x=0) and (y>0) then

begin

r:=y;

alfa:=0.5*pi;

goto 10

end;

if (x=0) and (y<0) then

begin

r:=abs(y);

alfa:=1.5*pi;

goto 10

end;

r:=sqrt(x*x+y*y);

alfa:=arctan(y/x);

10:

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

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

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

writeln ('alfa=',alfa*200/pi:0:5);

readln;

end;

end.

Zadanie 4

program zad4;

uses crt;

var k,m,n:integer;

var r:real;

var l:array[1..20] of real;

begin

clrscr;

writeln ('ilosc liczb');

readln (n);

for k:=1 to n do

begin

writeln ('liczba',k:2);

readln (l[k]);

end;

for k:=1 to n-1 do

for m:=k+1 to n do

if l[k]>l[m] then

begin

r:=l[k];

l[k]:=l[m];

l[m]:=r;

end;

writeln ('zbior posortowany');

for k:=1 to n do

writeln (l[k]:0:2);

readln;

end.