Программирование алгоритма с циклом

@treyvz · Регистрация: 12.12.2016

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

Вычислить квадратный корень выражения x+|y|^2+1. Если вычисление невозможно, то подробно объяснить почему.

@D1973 · 08.04.2017, 07:07

Какой тут может быть цикл?

Delphi

1
2
3

readln(x);
readln(y);
z := sqrt(x + sqr(abs(y)) + 1);

Вычисление невозможно в одном случае: когда подкоренное выражение < 0. Вот и сделайте проверку

Delphi

1 2	if x + sqr(abs(y)) + 1 < 0 then //сообщение о невозможности совершения операции else //вычислить и вывести значение

@Puporev · 08.04.2017, 08:26

И вообще |y|^2 это глупость, поскольку просто y^2 тоже самое.

@Matan! · 08.04.2017, 09:02

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

И вообще |y|^2 это глупость, поскольку просто y^2 тоже самое.

Для комплексных чисел не то же самое.

@D1973 · 08.04.2017, 12:31

Не по теме:

Сообщение от Matan!

Для комплексных чисел...

Ой, боже мой, Matan!, о чем Вы!!!

@Matan! · 09.04.2017, 01:05

Не по теме:

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

о чем Вы

И правда...:D

@treyvz · 09.04.2017, 12:26 **[ТС]**

где я ошибся? x вводил -44, y оставил равным нулю

@Puporev · 09.04.2017, 12:35

z=-44+0+1<0,
if z<0 then вычисление невозможно.

Добавлено через 1 минуту
А код нужно выкладывать текстом а не картинками, чтобы его можно было копировать и править.

@treyvz · 09.04.2017, 13:25 **[ТС]**

Всё равно выдаёт эту ошибку

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,f:Real;
begin
y:=StrToFloat(Edit2.Text);
x:=StrToFloat(Edit1.Text);
z:=sqrt(x + sqr(abs(y)) + 1);
if (z<0) then Label4.Caption:='Вычисление невозможно'
else
  begin
  f:=sqrt(z);
  Label4.Caption:='Ответ:'+FloatToStr(f);
  end;
  end;

@Puporev · 09.04.2017, 13:30

Delphi

x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=x + sqr(abs(y)) + 1;
if z<0 then Label4.Caption:='Вычисление невозможно'
else
 begin
  f:=sqrt(z);
  Label4.Caption:='Ответ:'+FloatToStr(f);
 end;

@droider · 09.04.2017, 14:13

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 x,y:Integer;
 z,f:Extended;
 begin
 x :=StrToInt(Edit1.Text);
 y :=StrToInt(Edit2.Text);
 z :=x + sqr(abs(y)) + 1;
 if z<0 then Label4.Caption :='Вычисление невозможно, т.к. подкоренное выражение меньше нуля!'
 else
 begin
 f :=sqrt(z);
Label4.Caption :='Ответ: '+Format('%.3f', [f]);
 end;
 end;
 
end.

Добавлено через 36 секунд

Не по теме:

уп-с... :)

@Puporev · 09.04.2017, 14:14

Но строка 13 другая, лучше чем у ТСа.

@droider · 09.04.2017, 14:15

Puporev, и типы тоже

Программирование алгоритма с циклом

Решение

Решение

@treyvz 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 17
		1
	Программирование алгоритма с циклом 07.04.2017, 22:11. Показов 1665. Ответов 12 Метки нет (Все метки) Вычислить квадратный корень выражения x+\|y\|^2+1. Если вычисление невозможно, то подробно объяснить почему. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	08.04.2017, 08:26	3
	И вообще \|y\|^2 это глупость, поскольку просто y^2 тоже самое. 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	08.04.2017, 09:02	4
	Сообщение от Puporev И вообще \|y\|^2 это глупость, поскольку просто y^2 тоже самое. Для комплексных чисел не то же самое. 0

@D1973
	08.04.2017, 12:31 #5
	Не по теме: Сообщение от Matan! Для комплексных чисел... Ой, боже мой, Matan!, о чем Вы!!! 0

@Matan!
	09.04.2017, 01:05 #6
	Не по теме: Сообщение от D1973 о чем Вы И правда...:D 0

@treyvz 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 17
	09.04.2017, 12:26 [ТС]	7
	где я ошибся? x вводил -44, y оставил равным нулю Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.04.2017, 12:35	8
	z=-44+0+1<0, if z<0 then вычисление невозможно. Добавлено через 1 минуту А код нужно выкладывать текстом а не картинками, чтобы его можно было копировать и править. 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.04.2017, 14:14	12
	Но строка 13 другая, лучше чем у ТСа. 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	09.04.2017, 14:15	13
	Puporev, и типы тоже 0