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

[Mr. Kibernetik]

Урок 1 - Переменные

Язык smart BASIC очень прост. В нем всего два типа переменных - числовые и строковые.

Числовые переменные нужны для расчетов и хранения чисел:

Code: Select all

A = 2
B = A * 3

Строковые переменные используются для хранения текста:

Code: Select all

T$ = "Всем привет!"

Строковую переменную отличает то, что в конце ее имени стоит символ "$".

Кроме переменных, в smart BASIC используются команды и функции.
Команды что-нибудь выполняют, например команда PRINT выводит текст на экран:

Code: Select all

PRINT "Это - текст"

А команда INPUT задает вопрос пользователю:

Code: Select all

INPUT "Сколько тебе лет?" : YEAR
PRINT "Я уже знаю, что тебе " & YEAR & " лет"
PRINT "А через год тебе будет " & (YEAR + 1)

Функции возвращают какой-нибудь результат, например:

Code: Select all

PRINT "У вас " & DEVICE_TYPE$ ()
PRINT "с шириной экрана " & SCREEN_WIDTH () & " точек"

Функции имеют скобки "( )" и так же имеют символ "$", если возвращают текст, а не число.

ДЛЯ ПРОГРАММИСТОВ
Кроме того, что smart BASIC не требует предварительного описания переменных, он также позволяет использовать числовые переменные в строковых выражениях и наоборот. Smart BASIC автоматически осуществляет конвертацию между строками и числами в выражениях и параметрах команд, то есть не будет ошибкой написать:
A = 2 + "3"
или
T$ &= SIN (X)

ЗАДАЧА 1
Напишите программу, запрашивающую у пользователя размеры двух катетов и выводящую на экран размер гипотенузы этого прямоугольного треугольника.

[Dedjto]

Спасибо за первый урок. Все получилось!

[Mr. Kibernetik]

Спасибо за первый урок. Все получилось!

Можете переходить к уроку 2

[niks26]

Спасибо за первый урок. Все получилось!

Можете код написать?

[niks26]

Все, тоже получилось, ура.

[Dedjto]

Немного с опозданием, но всё же выложу, что у меня получилось:

Код:

input "Чему равен катет А" : A
input "Чему равен катет В" : B
C =(sqr(A^2+B^2))

print "Гипотенуза C примерно равна "& int(C) 'с округлением до целого числа

/*без округления
print "Гипотенуза C примерно равна "&C*/

[Mr. Kibernetik]

Code: Select all

C =(sqr(A^2+B^2))

Здесь внешние скобки вполне можно убрать. Каждые лишние скобки замедляют вычисления.

[Dedjto]

Спасибо, учту на будущее.

[niks26]

Code: Select all

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

Я так написал

[niks26]

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