(QBasic)Подскажите как сделать так, что бы можно было вернуть на самое начало с очисткой экрана Хочу сделать, что бы после ответа было:"хотите повторить? и если да, то программа запускается сначала. Это же цикл? Только не могу ...
(QBasic)Подскажите как сделать так, что бы можно было вернуть на самое начало с очисткой экрана
Хочу сделать, что бы после ответа было:"хотите повторить? и если да, то программа запускается сначала. Это же цикл? Только не могу понять как его поставить
Вот:
PRINT "Enter the coefficient a"
INPUT a
PRINT "Enter the coefficient b"
INPUT b
PRINT "Enter the coefficient c"
INPUT c
LET d = b ^ 2 - 4 * a * c
LET x = (-b + SQR(d)) / (2 * a)
LET y = (-b - SQR(d)) / (2 * a)
PRINT "The first root"
PRINT x
PRINT "The second root"
PRINT y
PRINT "The discriminant"
PRINT d
Гость
Ответ(ы) на вопрос:
ГостьDO
CLS
PRINT "Enter the coefficient a"
INPUT a
PRINT "Enter the coefficient b"
INPUT b
PRINT "Enter the coefficient c"
INPUT c
LET d = b ^ 2 - 4 * a * c
LET x = (-b + SQR(d)) / (2 * a)
LET y = (-b - SQR(d)) / (2 * a)
PRINT "The first root"
PRINT x
PRINT "The second root"
PRINT y
PRINT "The discriminant"
PRINT d
INPUT "Do You want to repeat? (Y/N)", r$
LOOP UNTIL UCASE$(r$) <> "Y"
Не нашли ответ?
Похожие вопросы