Вычислить значение выражения - Pascal ABC (14492)

Формулировка задачи:

Даны переменные x,y,z,m,n. Вычислить: при Вывести на печать a, b, c, m1, min, max.

Код к задаче: «Вычислить значение выражения - Pascal ABC (14492)»

textual
program prim;
uses crt;
function max (x,y,z:real):real;
var t:real;
begin
t:=x;
if y>t then t:=y;
if z>t then t:=z;
max:=t;
end;
function min (x,y,z:real):real;
var t:real;
begin
t:=x;
if y<t then t:=y;
if z<t then t:=z;
min:=t;
end;
var x,y,z,m,n,a,b,c, m1, mi, ma:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
write('z=');
readln(z);
write('m=');
readln(m);
write('n=');
readln(n);
if (x*y)>=z then begin
a:=max(x,y,z);
b:=min(x,y,z);
c:=abs(a-b);
end else
if (x*y)<=z then
begin
a:=sin(x)/cos(x);
b:=sin(x);
c:=cos(x);
end;
 
if m*n>=1 then m1:=a*b*c else
if ((m*n>=0) and (m*n<=1))
then m1:= sqr(a)+sqr(b)+sqr(c) else
if m*n<=0 then m1:=0;
 
writeln ('a=',a:5:3);
writeln ('b=',b:5:3);
writeln ('c=',c:5:3);
writeln ('m1=',m1:5:3);
 
end.

13   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ