Программирование на smart BASIC. Урок 1

[Mr. Kibernetik]

Скажите, а как сделать, чтобы после расчета гипотенузы вернуться к первоначальному запросу?

Это будет в уроке 3 - переход на метку

Code: Select all

label: 'это метка
print k
k = k + 1
pause 0.3
goto label 'это переход на метку

[niks26]

Скажите, а как сделать, чтобы после расчета гипотенузы вернуться к первоначальному запросу?

Это будет в уроке 3 - переход на метку

Code: Select all

label: 'это метка
print k
k = k + 1
pause 0.3
goto label 'это переход на метку

Получилось!
Спасибо

Code: Select all

label:
input "размер первого катета" : X
input "размер второго катета" : Y
print "размер гипотенузы " & sqr (X^2 + Y^2)
goto label

[Фант]

Отличнаю тема!
Mr.K, где же были Ваши уроки год назад, когда я начинал программировать?

[Mr. Kibernetik]

Отличнаю тема!
Mr.K, где же были Ваши уроки год назад, когда я начинал программировать?

Я уже пытался написать книгу, год назад. Но совсем не было времени. А сейчас, пока Apple принимают следующую версию, можно этим заняться.

[GriVas]

1
print "наченаем"
input "первый катет" :a
input "второй катет" :b
c = SQR (a^2+b^2)
print "гипотинуза равна" : c
goto 1


Это нормально что у меня сначала ответ а потом текст ? В коде то наоборот ...
Меняю местами не помогает ;( то есть ошибка синтаксическая .
Как то я не верно что-то где-то понял .
Поправеть меня можно ?

[Mr. Kibernetik]

1
print "наченаем"
input "первый катет" :a
input "второй катет" :b
c = SQR (a^2+b^2)
print "гипотинуза равна" : c
goto 1


Это нормально что у меня сначала ответ а потом текст ? В коде то наоборот ...
Меняю местами не помогает ;( то есть ошибка синтаксическая .
Как то я не верно что-то где-то понял .
Поправеть меня можно ?

В строке

Code: Select all

print "гипотинуза равна" ; c

должна стоять точка с запятой.