Предмет: Информатика,
автор: nikitenkoljona
Подскажите пожалуйста. Нужно проверить решение задачи в QBasic, но данная программа не идет на Windows 7. Как быть в этом случае?
archery:
поискать онлайн компиляторы. и ваще выложи код и посмотрим
Дано одно число. Если и синус и косинус этого числа превышает 0,3, то вычислить и напечатать квадрат этого числа, в противном случае его куб
REM CLS INPUT “Ввод числа X”, X IF sinX>0.3 and cosX>0.3 THEN Let A=X^2 ELSE IF sinX<0.3 and cosX<0.3 THEN Let A=X^3 END IF END IF PRINT “A”,A END
а почему вам такое старье дают? есть же куча бейсиков с более новыми компиляторами
Потому что первый курс прикладной информатики...Спасибо, что попытались помочь, нашла все-таки программу, которая идет на семерке
Ответы
Автор ответа:
1
вот так программа больше походит на программу
REM
CLS
Dim X as integer
Dim A as integer
INPUT "Ввод числа X ", X
IF sin(X)>0.3 and cos(X)>0.3 THEN
A=X^2
ELSE
A=X^3
END IF
PRINT "A ",A
END
увы найти конкретно компилятор под квик бейсик не удалось и поскольку в разных бейсиках не шарю, то подсказать трудно
Qbasic завелся на виртуалке на xp, код принял и отработал. Только одно но - русский текст не понимает, лучше писать транслитом или на англ
REM
CLS
Dim X as integer
Dim A as integer
INPUT "Ввод числа X ", X
IF sin(X)>0.3 and cos(X)>0.3 THEN
A=X^2
ELSE
A=X^3
END IF
PRINT "A ",A
END
увы найти конкретно компилятор под квик бейсик не удалось и поскольку в разных бейсиках не шарю, то подсказать трудно
Qbasic завелся на виртуалке на xp, код принял и отработал. Только одно но - русский текст не понимает, лучше писать транслитом или на англ
Похожие вопросы
Предмет: Українська мова,
автор: Akxkkkdjcndnd
Предмет: Химия,
автор: koskinavalenka
Предмет: Українська мова,
автор: lusiknava
Предмет: Математика,
автор: lelizaveta386