ПОМОГИТЕ НАПИСАТЬ ПРОГУ В ПАСКАЛЕ. БЕЗ ELSE И NOT
ПОМОГИТЕ НАПИСАТЬ ПРОГУ В ПАСКАЛЕ. БЕЗ ELSE И NOT
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var x,a,betta,y:real;
Write('Введите через пробел x, бета, a: ');
Read(x,betta,a);
y:=((x>1) and (x<3))?sqrt(1+x):x in [4.1,5.2]?x*x-sin(3*betta):
sqr(cos(x))/sqrt(abs(x+a));
Writeln('y=',y)
end.
Примеры для проверки всех трех формул
Введите через пробел x, бета, a: 2.1 0.17 3
y=1.7606816861659
Введите через пробел x, бета, a: 5.2 -9.6 5.18
y=26.5382106989794
Введите через пробел x, бета, a: -2 0 1.3
y=0.206987526684641
Гость
var
x, a, betta, y: real;
begin
Write('Введите через пробел x, бета, a: ');
Read(x, betta, a);
y := sqr(cos(x)) / sqrt(abs(x + a));
if (x > 1) and (x < 3) then y := sqrt(1 + x);
if (x = 4.1) or (x = 5.2) then y := x * x - sin(3 * betta);
Writeln('y=', y)
end.
Программа не предусматривает возможность деления на ноль и прочих неожиданностей
Не нашли ответ?
Похожие вопросы