Programy3.doc

program czebyszew;

uses crt;

const n=3;

var

i,j,k:integer;

wsp,ww,www,c:real;

x,y,w,a:array[0..3] of real;

z:array[0..3,0..3] of real;

function T0(y:real):real;

begin

T0:=1/sqrt(2);

end;

function T1(y:real):real;

begin

T1:=y;

end;

function t2(y:real):real;

begin

t2:=2*(sqr(y))-1;

end;

function t3(y:real):real;

begin

t3:=4*Y*Y*Y-3*Y;

end;

{ PR.G }

begin

clrscr;

wsp:=1/2;

for i:=0 to 3 do

begin

x[i]:=cos(((2*i+1)/8)*pi);

end;

for j:=0 to 3 do

begin

z[0,j]:=wsp*t0(x[j]);

z[1,j]:=wsp*t1(x[j]);

z[2,j]:=wsp*t2(x[j]);

z[3,j]:=wsp*t3(x[j]);

end;

write('podaj y[i]');

for i:= 0 to 3 do

readln(y[i]);

for i:=0 to 3 do

begin

ww:=0;

for j:=0 to 3 do

        ww:=ww+z[i,j]*y[j];

w[i]:=ww;

end;

for i:=0 to 3 do

writeln(w[i]);

writeln('podaj x');

readln(c);

www:=w[0]*t0(c)+w[1]*t1(c)+w[2]*t2(c)+w[3]*t3(c);

writeln('wynik=',www);

repeat until keypressed;

end.

begin

clrscr;

repeat until keypressed;

end.

program trygonometryczna;

uses crt;

var

i,j,n,t:integer;

x,e,a:array[0..6] of real;

z:array[0..6,0..6] of real;

w,y,sum:real;

function b0(y:real):real;

begin

b0:=1/sqrt(2);

end;

function b1(y:real):real;

begin

b1:=sin(y);

end;

function b2(y:real):real;

begin

b2:=cos(y);

end;

function b3(y:real):real;

begin

b3:=sin(2*y);

end;

function b4(y:real):real;

begin

b4:=cos(2*y);

end;

function b5(y:real):real;

begin

b5:=sin(3*y);

end;

function b6(y:real):real;

begin

b6:=cos(3*y);

end;

begin

clrscr;

write('podaj n=');

readln(n);

w:=2/(2*n+1);

for i:=0 to 6 do

              x[i]:=(2*i*pi)/(2*n+1);

for j:=0 to 6 do

              begin

              z[0,j]:=w*b0(x[j]);

              z[1,j]:=w*b1(x[j]);

              z[2,j]:=w*b2(x[j]);

              z[3,j]:=w*b3(x[j]);

              z[4,j]:=w*b4(x[j]);

              z[5,j]:=w*b5(x[j]);

              z[6,j]:=w*b6(x[j]);

              end;

for i:=0 to 6 do

for j:=0 to 6 do

              writeln('z[',i,',',j,']=',z[i,j]:4:3);

writeln('podaj y:');

for j:=0 to 6 do

readln(e[j]);

for i:=0 to 6 do

for j:=0 to 6 do

              begin

              sum:=0;

              for t:=0 to 6 do

              sum:=sum+z[i,t]*e[t];

              a[i]:=sum;

              end;

writeln('wspolczynniki wielomianu:');

for i:=0 to 6 do

               writeln('a[',i,']=',a[i]:4:3);

end.

program czybyszew;

uses crt;

var

i,j,n,t:integer;

x,e,a:array[0..3] of real;

z:array[0..3,0..3] of real;

w,y,sum:real;

function b0(y:real):real;

begin

b0:=1/sqrt(2);

end;

function b1(y:real):real;

begin

b1:=y;

end;

function b2(y:real):real;

begin

b2:=2*y*y-1;

end;

function b3(y:real):real;

begin

b3:=4*y*y*y-3*y;

end;

begin

clrscr;

write('podaj n=');

readln(n);

w:=2/(n+1);

for i:=0 to 3 do

              x[i]:=cos(((2*i+1)/8)*pi);

for j:=0 to 3 do

              begin

              z[0,j]:=w*b0(x[j]);

              z[1,j]:=w*b1(x[j]);

              z[2,j]:=w*b2(x[j]);

              z[3,j]:=w*b3(x[j]);

              end;

for i:=0 to 3 do

for j:=0 to 3 do

              writeln('z[',i,',',j,']=',z[i,j]:4:3);

writeln('podaj y:');

for j:=0 to 3 do

readln(e[j]);

for i:=0 to 3 do

for j:=0 to 3 do

              begin

              sum:=0;

              for t:=0 to 3 do

              sum:=sum+z[i,t]*e[t];

              a[i]:=sum;

              end;

writeln('wspolczynniki wielomianu:');

for i:=0 to 3 do

               writeln('a[',i,']=',a[i]:4:3);

end.