Форум на Исходниках.RU

илементарная задача(решите плиз)

Zzzaraza — Sun, 13 Jan 2002 06:09:00 +0000

Zzzaraza: ы-ыыы, min и max не описал :(
var min,max,x,y,z,u:real;
begin
readln (x,y,z);
min:=y;
max:=min;
if xif zbegin
if maxend;
u := (sqr(max)-exp(x*ln(2))*min) / (sqr(sin(x))+max/min);
writeln(u);
end.

илементарная задача(решите плиз)

YPYPY — Sat, 12 Jan 2002 10:42:00 +0000

YPYPY: ЭТА ПРОГА НЕ РАБОТАЕ

илементарная задача(решите плиз)

Zzzaraza — Sat, 12 Jan 2002 05:48:00 +0000

Zzzaraza: var x,y,z,u:real;
begin
readln (x,y,z);
min:=y;
max:=min;
if x if z begin
if max end;
u := (sqr(max)-exp(x*ln(2))*min) / (sqr(sin(x))+max/min); сей формула любезно предоставлена 7in :)
writeln(u);
end.
зы вроде так, щас под рукой нет компилятора, но вроде правильно
ззы откуда взялось
f1:=1
for i:=1 to round(x) do f1:=2*f1; ?
условие задачи полностью напиши plz

илементарная задача(решите плиз)

YPYPY — Fri, 11 Jan 2002 21:05:00 +0000

YPYPY: А КТОНИБУТЬ МОЖЕТ НАПИСАТЬ ЦЕЛИКОМ ЗАДАЧУ А ТО Я ФАЩЕ НЕ ВТЫКАЮ КАК , ЧЕ ,КУДА...

илементарная задача(решите плиз)

Jin X — Fri, 11 Jan 2002 20:12:00 +0000

Jin X: А ещё лучше...
u := (sqr(max)-exp(x*ln(2))*min) / (sqr(sin(x))+max/min)
а for убрать вообще...

илементарная задача(решите плиз)

Jin X — Fri, 11 Jan 2002 20:10:00 +0000

Jin X: if ..... max
if ..... min
f1 := 1;
for i := 1 to Round(x) do f1 := 2*f1;
u := (sqr(max)-f1*min) / (sqr(sin(x))+max/min)

илементарная задача(решите плиз)

YPYPY — Fri, 11 Jan 2002 13:21:00 +0000

YPYPY: ТИПО ТАК ИЛИ НЕ ТАК,НО ПОМОЕМУ ЧЕ ТО НЕ ТО
program fln;
uses crt,dos;
var
x,y,z,u,f1:real;
max,min:real;
begin
write('VVEDITE X:');
readln(x);
write('VVEDITE Y:');
readln(y);
write('VVEDITE Z:');
readln(z);
if (x>=y) and (x>=z) then max:=x
if (y>=x) and (y>=z) then max:=y
if (z>=x) and (z>=y) then max:=z
if (x>=y) and (x>=z) then min:=x
if (y>=x) and (y>=z) then min:=y
if (z>=x) and (z>=y) then min:=z
f1:=1
for i:=1 to round(x) do f1:=2*f1;
u:=(max**2-f1*min)/(sin(2*x)+max/min);
writeln(u:6:2);
readkey;
end

илементарная задача(решите плиз)

vot — Fri, 11 Jan 2002 12:19:00 +0000

vot: Твое решение - ПРАВИЛЬНОЕ.
Именно так и НАДО делать.
Но если уж баба капризничает :)
чёрт с ней - сделай, как она просит.
Для этого вместо функций заведи переменные
max & min, а вычисления из функций перенеси вниз, сразу после ввода данных.
var
x,y,z,u,f1:real;
i:integer;
max,min:real;
...
write('‚введите Z:');
readln(z);
if (x>=y) and (x>=z) then max:=x;
if (y>=x) and (y>=z) then max:=y;
if (z>=x) and (z>=y) then max:=z;
if (x<=y) and (x<=z) then min:=x;
if (y<=x) and (y<=z) then min:=y;
if (z<=x) and (z<=y) then min:=z;
...
u:=(max**2-f1*min)/(sin(2*x)+max/min);
...

илементарная задача(решите плиз)

YPYPY — Fri, 11 Jan 2002 10:28:00 +0000

YPYPY: я решил задачу но при помоши Function,но училка сказала что эту задачу надо решать ен при помоши Function,а как ее переделать чтоб небыло Funktion я не знаю..ПОМОГИТЕ ПИРЕДЕЛАТЬ ЗАДАЧУ ЧТОБ ОНА ДЫЛА РЕШЕНА НЕ FUNCTION а IF..
program fln;
uses crt,dos;
var x,y,z,u,f1:real;
i:integer;
function max(a,b,c:real):real;
begin
if (a>=b) and (a>=c) then max:=a;
if (b>=a) and (b>=c) then max:=b;
if (c>=a) and (c>=b) then max:=c;
end;
function min(q,w,e:real):real;
begin
if (q<=w) and (q<=e) then min:=q;
if (w<=q) and (w<=e) then min:=w;
if (e<=q) and (e<=w) then min:=e;
end;
begin
write('‚введите X:');
readln(x);
write('‚введите Y:');
readln(y);
write('‚введите Z:');
readln(z);
f1:=1;
for i:=1 to round(x) do f1:=2*f1;
u:=(max(x,y,z)*max(x,y,z)-f1*min(x,y,z))/(sin(2*x)+max(x,y,z)/min(x,y,z));
writeln(u:6:2);
readkey;
end.

илементарная задача(решите плиз)

vot — Thu, 10 Jan 2002 16:23:00 +0000

vot: Не обижайся, но иллеминтарныи задачи надо решать самому. Пробуй. Если не будет получаться - поможем.

илементарная задача(решите плиз)

YPYPY — Tue, 08 Jan 2002 17:43:00 +0000

YPYPY: При помоши IF
{даны числа X,Y,Y найти значение выражение.
u=(max^2(x,y,z)-2^x*min(x,y,z))/(sin^2x+max(x,y,z)/min(x,y,z))