Страница 1 из 1

таблица умножения в MapBasic; её вывод в MapInfo

Добавлено: 04 ноя 2012, 20:37
apelevina
Уважаемые программисты! Помогите нам, студентам, пожалуйста! Задача такая: создать в программе MapBasic программку по выводу на экран программы MapInfo таблицы умножения в виде такой таблицы, какие раньше на тетрадках были:
| 1 2 3 4 5 6 7 ...
--------------------------------
1| 1 2 3 4 5 6 7 ...
2| 2 4 6 8 10 12 14 ...
3|................
создать в блокноте, компилировать файл... Потом открыть этот файл в MapInfo, запустить..Должно появиться сообщение:... в виде такой таблички (см. выше). Как это сделать???
Будем признательны за помощь! нужно срочно! :cry:

Re: таблица умножения в MapBasic; её вывод в MapInfo

Добавлено: 05 ноя 2012, 13:28
thegeo
Как то так:

Declare Sub Main
Declare Sub tb

Sub Main
call tb
end sub
Sub tb
dim i,j,k as integer
dim ss,s as string
Print Chr$(12)
for i=1 to 9
ss=""
for j=1 to 9
k=i*j
if k<10 then
s=" " & k
else
s=k
end if
ss=ss & " " & s
next
print ss
next
end sub

Re: таблица умножения в MapBasic; её вывод в MapInfo

Добавлено: 07 ноя 2012, 14:53
V.Maxim
Непонятно, зачем делать это в MI. правда можно короче сделать :D

Код: Выделить всё

Declare sub Main 
Sub Main
Dim i,j As Integer
Dim Tab(9) As String
For i=1 to 9
 For j=1 to 9
  Tab(i)=Tab(i)+Str$(i*j)+" "
 Next
Print Tab(i)
Next
End sub