Решить уравнение ax+b=0, если a изменяется от -4 до 8 с шагом 2, b от 1 до 20 с шагом 1. — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
SCREEN 0
WIDTH 80, 50
CLS
FOR a% = -4 TO 8 STEP 2
  FOR b% = 1 TO 20
    x! = -b% / a%
    PRINT x!,
  NEXT
NEXT

Следующий вариант

1
2
3
4
5
6
7
8
9
10
11
12
13
SCREEN 0
WIDTH 80, 50
CLS
FOR a% = -4 TO 8 STEP 2
  FOR b% = 1 TO 20
    IF a% <> 0 THEN
    x# = -b% / a%
    PRINT STR$(INT(x#)) + LTRIM$(LEFT$(STR$(x# - INT(x#)), 5)),
    ELSE
    PRINT "+Beskonechn",
    END IF
  NEXT
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment