Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ пример
Автор: Gvendolin 13.10.2004 19:26
Помогите непутевой, целый день сижу и никак решить не могу... ну не понимаю я паскаль.
Может найдутся добрые люди и покажут способ решения!!!!
"Вычислить зн-ие ф,зависящих от некоторых аргументов,значение которых выбираются студентом произвольно.
u=min( (x+y+8)/3 ; xy*(6-x) )/1+max(x-y+6; x^2+4y);
max (x-y+6; x^2+4y)неравно -1
Воть 
Автор: godd 13.10.2004 20:46
ВотЪ:
Код
var x,y:integer;
function min(x,y:real):real;
begin
if x<y then min:=x
else min:=y;
end;
function max(x,y:real):real;
begin
if x>y then max:=x
else max:=y;
end;
begin
write('x=');
readln(x);
write('y=');
readln(y);
if max(x-y+6,sqr(x)+4*y)<>-1 then writeln('u=',min((x+y+8)/3,x*y*(6-x))/1+max(x-y+6,sqr(x)+4*y))
else writeln('max(x-y+6;sqr(x)+4y)=-1');
write('Press Enter');
readln;
end.
function min(x,y:real):real;
begin
if x<y then min:=x
else min:=y;
end;
function max(x,y:real):real;
begin
if x>y then max:=x
else max:=y;
end;
begin
write('x=');
readln(x);
write('y=');
readln(y);
if max(x-y+6,sqr(x)+4*y)<>-1 then writeln('u=',min((x+y+8)/3,x*y*(6-x))/1+max(x-y+6,sqr(x)+4*y))
else writeln('max(x-y+6;sqr(x)+4y)=-1');
write('Press Enter');
readln;
end.
Автор: godd 13.10.2004 20:55
возьми в скобки 1+max(x-y+6,sqr(x)+4*y)
тебе наверное не на 1 делить надо ;)
Автор: godd 13.10.2004 21:02
если конечно я все правильно понял. а может быть min и max - это какие-нить математические функции
[выш-ка и прочее - для меня это все муть]