Отправляет email-рассылки с помощью сервиса Sendsay

QBASIC для начинающих

  Все выпуски  

QBASIC для начинающих: форматирование результатов вычеслений.


Здравствуйте, уважаемые подписчики!

В предыдущем уроке мы начали рассматривать математические способности языка QBASIC. Научились складывать, вычитать, умножать, делить и возводить в степень. Однако выводить результаты в виде голых чисел не очень удобно, представьте программу вычисляющую сотню математических выражений, понять что к чему довольно сложно. Давайте рассмотрим возможности форматирования результатов оператора PRINT.

Разделять текст и результат вычислений можно при помощи запятой или точки с запятой.

CLS
PRINT "5 + 7 ="; 5 + 7
PRINT "6 - 3 ="; 6 - 3
PRINT "5 * 2 ="; 6 * 2
PRINT "10 / 2 ="; 10 / 2
PRINT "5 - 2 + 3 ="; 5 - 2 + 3 
PRINT "(5 - 2) + 3 ="; (5 - 2) + 3
PRINT "5 - (2 + 3) ="; 5 - (2 + 3)
PRINT "2 + 3 * 6 ="; 2 + 3 * 6
PRINT "(2 + 3) * 6 ="; (2 + 3) * 6 

Запустив, получим следующий результат:

5 + 7 = 12
6 - 3 = 3
5 * 2 = 10
10 / 2 = 5
5 - 2 + 3 = 6
(5 - 2) + 3 = 6
5 - (2 + 3) = 0
2 + 3 * 6 = 20
(2 + 3) * 6 = 30 

Согласитесь - выдача стала гораздо информативней!

А теперь попробуем добавить в нашу программу несколько строк с разделителем запятой. 

CLS
PRINT "5 + 7 ="; 5 + 7
PRINT "6 - 3 ="; 6 - 3
PRINT "5 * 2 ="; 6 * 2
PRINT "10 / 2 ="; 10 / 2
PRINT "5 - 2 + 3 ="; 5 - 2 + 3 
PRINT "(5 - 2) + 3 ="; (5 - 2) + 3
PRINT "5 - (2 + 3) ="; 5 - (2 + 3)
PRINT "2 + 3 * 6 ="; 2 + 3 * 6
PRINT "(2 + 3) * 6 ="; (2 + 3) * 6
PRINT "2 * 2 * 2 =", 2 * 2 * 2
PRINT "8 - 4 / 2 =", 8 - 4 / 2
  

Запустив, получим следующий результат:

5 + 7 = 12
6 - 3 = 3
5 * 2 = 10
10 / 2 = 5
5 - 2 + 3 = 6
(5 - 2) + 3 = 6
5 - (2 + 3) = 0
2 + 3 * 6 = 20
(2 + 3) * 6 = 30
2 * 2 * 2 = 8
8 - 4 / 2 = 6

Посмотрите внимательно на последние две строки, их форматирование заметно отличается от остальных. Такой способ удобен для вывода результатов в несколько колонок.

Домашнее задание.

Попробуйте модифицировать программу так, что бы получить результаты вычислений в несколько колонок.

Если у Вам что-то не понятно - задайте вопрос на нашем форуме http://forum.qbasic.su 


В избранное