Да помогите пожалуйста, очень надо. Уже 4 раз прошу, хоть кто-нибудь...

Question

Да помогите пожалуйста, очень надо. Уже 4 раз прошу, хоть кто-нибудь...

---

Comments

Плохо видно, никто связываться не хочет...

Answer 1

Задание 1

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var x:=ReadReal('x-');
  if x<-1 then Writeln(x*x+1)<br>  else
    if x<2 then Writeln(abs(x+5))<br>    else
      if x<5 then Writeln(1/(x-4))<br>      else Writeln(sqrt(x+6*x))
end.

Задание 2

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var a,b,c:real;
  Write('Введите стороны треугольника: ');
  Read(a,b,c);
  Write('Треугольник ');
  if (a=b) and (b=c) then Write('равносторонний')
  else begin
    if (a=b) or (b=c) or (a=c) then Write('равнобедренный ');
    if (a*a+b*b=c*c) or (a*a+c*c=b*b) or
      (b*b+c*c=a*a) then Write('прямоугольный')
    else Write('непрямоугольный')
    end;
  Writeln;
  var p:=(a+b+c)/2;
  Writeln('Площадь равна ',sqrt(p*(p-a)*(p-b)*(p-c)))
end.

Comments

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

---

Пожалуйста

Answer 2

Накидал на C++ с использованием std библиотек первое задание:

#include
#include

int main() {
    double x, y, result = 0;
    std::cin >> x;

    if(x<-1) {<br>        result = pow(x, 2.0)+1;
    } else if(x>= -1 && x < 2) {
        result = std::abs(x+5);
    } else if(x>=2 && x<5) {<br>        result = 1/(x-4);
    } else if(x>=5) {
        result = sqrt(x+6*x);
    }
    std::cout << result << std::endl;<br>    return 0;
}

Comments

По сути можно и покрасивее реализовать с помощью принятия аргументов ком. Строки. Принимать в char массив значения, после чего приводить к float типа с помощью atof из либы cstdlib.

---

Никогда не читали Правила, в которых сказано, что ответ должен быть ПОЛНЫМ и ИСЧЕРПЫВАЮЩИМ?

---

Не читал.

---

А зря, потому что при регистрации Вы обязались их выполнять

---

Уже ознакомился. Будем знать, спасибо!