Вычислить значение выражения

@povtiasd051 · Регистрация: 06.12.2010

Завтра сдавать уже надо.

@Daemon025 · 02.07.2011, 22:42

Сообщение от povtiasd051

Завтра сдавать уже надо.

Какой крепкий аргумент...

Pascal

1	r:=sqrt(sqr(a)+sqr(b))/sqrt(1-sqr(y));

@povtiasd051 · 02.07.2011, 23:47 **[ТС]**

вот я написал но почему та он выдает ошибку с операций с плавающей запятой и деление на ноль
помоги исправит эту ошибку.

Pascal

var
  a, b, y, r: real;
begin
  readln(a, b, y);
  r:=sqrt(sqr(a)+sqr(b))/sqrt(1-sqr(y));
  writeln(r);
end.

@Daemon025 · 02.07.2011, 23:58

Сообщение от povtiasd051

sqrt(1-sqr(y))

возможно корень с отрицательного числа

@Step_UA · 03.07.2011, 00:02

добавь проверку, Y - должен находится в диапозоне от -1 до 1, не включая -1 и 1

@povtiasd051 · 03.07.2011, 00:19 **[ТС]**

Сообщение от Step_UA

добавь проверку, Y - должен находится в диапозоне от -1 до 1, не включая -1 и 1

Выложи да исправленный вариант.

@Puporev · 03.07.2011, 09:43

Pascal

var
  a, b, y, r: real;
begin
  readln(a, b, y);
  if abs(y)>=1 then write('Значение R не определено')
  else
   begin
    r:=sqrt(sqr(a)+sqr(b))/sqrt(1-sqr(y));
    writeln('R=',r:0:2);
   end;
end.

@povtiasd051 2 / 2 / 0 Регистрация: 06.12.2010 Сообщений: 135
		1
	Вычислить значение выражения 02.07.2011, 22:21. Просмотров 939. Ответов 6 Метки нет (Все метки) Завтра сдавать уже надо. 0 Миниатюры

@Daemon025 382 / 330 / 159 Регистрация: 06.12.2010 Сообщений: 894
	02.07.2011, 23:58	4
	Сообщение от povtiasd051 sqrt(1-sqr(y)) возможно корень с отрицательного числа 0

@Step_UA 1559 / 637 / 220 Регистрация: 09.06.2011 Сообщений: 1,308
	03.07.2011, 00:02	5
	добавь проверку, Y - должен находится в диапозоне от -1 до 1, не включая -1 и 1 0

@povtiasd051 2 / 2 / 0 Регистрация: 06.12.2010 Сообщений: 135
	03.07.2011, 00:19 [ТС]	6
	Сообщение от Step_UA добавь проверку, Y - должен находится в диапозоне от -1 до 1, не включая -1 и 1 Выложи да исправленный вариант. 0

Опции темы

Вычислить значение выражения

Решение