(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

Saweretufio Saweretufio    3   05.07.2019 03:30    0

Ответы
миранда9 миранда9  02.10.2020 20:23
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"
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика