Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл: Источник:
Скачиваний:
294
Добавлен:
04.03.2014
Размер:
26.62 Кб
Скачать
  • Текст программы:

type mas=array[1..10] of real;

var

s,t,a,b:real;z,c:real;n,m,l:mas;

i:byte;

function f(x,y:real):real;

begin

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

end;

function p(i:integer):real;

begin

if i=1 then p:=sqrt(2)

else p:=(p(i-1)+2*p(i-1))/(z)

end;

function H(i:integer):real;

begin

if i=1 then H:=cos(2)

else H:=(H(i-1)+sqr(H(i-1)))/(z)

end;

procedure zad (t:byte; var mt:mas);

begin

for i:=1 to t do

mt[i]:=random(20)

end;

procedure vivod (t:byte;mt:mas);

begin

for i:=1 to t do

write (mt[i]:4:0);

writeln;

end;

procedure preob (t:byte;s:real;var mt:mas);

begin

for i:=1 to t do

if mt[i] >0 then mt[i]:=mt[i]/s;

end;

begin

write('s=');

readln(s);

write('t=');

readln(t);

a:=f(s+sqr(t),t)+f(s,t);

b:=(f(s+5,t+5)/(t+s))+f(s,t);

writeln(a,b);

begin

write('z=');

readln(z);

c:=sqr(p(4))/H(4);

writeln(c);

end;

begin

randomize;

writeln('zadat znachenie a,b,c');

read(a,b,c);

zad(9,n);

writeln('isxodnaia posledovatelnost n');

vivod(9,n);

preob(9,a,n);

writeln('preobraz n');

vivod(9,n);

zad(10,m);

writeln('isxodnaia posledovatelnost m');

vivod(10,m);

preob(10,b,m);

writeln('preobraz m');

vivod(10,m);

zad(8,l);

writeln('isxodnaia posledovatelnost l');

vivod(8,l);

preob(8,c,l);

writeln('preobraz l');

vivod(8,l);

readln;

end;

readln;

end.

Соседние файлы в папке 6 лабораторка