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

alexeyTTT · 24.12.2012, 16:31

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

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

24.12.2012, 16:31	#1 (permalink)
alexeyTTT Новичок Регистрация: 16.12.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вывести таблицу умножения в QuickBasic Вывести таблицу умножения.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

24.12.2012, 16:31
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Я думаю, что внутри этих ссылок вы найдете важную информацию QuickBasic Задачка в QuickBasic Как сделать разлинованную таблицу средствами CSS? Помогите создать таблицу исполнения

24.12.2012, 17:04	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,774 Записей в дневнике: 71 Сказал(а) спасибо: 163 Поблагодарили 201 раз(а) в 85 сообщениях Репутация: 74893	Примерно так: Код: 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

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070