Вычислить значение модуля и квадратного корня из выражения (х-у)

@МаминСаМУРай · Регистрация: 13.05.2022

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

2. Вычислить значение модуля и квадратного корня из выражения (х-у).

@Cyborg Drone · 02.04.2023, 00:35

Pascal

var
  x, y, z: real;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  z := x - y;
  writeln('|x - y| = ', abs(z));
  if z >= 0 then writeln('sqrt(x - y) = ', sqrt(z))
  else writeln('x - y < 0, квадратный корень не определён');
  readln
end.

@AHBAR · 05.04.2023, 07:57

по идее можно и так прикольнуться:

Pascal

1	else writeln('sqrt(x - y) = ', sqrt(ABS(z)),'i');

@Cyborg Drone · 07.04.2023, 01:51

Нет, так никак нельзя. Комплексный корень имеет количество значений, равное степени корня, за исключением случая, когда аргумент равен 0. Тогда говорят, что существует один корень кратности такой-то, или столько-то равных корней. Поэтому, если имеется ввиду НЕ арифметический квадратный корень, то нужно как-то так:

Pascal

const
  pm = '+-';
var
  x, y, z, t: real;
  s: string;
  i: integer;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  z := x - y;
  t := abs(z);
  writeln('|x - y| = ', t);
  if z < 0 then s := 'i' else s := '';
  if z = 0 then writeln('sqrt(x - y) = 0')
  else for i := 1 to 2 do writeln(i, ') sqrt(x - y) = ', pm[i], sqrt(t), s);
  readln
end.

@МаминСаМУРай 0 / 0 / 0 Регистрация: 13.05.2022 Сообщений: 10
		1
	Вычислить значение модуля и квадратного корня из выражения (х-у) 31.03.2023, 09:59. Показов 295. Ответов 3 Метки нет (Все метки) 2. Вычислить значение модуля и квадратного корня из выражения (х-у). 0

Опции темы