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

User avatar
Mr. Kibernetik
Site Admin
Posts: 4460
Joined: Mon Nov 19, 2012 10:16 pm
My devices: iPad, iPhone, MacBook
Location: Russia
Flag: Russia

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

Post by Mr. Kibernetik » Wed Oct 01, 2014 4:14 am

Урок 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
Posts: 32
Joined: Wed Oct 01, 2014 5:04 am
My devices: IPad , iPhone, iPod, Mac mini
Location: Россия

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

Post by Dedjto » Wed Oct 01, 2014 9:48 am

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

User avatar
Mr. Kibernetik
Site Admin
Posts: 4460
Joined: Mon Nov 19, 2012 10:16 pm
My devices: iPad, iPhone, MacBook
Location: Russia
Flag: Russia

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

Post by Mr. Kibernetik » Wed Oct 01, 2014 12:23 pm

Dedjto wrote:Спасибо за первый урок. Все получилось!
Можете переходить к уроку 2 :D

User avatar
niks26
Posts: 14
Joined: Sun Sep 28, 2014 11:16 pm
My devices: iPadmini2, 64gb, cell
iPhone 5s, 16 gb
MacBook Air 13' 2013
iMac 27' 2013
Location: Фаэтон
Contact:

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

Post by niks26 » Wed Oct 01, 2014 8:04 pm

Dedjto wrote:Спасибо за первый урок. Все получилось!
Можете код написать?
Человек, измученный Нарзаном

User avatar
niks26
Posts: 14
Joined: Sun Sep 28, 2014 11:16 pm
My devices: iPadmini2, 64gb, cell
iPhone 5s, 16 gb
MacBook Air 13' 2013
iMac 27' 2013
Location: Фаэтон
Contact:

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

Post by niks26 » Wed Oct 01, 2014 8:18 pm

Все, тоже получилось, ура.
Человек, измученный Нарзаном

Dedjto
Posts: 32
Joined: Wed Oct 01, 2014 5:04 am
My devices: IPad , iPhone, iPod, Mac mini
Location: Россия

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

Post by Dedjto » Wed Oct 01, 2014 8:50 pm

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

Код:

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

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

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

User avatar
Mr. Kibernetik
Site Admin
Posts: 4460
Joined: Mon Nov 19, 2012 10:16 pm
My devices: iPad, iPhone, MacBook
Location: Russia
Flag: Russia

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

Post by Mr. Kibernetik » Wed Oct 01, 2014 9:03 pm

Code: Select all

C =(sqr(A^2+B^2))
Здесь внешние скобки вполне можно убрать. Каждые лишние скобки замедляют вычисления.

Dedjto
Posts: 32
Joined: Wed Oct 01, 2014 5:04 am
My devices: IPad , iPhone, iPod, Mac mini
Location: Россия

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

Post by Dedjto » Wed Oct 01, 2014 9:34 pm

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

User avatar
niks26
Posts: 14
Joined: Sun Sep 28, 2014 11:16 pm
My devices: iPadmini2, 64gb, cell
iPhone 5s, 16 gb
MacBook Air 13' 2013
iMac 27' 2013
Location: Фаэтон
Contact:

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

Post by niks26 » Thu Oct 02, 2014 1:40 am

Code: Select all

input "размер первого катета" : X
input "размер второго катета" : Y
print "размер гипотенузы" & sqr (X^2 + Y^2)
Я так написал
Человек, измученный Нарзаном

User avatar
niks26
Posts: 14
Joined: Sun Sep 28, 2014 11:16 pm
My devices: iPadmini2, 64gb, cell
iPhone 5s, 16 gb
MacBook Air 13' 2013
iMac 27' 2013
Location: Фаэтон
Contact:

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

Post by niks26 » Thu Oct 02, 2014 1:42 am

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

Post Reply