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

Ответы
Автор ответа:
0
Накидал на C++ с использованием std библиотек первое задание:
#include <cmath>
#include <iostream>
int main() {
double x, y, result = 0;
std::cin >> x;
if(x<-1) {
result = pow(x, 2.0)+1;
} else if(x>= -1 && x < 2) {
result = std::abs(x+5);
} else if(x>=2 && x<5) {
result = 1/(x-4);
} else if(x>=5) {
result = sqrt(x+6*x);
}
std::cout << result << std::endl;
return 0;
}
#include <cmath>
#include <iostream>
int main() {
double x, y, result = 0;
std::cin >> x;
if(x<-1) {
result = pow(x, 2.0)+1;
} else if(x>= -1 && x < 2) {
result = std::abs(x+5);
} else if(x>=2 && x<5) {
result = 1/(x-4);
} else if(x>=5) {
result = sqrt(x+6*x);
}
std::cout << result << std::endl;
return 0;
}
Автор ответа:
0
По сути можно и покрасивее реализовать с помощью принятия аргументов ком. Строки. Принимать в char массив значения, после чего приводить к float типа с помощью atof из либы cstdlib.
Автор ответа:
0
Никогда не читали Правила, в которых сказано, что ответ должен быть ПОЛНЫМ и ИСЧЕРПЫВАЮЩИМ?
Автор ответа:
0
Не читал.
Автор ответа:
0
А зря, потому что при регистрации Вы обязались их выполнять
Автор ответа:
0
Уже ознакомился. Будем знать, спасибо!
Автор ответа:
0
Задание 1
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var x:=ReadReal('x-');
if x<-1 then Writeln(x*x+1)
else
if x<2 then Writeln(abs(x+5))
else
if x<5 then Writeln(1/(x-4))
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.
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var x:=ReadReal('x-');
if x<-1 then Writeln(x*x+1)
else
if x<2 then Writeln(abs(x+5))
else
if x<5 then Writeln(1/(x-4))
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.
Автор ответа:
0
Спасибо большое))
Автор ответа:
0
Пожалуйста
Похожие вопросы
Предмет: Литература,
автор: nailszhezaigerim
Предмет: Математика,
автор: sankovskaaalisa57
Предмет: Қазақ тiлi,
автор: karakoz201921
Предмет: Литература,
автор: курица147