Технический форум - Вывести таблицу умножения в QuickBasic

Технический форум (http://www.tehnari.ru/)

- Basic (http://www.tehnari.ru/f127/)

- - Вывести таблицу умножения в QuickBasic (http://www.tehnari.ru/f127/t82956/)

alexeyTTT

24.12.2012 16:31

Вывести таблицу умножения в QuickBasic

Вывести таблицу умножения.

AlexZir

24.12.2012 17:04

Примерно так:

Код:

REM Вывод шапки

CLS

LOCATE 1, 10

PRINT "Таблица Пифагора"

LOCATE 3, 5

FOR i = 1 TO 9

PRINT USING "###"; i;

NEXT i

PRINT

PRINT "--------------------------------"

REM Вывод таблицы Пифагора

FOR i = 1 TO 9

PRINT i; "|";

FOR j = 1 TO 9

PRINT USING "###"; i * j;

NEXT j

PRINT

NEXT i

END

Часовой пояс GMT +4, время: 11:41.