RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/FutureBasic/create-a-two-dimensional-array-at-runtime.basic

13 lines
299 B
Text
Raw Permalink Normal View History

2023-08-01 14:30:30 -07:00
CFStringRef iStr, jStr
long i, j
iStr = input @"Enter one positive integer: "
jStr = input @"Enter other positive integer: "
i = fn StringIntegerValue(iStr)
j = fn StringIntegerValue(jStr)
mda (0, 0) = {i, j}
mda (i, j) = i * j
printf @"mda(%ld, %ld) = %ld", i, j, mda_integer (i, j)
HandleEvents