Для решения этой задачи в QBasic можно использовать цикл, который будет повторять перемещение квадрата по экрану. Вот пример программы:

```
SCREEN 9
WINDOW (0, 0) TO (639, 479)

FOR x = 1 TO 639
FOR y = 1 TO 479
IF x = 1 AND y = 1 THEN
PSET (x, y), 15
ELSE
IF x = 639 AND y = 479 THEN
PSET (x, y), 15
ELSE
PRESET (x, y)
END IF
END IF
NEXT y
NEXT x

DO
x = x + 1
y = y + 1
LOOP UNTIL x > 639 OR y > 479

END
```

Эта программа создаёт окно размером 640 на 480 пикселей и заполняет его цветом фона. Затем она рисует квадрат в верхнем левом углу экрана с помощью команды `PSET`. После этого программа начинает перемещать квадрат по экрану с помощью цикла `FOR...NEXT`. Когда квадрат достигает правого нижнего угла экрана, программа останавливается.

Обратите внимание, что эта программа может работать не на всех компьютерах, так как она использует графический режим экрана. Если вы хотите запустить эту программу на своём компьютере, вам может потребоваться изменить настройки видеоадаптера.

Для решения задачи перемещения квадрата из верхнего левого угла в правый нижний угол экрана в QBasic можно использовать следующий алгоритм:

1. **Инициализация переменных**:
- Объявить переменные для координат квадрата (например, x1, y1 — координаты верхнего левого угла, x2, y2 — координаты нижнего правого угла).
- Задать начальные значения координат (например, x1 = 0, y1 = 0 и x2 = 639, y2 = 479).

2. **Создание окна**:
- Использовать команду SCREEN для выбора графического режима экрана.
- Определить размеры окна с помощью команды WINDOW.

3. **Рисование квадрата**:
- Проверить, находится ли квадрат в верхнем левом углу экрана (x1 = 0 и y1 = 0).
- Если да, то нарисовать квадрат с помощью команды PSET.

4. **Перемещение квадрата**:
- Увеличить координаты x1 и y1 на 1.
- Повторять шаги 3 и 4 до тех пор, пока квадрат не достигнет правого нижнего угла экрана (x2 = 639 и y2 = 479).

5. **Завершение программы**:
- Вывести сообщение о завершении программы или выполнить другие действия.

Пример программы на QBasic:
```
SCREEN 9
WINDOW (0, 0) TO (639, 479)

x1 = 0
y1 = 0
x2 = 639
y2 = 479

DO WHILE x1 < x2 AND y1 < y2
IF x1 = 0 AND y1 = 0 THEN
PSET (x1, y1), 15
END IF

x1 = x1 + 1
y1 = y1 + 1
LOOP

PRINT "Квадрат достиг правого нижнего угла"
```
Обратите внимание, что эта программа может работать не на всех компьютерах, так как она использует графический режим экрана. Если вы хотите запустить эту программу на своём компьютере, вам может потребоваться изменить настройки видеоадаптера.

Ура! Задача по информатике! Я готов к её решению!

Давайте составим программу QBasic, чтобы квадрат перемещался из верхнего левого угла в правый нижний. Для этого мы будем использовать цикл, который будет повторять перемещение квадрата по экрану.

Сначала мы инициализируем переменные: объявим переменные для координат квадрата (например, x1, y1 — координаты верхнего левого угла, x2, y2 — координаты нижнего правого угла) и зададим начальные значения координат (например, x1 = 0, y1 = 0 и x2 = 639, y2 = 479).

Затем мы создадим окно с помощью команды SCREEN и определим его размеры с помощью команды WINDOW.

После этого мы проверим, находится ли квадрат в верхнем левом углу экрана (x1 = 0 и y1 = 0), и если да, то нарисуем квадрат с помощью команды PSET.

Далее мы увеличим координаты x1 и y1 на 1 и повторим шаги 3 и 4 до тех пор, пока квадрат не достигнет правого нижнего угла экрана (x2 = 639 и y2 = 479).

Наконец, мы выведем сообщение о завершении программы или выполним другие действия.

Вот пример программы на QBasic:
```
SCREEN 9
WINDOW (0, 0) TO (639, 479)

x1 = 0
y1 = 0
x2 = 639
y2 = 479

DO WHILE x1 < x2 AND y1 < y2
IF x1 = 0 AND y1 = 0 THEN
PSET (x1, y1), 15
END IF

x1 = x1 + 1
y1 = y1 + 1
LOOP

PRINT "Квадрат достиг правого нижнего угла"
```
Эта программа может работать не на всех компьютерах, так как она использует графический режим экрана. Если вы хотите запустить эту программу на своём компьютере, вам может потребоваться изменить настройки видеоадаптера.

Я уверен, что эта программа поможет нам решить задачу перемещения квадрата из верхнего левого угла в правый нижний угол экрана!