Контакты

Случайная статья

ВАРИАНТ 49. Задание 1. Даны L, M, N.. Определить

ВАРИАНТ 49

Задание 1

Даны L, M, N.

Определить

Programvar49_1;

varl,m,n,y,f: real;

begin

Writeln('Ввод l,m,n');

readln (l,m,n);

f:=(l+m)/(l*m*n);

y:=sqr(sin(sqr(f))/(sqrt(abs(n-m))));

Writeln('F=',f:8:3,' Y=',y);

end.

F= 0.375 Y=0.00982268924610952

L=1

M=2

N=4

F=(1+2)/(1*2*4)=0.375

Y=sin^2(0.375^2)/ =0.00982268924610952

Задание 2

Даны a, b, c.

Определить.

;

;

programboynextdoor;

Vara,b,c,Y1,Y2:real;

begin

Writeln('Ввод a, b ,c');

Readln(a,b,c);

ifc>10 thenY1:= sqr(a) - b

elseY1:= sqr(b) - a;

Y2:= (a+b)*c/a*b;

writeln( 'Y1 = ', Y1, ' Y2 = ' , Y2);

end.

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.