Даны действительные числа x и y. Вычислить z=(x+y)/(2+y^4), если x>y и z=(y-x*100)^2, x<=y

@Белла90 · Регистрация: 26.11.2014

Author24 — интернет-сервис помощи студентам

Напишите, пожалуйста, прогу.
Даны действительные числа x и y. Вычислить z=(x+y)/(2+y^4), если x>y и z=(y-x*100)^2, x<=y

@Puporev · 26.11.2014, 19:41

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var x,y,z:double;
begin
writeln('vvedite x,y');
readln(x,y);
if x>y then z:=(x+y)/(2+y*y*y*y)
else z:=sqr(y-x*100);
write('z=',z:0:4);
readln
end.

@NIKOLAYY · 26.11.2014, 20:36

Не в консоли:

Delphi

var
  z, x, y: Extended;
begin
  x := StrToFloat(Edit1.Text);
  y := StrToFloat(Edit2.Text);
 
  if x > y then
    z := (x + y) / (2 + Power(y, 4));
  if x <= y then
    z := Power(y - x * 100, 2);
 
  ShowMessage(FloatToStr(Z));
end;

Добавлено через 2 минуты
В uses надо Math прописать.

@Белла90 · 28.11.2014, 18:06 **[ТС]**

Спасибо большое )

@Белла90 0 / 0 / 0 Регистрация: 26.11.2014 Сообщений: 6
		1
	Даны действительные числа x и y. Вычислить z=(x+y)/(2+y^4), если x>y и z=(y-x100)^2, x<=y 26.11.2014, 19:21. Показов* 1128. Ответов 3 Метки нет (Все метки) Напишите, пожалуйста, прогу. Даны действительные числа x и y. Вычислить z=(x+y)/(2+y^4), если x>y и z=(y-x*100)^2, x<=y 0

@Белла90 0 / 0 / 0 Регистрация: 26.11.2014 Сообщений: 6
	28.11.2014, 18:06 [ТС]	4
	Спасибо большое ) 0