QBASICBOOK.ru: сайт про QB64

Задача №1. Подсчитать среднее арифметическое трех чисел, введенных с клавиатуры.

Вот так может выглядеть решение подобных задач на языке Basic:

---

1. CLS
2. 'vvod znacheniy peremennykh A, B, C
3. INPUT "Vvedite pervoe chislo - "; A
4. INPUT "Vvedite vtoroe chislo - "; B
5. INPUT "Vvedite tret'e chislo - "; C
6. 'schitaem srednee arifmeticheskoe
7. SR = (A + B + C) / 3
8. PRINT "Srednee arifmeticheskoe = "; SR
9. END 'vyyti iz programmy

---

Рисунок 1 – Решение задачи про среднее арифметическое из трёх

При введённых значениях А = 1, В = 2, С = 3 получим следующий результат:

Рисунок 2 – Результат нахождения среднего арифметического из трех

Вот и, собственно, всё по первой задаче. Ничего сложного.

Задача №2. Разместите введенное с клавиатуры слово в 20 столбце и в 10 строке текстового экрана.

Задачи такого типа можно решать так:

---

1. CLS
2. INPUT A$
3. CLS
4. LOCATE 10, 20
5. PRINT A$
6. END

---

Рисунок 3 – Решение задачи на позиционирование текста в консоли

Как видите, задача ещё легче чем предыдущая.

Рисунок 4 – Результат позиционирования текста в консоли

Самостоятельно потренеруйтесь над решением подобных задач.

Спасибо за прочтение этой статьи.