ПОМОГИТЕ НАПИСАТЬ ПРОГУ В ПАСКАЛЕ. БЕЗ 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. Программа не предусматривает возможность деления на ноль и прочих неожиданностей
Не нашли ответ?
Ответить на вопрос
Похожие вопросы