давно
Старший Модератор
31795
6196
05.03.2010, 12:46
общий
это ответ
Здравствуйте, sanekvseti.
Смотрите приложение. Код ТР7.0.
Задача простая, особенно не комментировал.
Удачи!
Приложение:
var
a,b,c:integer;
x,y,z,u:real;
{функция min}
function F_min(aa,bb:integer):integer;
begin
if aa>bb then F_min:=bb
else F_min:=aa;
end;
{функция max}
function F_max(aa,bb:integer):integer;
begin
if aa>bb then F_max:=aa
else F_max:=bb;
end;
{функция вычисления растояния}
function F_rad(aa,bb:real):real;
begin
F_rad:=sqrt(sqr(aa)+sqr(bb));
end;
begin
{вводим А, В и С}
Write('Enter A:');
readln(a);
Write('Enter B:');
readln(b);
Write('Enter C:');
readln(c);
{считаем по формулам X, Y и Z}
x:=F_min(F_max(a,b),c);
y:=F_max(b,c);
z:=x/(y+5);
{выполняем условие}
if(F_rad(x+1,y)>=1)and(F_rad(x+1,y)<=2)and(x>=0)then u:=x-y{проверяем область D1}
else if(y<=(x-2))then u:=x*y+15{проверяем область D2}
else u:=z;{в другой области}
{выводим результат}
write('Result U:=',u:10:5);
readln;
end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.