CLS
REM "Время падения кирпича"
INPUT "Высота дома"; h
INPUT "Ускорение свободного падения (на Земле - 9.8)"; g
LET T = SQR((2 * h) / g)
PRINT "Время падения в секундах"; T
END
REM Треугольник
INPUT "Введи сторону a"; a
INPUT "Введи сторону b"; b
INPUT "Введи сторону c"; c
IF a = SQR(b ^ 2 + c ^ 2) THEN PRINT "Прямоугольный": END
IF b = SQR(a ^ 2 + c ^ 2) THEN PRINT "Прямоугольный": END
IF c = SQR(b ^ 2 + c ^ 2) THEN ...
REM Треугольник
INPUT "Введи сторону a"; a
INPUT "Введи сторону b"; b
INPUT "Введи сторону c"; c
IF a = SQR(b ^ 2 + c ^ 2) THEN : GOTO a
IF b = SQR(a ^ 2 + c ^ 2) THEN : GOTO a
IF c = SQR(b ^ 2 + c ^ 2) THEN : GOTO a
ELSE PRINT "не прямоугольн ...
REM Треугольник
INPUT "Введи сторону a"; a
INPUT "Введи сторону b"; b
INPUT "Введи сторону c"; c
IF a = SQR(b ^ 2 + c ^ 2) THEN PRINT "прямоугольный": END
IF b = SQR(a ^ 2 + c ^ 2) THEN PRINT "прямоугольный": END
IF c = SQR(b ^ 2 + c ^ 2) THEN ...
CLS
REM Периметр треугольника
INPUT "введи сторону a"; a
INPUT "введи сторону b"; b
INPUT "введи сторону c"; c
LET P = 1 / 2 * (a + b + c)
PRINT "Периметр треугольника:"; P
END
CLS
REM Решить квадратное уравнение
INPUT "Введите количество тестов : ", NTest
FOR Test = 1 TO NTest ' цикл по всем тестам задачи
PRINT "Тест"; Test; ". Введите коэффициенты a, b, c : ";
INPUT a, b, c
IF (a = 0) AND (b = 0) AND (c = 0) T ...
CLS
REM Найти произведение цифр заданного целого четырёхзначного числа
INPUT "Введите четырёхзначное число : ", Number
PRINT : PRINT "цифры числа "; Number; ": ";
Number = ABS(Number)
i = FIX(Number / 1000): PRINT i; ' FIX - целая часть аргумен ...
CLS
REM Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H
INPUT "Введите высоту цилиндра : ", H
INPUT "Введите радиус основания : ", R
V = 3.14 * R ^ 2 * H
S = 2 * 3.14 * R * H: PRINT
PRINT "О ...
CLS
REM вычисление
INPUT "2 числа"; a, b
LET S = a + b
LET R = a - b
LET P = a * b
LET G = SQR(a * b)
PRINT "сумма"; S
PRINT "разность"; R
PRINT "произведение"; P
PRINT "среднее геометрическое"; G
END
CLS
REM Среднее арифметическое и геометрическое с двумя числами
INPUT "введи три числа через запятую"; a, b, c
LET S = (a + b + c) / 3
LET G = (a * b * c) ^ (1 / 3)
PRINT "среднее арифметическое"; S
PRINT "среднее геометрическое"; G
END
