Язык: qbasic составить программу, вычисляющую значение переменной у по следующему правилу: у = х+3, если 0 < = х < =3 y = |x|+3, если х < 0 (y=abs(x), присваивает переменной y значение, равное модулю числа х)у = x2-3, если х > 3.
Program v1; var a,b,c: real; begin readln (a,b,c); If c > a+b then writeln ( 'Такого треугольника не существует'); If a > c+b then writeln ( 'Такого треугольника не существует'); If b> a+c then writeln ( 'Такого треугольника не существует'); If a=b and a=c then writeln ('Этот треугольник равносторонний'); If a=b or a=c or b=c then writeln ('Этот треугольник равнобедренный'); If a = scrt ( b*b + c*c) then writeln ('Этот треугольник прямоугольный'); If b = scrt (a*a + c*c) then writeln ('Этот треугольник прямоугольный'); If c = scrt (a*a + b*b) then writeln ('Этот треугольник прямоугольный'); end.
Var a, b, c, rez: real; begin write('Введите число А: '); readln(a); write('Введите число B: '); readln(b); write('Введите число C: '); readln(c); if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c; if (a >= 0) and (b >= 0) then rez := a + b; if (a >= 0) and (c >= 0) then rez := a + c; if (b >= 0) and (c >= 0) then rez := b + c; if (a <= 0) and (b <= 0) then rez := c; if (b <= 0) and (c <= 0) then rez := a; if (a <= 0) and (c <= 0) then rez := b; if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0; writeln(rez); end.
FOR x = -6 TO 6
n = n + 1
IF x < 0 THEN
y = ABS(x) + 3
ELSE
IF x > 3 THEN
y = x ^ 2 - 3
ELSE
y = x + 3
END IF
END IF
PRINT n; x, y
NEXT x
INPUT "X =", x
IF x < 0 THEN
y = ABS(x) + 3
ELSE
IF x > 3
THEN
y = x ^ 2 - 3
ELSE
y = x + 3
END IF
END IF
PRINT y