vlrep
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ПРОВЕРТЕнеправильно выдает z (весгда пишет 0,00).Дано действительные числа а и b . Вычислить х=min(a , b), y=min(ab , a+b), z=min(x+y3 .3,14). min - тоесть что из этих двух элементов меньше.
Код: program L51;
uses crt;
var X,y,z,a,b,c,e:real;
function xmin(c,e: real):real;
begin
if e<c then
begin
X:=e;
write('X= ' ,X:2:2)
end else if c=e then write('rivni') else
begin
X:=c;
write('x=',X:2:2) end
end;
function ymin(c,e:real):real;
begin
if e<c then
begin
y:=e;
writeln('y= ' ,y:2:2)
end else if c=e then writeln('rivni') else
begin
y:=c;
writeln('y=',y:2:2) end
end;
function zmin(z:real):real;
begin
if z<3.14 then
write('z= ' ,z:2:2)
else if z=3.14 then write('rivni') else
begin
z:=3.14;
write('z=',z:2:2) end
end;
begin clrscr;
write('vvedit a i b');read (a,b);
c:=a; e:=b;
X:=xmin(a,b);x:=x;
c:=a*b; e:=a+b;
y:=ymin(c,e);y:=y;
e:=x+y*y*y;
z:=zmin(e); readkey;
end. |
|
Заранее благодарен!
