9. Написать программу вычисления функции у: у=sqrt(х+5).если x>0. у= sqrt(5+х), если x<=0...

Question

9. Написать программу вычисления функции у: у=sqrt(х+5).если x>0. у= sqrt(5+х), если x<=0 В случае отрицательного подкоренного выражения выводится надпись "Останов" и программа заканчивается.

Comments

пожалуйста решите мне очень срочно нужно

---

Ты задание явно с ошибкой переписал. Проверь.

---

я не мог правильно написать потому что я просто текст скопировал и вставил

---

Проспись и пой, студент. Ты понимаешь, что функция в твоём задании не различается в зависимости от условия (зачем она тогда?)?

---

я не мог не правильно написать потому что я просто текст скопировал и вставил

---

Откуда копировал, интересно?

Answer 1

Программа вкратце.
Если посещал уроки то сможешь ее написать чтоб работала.
В условии задачи ошибка, наверное вместо - написал плюс.
y = sqrt(х+5). если x>0.
пусть здесь будет так: у= sqrt(5-х). если x<0<br>
Program radical;
var x,y:integer;
Begin
readln(x);
if ((x+5) >= 0) and ((5-х) >=0)) then begin
   { проверка чтобы не-было меньше нуля }
    if (x>0) then 
       y = sqrt(x+5);
    else if (x<0) then <br>       y = sqrt(5-x);
    writeln('результат=', y); 

   end
else 
    writeln("нельзя извлечь корень из отрицательного числа");

readln();

End.