(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
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"