СПО в российских школах » Черный

BASIC-256. Книга целиком

Владимир Черный — Wed, 04 May 2011 11:25:09 +0000

Сравнительно недавно мы публиковали главы из книги Джеймса Рено «So You Want To Learn to Programm?». Теперь доступен для скачивания перевод всей книги.
По сравнению с публикацией на этом блоге, в книге содержится полная справочная информация по операторам и функциям языка, снабженная примерами, а также дополнительная справочная информация, полезная для начинающих программистов.
Перевод выполнен Сергеем Ирюпиным (мантейнер пакета basic256 для репозитория Альт Линукс) и Владимиром Черным.
Скачать перевод можно тут.
Комментарии, критика и ошибки приветствуются.

BASIC-256. Глава 20

Владимир Черный — Fri, 18 Mar 2011 00:00:15 +0000

Этой главой мы завершаем публикацию перевода книги Джеймса Рено. Далее в книге только технические приложения. Всю эту информацию можно взять из справочника внутри самой программы или из сети. Эту главу перевел Владимир Черный.
Оглавление:

Где взять BASIC-256

Глава 20. Сетевые соединения

В этой главе мы обсудим как использовать сетевые возможности BASIC-256. Сетевые функции в BASIC-256 реализованы как простое соединение через сокет с использованием TCP протокола (Transmission Control Protocol — протокол управления передачей). Здесь вы не найдете полного введения в программирование для TCP/IP сокетов.

Соединение с сокетом

Сетевые сокеты создают соединение между двумя компьютерами или программами. Пакеты с информацией могут быть отправлены или получены в двух направлениях через такое соединение.

Рисунок 35 Взаимодействие между сокетами.

Когда вы звоните по телефону, то вы (как клиент) должны знать номер телефона абонента, кому вы звоните (он — сервер). Мы называем такие номера — IP-адрес. BASIC-256 использует IP-адреса версии 4, которые обычно записывают четырьмя десятичными числами, разделенными точкой (A.B.C.D, где A,B,C и D в диапазоне от 0 до 255).

Дополнительно к IP-адресу сервера, клиент и сервер должны общаться через определенный порт. Можно представлять порт, как дополнительный номер к многоканальному телефонному номеру. Если вам (как клиенту) нужен определенный человек в большой компании (имеющей один общий входящий номер), то вам необходимо набрать дополнительно внутренний номер (порт) в ответ на сообщение (телефонного сервера) о соединении с общим номером компании (IP-адресом).

Номера портов могут быть любыми в диапазоне от 0 до 65535, но обычно порты в диапазоне от 0 до 1023 заняты различными системными службами (приложениями), поэтому такие порты не следует использовать.

Пример простого сервера и клиента.
1 # simple_server.kbs пример сервера 2 print "Прием запросов по порту 9999 на IP:" + netaddress() 3 NetListen 9999 4 NetWrite "Тестовое сообщение простого сервера." 5 NetClose
Программа 106 Простой сервер
1 # simple _client.kbs пример клиента 2 input "Введите IP-адрес сервера: ", addr$ 3 if addr$ = "" then addr$ = "127.0.0.1" 4 # 5 NetConnect addr$, 9999 6 print NetRead 7 NetClose
Программа 107 Простой клиент.
Прием запросов по порту 9999 на IP:10.1.2.103
Пример вывода программы 106 Простой сервер
Введите IP-адрес сервера: Тестовое сообщение простого сервера.
Пример вывода программы 107 Простой клиент

netaddress
netaddress()

Эта функция возвращает числовой Ipv4 адрес сетевого компьютера

netlisten номер_порта
netlisten (номер_порта)
netlisten номер_сокета, номер_порта
netlisten (номер_сокета, номер_порта)

Открывает сетевое соединение (со стороны сервера) на указанном порту и ожидает соединений от других программ. Если номер_сокета не указан, используется нулевой (0) номер.

netclose
netclose()
netclose номер_сокета
netclose (номер_сокета)

Завершает указанное сетевое соединение (сокет). Если номер_сокета не указан, сокет с номером ноль (0) будет закрыт.

netwrite строка
netwrite (строка)
netwrite номер_сокета, строка
netwrite (номер_сокета, строка)

Посылает текстовое сообщение в указанное сетевое соединение. Если номер_сокета не указан, используется нулевой (0) номер.

netconnect имя_сервера, номер_порта
netconnect (имя_сервера, номер_порта)
netconnect номер_сокета, имя_сервера, номер_порта
netconnect (номер_сокета, имя_сервера, номер_порта)

Открывает соединение с сервером со стороны клиента по указанному порту. В параметре имя_сервера указывается IP адрес или сетевое имя сервера. Если номер_сокета не указан, используется нулевой (0) номер.

netread
netread()
netread (номер_сокета)

Читает данные из указанного сетевого соединения и возвращает в виде текстовой строки. Эта функция является блокирующей — она ждет, пока данные не будут получены. Если номер_сокета не указан, используется нулевой (0) номер.

Сетевой чат

Следующий пример использует еще одну сетевую функцию (netdata). Использование этой новой функции позволит нашему сетевому клиенту обрабатывать такие события, как нажатия клавиш и чтение сетевых данных только тогда, когда они действительно есть.

Программа сетевого чата (программа 108) комбинирует в себе и свойства сервера и свойства клиента. Если при запуске программы она не сможет соединиться с сервером, это событие будет перехвачено и, программа сама станет сервером. Это один из многих способов дать возможность одной программе выполнять как клиентскую, так и серверную роли.
1 # chat.kbs чат 2 # использует порт 9999 когда работает сервером 3 4 input "Адрес сервера чата (ввод для локальной машины)?", addr$ 5 if addr$ = "" then addr$ = "127.0.0.1" 6 # 7 # Пробуем соединиться с сервером, если неудачно - становимся сервером сами 8 OnError startserver 9 NetConnect addr$, 9999 10 OffError 11 print "Соединение с сервером установлено" 12 13 chatloop: 14 while true 15 # получаем код нажатой клавиши и отсылаем его 16 k = key 17 if k <> 0 then 18 gosub show 19 netwrite string(k) 20 end if 21 # получаем данные из сети и показываем их 22 if NetData() then 23 k = int(NetRead()) 24 gosub show 25 end if 26 pause .01 27 end while 28 end 29 30 show: 31 if k=16777220 then 32 print 33 else 34 print chr(k); 35 end if 36 return 37 38 startserver: 39 OffError 40 print "Сервер запущен, ждем чат-клиента" 41 NetListen 9999 42 print "Клиент установил соединение" 43 goto chatloop 44 return
Программа 108 Сетевой чат

Запустите две копии BASIC-256 с программой 108 Сетевой чат. На первой запущенной копии заработает сервер, а на второй клиент. На клиенте напишите «Привет сервер!», а на сервере напишите в ответ «Привет клиент!». Вывод программы для сервера и для клиента приведены ниже.

Адрес сервера чата (ввод для локальной машины)? Сервер запущен, ждем чат-клиента Клиент установил соединение ПРИВЕТ СЕРВЕР ! ПРИВЕТ КЛИЕНТ !
Пример вывода программы 108.1 Сетевой чат со стороны сервера
Адрес сервера чата (ввод для локальной машины)? Соединение с сервером установлено ПРИВЕТ СЕРВЕР ! ПРИВЕТ КЛИЕНТ !
Пример вывода программы 108.2 Сетевой чат со стороны клиента.

netdata
netdata()

Возвращает истину (true), если есть сетевые данные ожидающие чтения. Это позволяет программе продолжать работать без ожидания прибытия сетевого пакета.

Большая программа этой главы создает сетевую аркадную игру в танки для двух игроков.

У каждого из игроков на экране имеется белый танк (свой) и черный танк (чужой). Используя стрелки можно управлять движением танка. Стреляем пробелом.

1 # battle.kbs танковое сражение 2 # используем порт 9998 когда сервер 3 4 kspace = 32 5 kleft = 16777234 6 kright = 16777236 7 kup = 16777235 8 kdown = 16777237 9 dr = pi / 16 # смена направление 10 dxy = 2.5 # скорость передвижения 11 scale = 20 # размер танка 12 shotscale = 4 # размер снаряда 13 shotdxy = 5 # скорость снаряда 14 port = 9998 # номер порта для связи с сервером 15 16 dim tank(30) 17 tank = {-1,-.66, -.66,-.66, -.66,-.33, -.33, -.33, 0,-1, .33,-.33, .66,-.33, .66,-.66, 1,-.66, 1,1, .66,1, .66,.66, -.66,.66, -.66,1, -1,1} 18 dim shot(14) 19 shot = {0,-1, .5,-.5, .25,0, .5,.75, -.25,.75, -.25,0, -.5,-.5} 20 21 print "Танковое сражение - вы на белом танке." 22 print "Ваша задача поразить выстрелом черный" 23 print "танк. Используйте стрелки для перемещения" 24 print "и пробел для стрельбы." 25 print 26 input "Адрес сервера (ввод для локальной машины)?", addr$ 27 if addr$ = "" then addr$ = "127.0.0.1" 28 29 # Пробуем соединиться с сервером, если неудачно - становимся сервером сами 30 OnError startserver 31 NetConnect addr$, port 32 OffError 33 print "Соединение с сервером установлено" 34 35 playgame: 36 37 myx = 100 38 myy = 100 39 myr = 0 40 # Позиция снаряда (для себя): направление и оставшееся расстояние 41 # (снарядов нет, если mypl=0) 42 mypx = 0 43 mypy = 0 44 mypr = 0 45 mypl = 0 46 yourx = 200 47 youry = 200 48 yourr = pi 49 # Позиция снаряда (для противника): направление и оставшееся расстояние 50 # (снарядов нет, если yourpl=0) 51 yourpx = 0 52 yourpy = 0 53 yourpr = 0 54 yourpl = 0 55 gosub writeposition 56 57 fastgraphics 58 while true 59 # Получаем значение нажатой клавиши и перемещаем танк на экране 60 k = key 61 if k <> 0 then 62 if k = kup then 63 myx = myx + sin(myr) * dxy 64 myy = myy - cos(myr) * dxy 65 end if 66 if k = kdown then 67 myx = myx - sin(myr) * dxy 68 myy = myy + cos(myr) * dxy 69 end if 70 if k = kspace then 71 mypr = myr 72 mypx = myx + sin(mypr) * scale 73 mypy = myy - cos(mypr) * scale 74 mypl = 100 75 end if 76 if myx < scale then myx = graphwidth - scale 77 if myx > graphwidth-scale then myx = scale 78 if myy < scale then myy = graphheight - scale 79 if myy > graphheight-scale then myy = scale 80 if k = kleft then myr = myr - dr 81 if k = kright then myr = myr + dr 82 gosub writeposition 83 end if 84 # перемещаем свой снаряд (если есть снаряды) 85 if mypl > 0 then 86 mypx = mypx + sin(mypr) * shotdxy 87 mypy = mypy - cos(mypr) * shotdxy 88 if mypx < shotscale then mypx = graphwidth - shotscale 89 if mypx > graphwidth-shotscale then mypx = shotscale 90 if mypy < shotscale then mypy = graphheight - shotscale 91 if mypy > graphheight-shotscale then mypy = shotscale 92 if (mypx-yourx)^2 + (mypy-youry)^2 < scale^2 then 93 NetWrite "!" 94 print "Противник убит, Игра закончена." 95 end 96 end if 97 mypl = mypl - 1 98 gosub writeposition 99 end if 100 # Получаем из сети позицию 101 gosub getposition 102 # 103 gosub draw 104 # 105 pause .1 106 end while 107 108 writeposition: ### 109 # 10 символов для x, 10 символов для y, 10 символов для r (поворот) 110 position$ = left(myx + " ",10)+left(myy + " ",10)+left(myr + " ",10)+left(mypx + " ",10)+left(mypy + " ",10)+left(mypr + " ",10)+left(mypl + " ",10) 111 NetWrite position$ 112 return 113 114 getposition: ### 115 # Получаем из сети позицию и устанавливаем переменные для противника 116 while NetData() 117 position$ = NetRead() 118 if position$ = "!" then 119 print "Вы убиты. Игра окончена." 120 end 121 end if 122 yourx = 300 - float(mid(position$,1,10)) 123 youry = 300 - float(mid(position$,11,10)) 124 yourr = pi + float(mid(position$,21,10)) 125 yourpx = 300 - float(mid(position$,31,10)) 126 yourpy = 300 - float(mid(position$,41,10)) 127 yourpr = pi + float(mid(position$,51,10)) 128 yourpl = pi + float(mid(position$,61,10)) 129 end while 130 return 131 132 draw: ### 133 clg 134 color green 135 rect 0,0,graphwidth,graphheight 136 color white 137 stamp myx, myy, scale, myr, tank 138 if mypl > 0 then 139 stamp mypx, mypy, shotscale, mypr, shot 140 end if 141 color black 142 stamp yourx, youry, scale, yourr, tank 143 if yourpl > 0 then 144 color red 145 stamp yourpx, yourpy, shotscale, yourpr, shot 146 end if 147 refresh 148 return 149 150 startserver: 151 OffError 152 print "Сервер запущен, ожидаем присоединения клиента" 153 NetListen port 154 print "Клиент соединился с сервером" 155 goto playgame 156 return
Программа 109 Танковое сражение по сети¹

Пример графического экрана программы 109 Танковое сражение по сети.

———————————————-
1Программа нуждается в доработке: а) Выстрел в сторону может попасть в противника, т. к. поле рассматривается как сферическое, при этом снаряд может пройти и через ваш танк, не причинив ему вреда, что довольно странно б) Если первый выстрел еще не долетел, а вы выстрелили вновь — первый выстрел пропадет (прим. редактора).

============================

Где скачать BASIC-256:

Для дистрибутивов ALT Linux

ветка 4.0 basic256-0.9.6-alt5.M40.1.i586.rpm
ветка 4.1 basic256-0.9.6-alt5.M41.1.i586.rpm
ветка p5 basic256-0.9.6-alt5.M50P.1.i586.rpm
ветка 5.1 basic256-0.9.6-alt5.M51.1.i586.rpm

Windows версия
http://basic256.org (http://www.sourceforge.net/projects/kidbasic)

Как установить BASIC-256 в Linux

Для Альт Линукс: настроить репозиторий и обновить/установить пакет через synaptic или apt
Для rpm-based дистрибутивов: rpm -Uvh <имя_пакета>.rpm

BASIC-256. Глава 19

Владимир Черный — Fri, 11 Mar 2011 00:00:50 +0000

Продолжаем публиковать перевод книги Джеймса Рено. Эту главу перевел Владимир Черный.
Оглавление:

Где взять BASIC-256

Глава 19 Программирование баз данных

В этой главе вы увидите, как BASIC-256 может установить соединение с простой реляционной базой данных для хранения в ней и получения из нее полезных данных.

Что такое база данных

База данных, говоря упрощенно, — это организованная коллекция чисел, строк и информации другого типа. Наиболее известны базы данных реляционного типа. Реляционные базы данных состоят из четырех главных составляющих: таблиц, строк, колонок и отношений между ними (связей, см табл 8).

Таблица	Таблица состоит из заранее определенного числа колонок и любого количества строк содержащих информацию об объектах или субъектах. Таблицу также называют отношением.
Строка	Также называемая кортеж
Колонка	Также называют атрибут
Связи	Ссылка ключевого столбца одной таблицы на колонку другой таблицы, создающее взаимосвязь таблиц.

Таблица 8 Главные компоненты реляционной базы данных.

Язык SQL

Большинство реляционных баз данных сегодня используют язык, называемый SQL для выбора и управления данными. SQL это акроним от Structured Query Language — Структурированный язык запросов. Первый SQL язык был разработан IBM в 1970 году и стал главным языком используемым в реляционных базах.

SQL достаточно мощный язык и был реализован многими компаниями за все годы с момента появления. В результате такого многообразия появилось и используется множество различных диалектов языка SQL. BASIC-256 использует SQLite в качестве системы управления базой данных. Пожалуйста ознакомьтесь с диалектом этого SQL языка на веб-странице SQLite: http://www.sqlite.org, поскольку данный диалект используется в приведенных ниже примерах.

Создание базы и добавление данных в нее

SQLite база данных не требует установки сервера или создания какой-то сложной системы. База данных и все ее части хранятся в простом файле на вашем компьютере. Этот файл можно скопировать на другой компьютер и использовать там без проблем. Первая программа (программа 102. Создаем базу данных) создает новый файл базы данных и таблицы. Таблицы представлены на ER-диаграмме (см. рис.34)

Рисунок 34 ER-диаграмма базы данных

1 # chapter 19 dbcreate.kbs 2 # Удаляем прежний файл базы данных и создаем базу с двумя таблицами 3 errors = 0 4 file$ = "pets.sqlite3" 5 if exists(file$) then kill(file$) 6 dbopen file$ 7 8 stmt$ = "CREATE TABLE owner (owner_id INTEGER, ownername TEXT, phonenumber TEXT, PRIMARY KEY (owner_id));" 9 gosub execute 10 11 stmt$ = "CREATE TABLE pet (pet_id INTEGER, owner_id INTEGER, petname TEXT, type TEXT, PRIMARY KEY (pet_id), FOREIGN KEY (owner_id) REFERENCES owner (owner_id));" 12 gosub execute 13 14 # Закрываем все. 15 dbclose 16 print file$ + " создан. " + errors + " ошибок." 17 end 18 19 execute: 20 print stmt$ 21 onerror executeerror 22 dbexecute stmt$ 23 offerror 24 return 25 26 executeerror: 27 errors = errors + 1 28 print "ERROR: " + lasterror + " " + lasterrormessage + " " + lasterrorextra 29 return
Программа 102 Создаем базу данных

CREATE TABLE owner (owner_id INTEGER, ownername TEXT, phonenumber TEXT, PRIMARY KEY (owner_id)); CREATE TABLE pet (pet_id INTEGER, owner_id INTEGER, petname TEXT, type TEXT, PRIMARY KEY (pet_id), FOREIGN KEY (owner_id) REFERENCES owner (owner_id)); pets.sqlite3 создан. 0 ошибок.
Пример вывода программы 102 Создаем базу данных

В приведенной выше программе вы видели три новых функции для работы с базами данных: dbopen – открывает файл базы данных или создает новый, если файл не существует, dbexecute – выполняет SQL команду на открытой базе данных, и dbclose – закрывает открытый файл базы данных.

dbopen имя_файла

Открывает файл SQLite базы данных. Если база не существует, создается пустой файл базы данных.

dbexecute sql-запрос

Выполняет sql-запрос на текущей открытой базе данных. Эта функция не возвращает данных, но возможно перехватить ошибку, если таковая возникнет в процессе выполнения запроса.

dbclose

Закрывает текущий открытый файл SQLite базы данных. Эта функция гарантирует, что все данные будут записаны в файл базы.

Эти же три функции можно использовать и для выполнения других SQL запросов к базе. Например, вставка новых строк в таблицы (см программу 103) с помощью INSERT INTO и обновление имеющихся строк таблицы с помощью SQLзапроса UPDATE (см. программу 104).
1 # chapter19 dbinsert.kbs 2 # add rows to the database 3 4 file$ = "pets.sqlite3" 5 dbopen file$ 6 7 owner_id = 0 8 pet_id = 0 9 10 ownername$ = "Джим": phonenumber$ = "555-3434" 11 gosub addowner 12 petname$ = "Пятнышко": type$ = "Кот" 13 gosub addpet 14 petname$ = "Фред": type$ = "Кот" 15 gosub addpet 16 petname$ = "Элвис": type$ = "Кот" 17 gosub addpet 18 19 ownername$ = "Сью": phonenumber$ = "555-8764" 20 gosub addowner 21 petname$ = "Альфред": type$ = "Кот" 22 gosub addpet 23 petname$ = "Фидо": type$ = "Собака" 24 gosub addpet 25 26 ownername$ = "Эми": phonenumber$ = "555-9932" 27 gosub addowner 28 petname$ = "Домино": type$ = "Собака" 29 gosub addpet 30 31 ownername$ = "Ди": phonenumber$ = "555-4433" 32 gosub addowner 33 petname$ = "Сэм": type$ = "Козел" 34 gosub addpet 35 36 # закрываем все 37 dbclose 38 end 39 40 addowner: 41 owner_id = owner_id + 1 42 stmt$ = "INSERT INTO owner (owner_id, ownername, phonenumber) VALUES (" + owner_id + "," + chr(34) + ownername$ + chr(34) + "," + chr(34) + phonenumbe r$ + chr(34) + ");" 43 print stmt$ 44 onerror adderror 45 dbexecute stmt$ 46 offerror 47 return 48 49 addpet: 50 pet_id = pet_id + 1 51 stmt$ = "INSERT INTO pet (pet_id, owner_id, petname, type) VALUES (" + pet_id + "," + owner_id + "," + chr(34) + petname$ + chr(34) + "," + chr(34) + type$ + chr(34) + ");" 52 print stmt$ 53 onerror adderror 54 dbexecute stmt$ 55 offerror 56 return 57 58 adderror: 59 print "ERROR: " + lasterror + " " + lasterrormessage + " " + lasterrorextra 60 return
Программа 103 Вставка строк в базу данных
INSERT INTO owner (owner_id, ownername, phonenumber) VALUES (1,"Джим","555-3434"); INSERT INTO pet (pet_id, owner_id, petname, type) VALUES (1,1,"Пятнышко","Кот"); INSERT INTO pet (pet_id, owner_id, petname, type) VALUES (2,1,"Фред","Кот"); INSERT INTO pet (pet_id, owner_id, petname, type) VALUES (3,1,"Элвис","Кот"); INSERT INTO owner (owner_id, ownername, phonenumber) VALUES (2,"Сью","555-8764"); INSERT INTO pet (pet_id, owner_id, petname, type) VALUES (4,2,"Альфред","Кот"); INSERT INTO pet (pet_id, owner_id, petname, type) VALUES (5,2,"Фидо","Собака"); INSERT INTO owner (owner_id, ownername, phonenumber) VALUES (3,"Эми","555-9932"); INSERT INTO pet (pet_id, owner_id, petname, type) VALUES (6,3,"Домино","Собака"); INSERT INTO owner (owner_id, ownername, phonenumber) VALUES (4,"Ди","555-4433"); INSERT INTO pet (pet_id, owner_id, petname, type) VALUES (7,4,"Сэм","Козел");

Пример вывода программы 103 Вставка строк в базу данных
1 # chapter 19 dbupdate.kbs 2 # Обновление данных 3 4 dbopen "pets.sqlite3" 5 6 # create and populate 7 s$ = "UPDATE owner SET phonenumber = " + chr(34) + "555-5555" + chr(34) + " where owner_id = 1;" 8 print s$ 9 dbexecute s$ 10 dbclose
Программа 104 Обновление данных строки

UPDATE owner SET phonenumber = "555-5555" where owner_id = 1;
Пример вывода программы 104 Обновление данных строки

Получение информации из базы данных

Итак, мы умеем открывать и закрывать файл базы данных, а также исполнять SQL-запрос, который не возвращает данных. База данных, из которой нельзя получить информацию достаточно бесполезна.

Оператор SELECT (выбор) языка SQL позволяет нам получать необходимые данные. После выполнения SQL-запроса содержащего оператор SELECT создается набор записей, содержащих информацию из строк и столбцов таблиц базы данных. Программа 105 демонстрирует три различных запроса на выборку данных и как BASIC-256 программа может их использовать.
1 # chapter 19 dbselect.kbs 2 # Get data from the pets database 3 4 dbopen "pets.sqlite3" 5 6 # Показываем владельцев и номера их телефонов 7 print "Владельцы и номера телефонов" 8 dbopenset "SELECT ownername, phonenumber FROM owner ORDER BY ownername;" 9 while dbrow() 10 print dbstring(0) + " " + dbstring(1) 11 end while 12 dbcloseset 13 14 print 15 16 # Показываем вадельцев и их питомцев 17 print "Владельцы и питомцы" 18 dbopenset "SELECT owner.ownername, pet.pet_id, pet.petname, pet.type FROM owner JOIN pet ON pet.owner_id = owner.owner_id ORDER BY ownername, petname;" 19 while dbrow() 20 print dbstring(0) + " " + dbint(1) + " " + dbstring(2) + " " + dbstring(3) 21 end while 22 dbcloseset 23 24 print 25 26 # Показываем среднее значение количества питомцев 27 print "Среднее количество питомцев" 28 dbopenset "SELECT AVG(c) FROM (SELECT COUNT(*) AS c FROM owner JOIN pet ON pet.owner_id = owner.owner_id GROUP BY owner.owner_id) AS numpets;" 29 while dbrow() 30 print dbfloat(0) 31 end while 32 dbcloseset 33 34 # Закрываем все 35 dbclose

Программа 105 Получение данных из базы

Владельцы и номера телефонов Джим 555-5555 Ди 555-4433 Сью 555-8764 Эми 555-9932


Владельцы и питомцы

Джим 1 Пятнышко Кот

Джим 2 Фред Кот

Джим 3 Элвис Кот

Ди 7 Сэм Козел

Сью 4 Альфред Кот

Сью 5 Фидо Собака

Эми 6 Домино Собака

Среднее количество питомцев 1.75

Пример вывода программы 105 Получение данных из базы

dbopenset sql-запрос

Выполняет запрос на выборку данных (SELECT) из базы данных создавая набор строк как результат, так что программно можно их читать. Результатом запроса может быть 0 или более строк в зависимости от запроса.

dbrow

dbrow()

Читает очередную строку из набора строк сформированного функцией dbopenset. Если строчки кончились, возвращает false (ложь)

Для чтения первой строки из набора необходимо использовать dbrow сразу после dbopenset.

dbint (колонка)
dbfloat (колонка)
dbstring (колонка)

Эти функции возвращают данные из текущей строки запроса. Необходимо знать цифровой номер (начинающийся с нуля) колонки с необходимыми данными.

dbint	Возвращает содержимое ячейки как целое
dbfloat	Возвращает содержимое ячейки как десятичную дробь
dbstring	Возвращает содержимое ячейки как строку.

dbcloseset

Закрывает и сбрасывает результат предыдущего запроса функции dbopenset

============================

Где скачать BASIC-256:

Для дистрибутивов ALT Linux

ветка 4.0 basic256-0.9.6-alt5.M40.1.i586.rpm
ветка 4.1 basic256-0.9.6-alt5.M41.1.i586.rpm
ветка p5 basic256-0.9.6-alt5.M50P.1.i586.rpm
ветка 5.1 basic256-0.9.6-alt5.M51.1.i586.rpm

Windows версия
http://basic256.org (http://www.sourceforge.net/projects/kidbasic)

Как установить BASIC-256 в Linux

BASIC-256. Глава 18

Владимир Черный — Fri, 04 Mar 2011 00:00:19 +0000

Продолжаем публиковать перевод книги Джеймса Рено. Эту главу перевел Владимир Черный.
Оглавление:

Где взять BASIC-256

Глава 18 Ловушки для ошибок времени исполнения

Если вы работали над примерами и создавали свои программы, то видели ошибки, случающиеся, когда программа выполняется. Такие ошибки называются «ошибки времени исполнения» (по английски: «runtime errors»). BASIC-256 включает группу специальных команд, которые позволяют запрограммировать восстановление после ошибки или их обработку.

Перехват ошибок, даже если вы об этом не думаете, может вызвать проблемы. Его следует использовать только если это нужно и отключать такие ловушки, когда в этом нет необходимости.

Перехват ошибок

Когда режим перехвата ошибок включен с помощью оператора onerror, программа переходит на указанную подпрограмму в момент возникновения ошибки. Если мы посмотрим в программу 99, то увидим, что подпрограмма обработки ошибки вызывается в момент, когда программа пытается прочитать значение переменной z (неопределенная переменная). Если закомментировать первую строку этой программы и попробовать ее запустить, она просто завершится, когда произойдет ошибка.
1 onerror errortrap 2 3 print "z = " + z 4 print "все еще работает после ошибки" 5 end 6 7 errortrap: 8 print "Я поймал ошибку!" 9 return
Программа 99 Простой пример перехвата ошибок.
Я поймал ошибку! z = 0 все еще работает после ошибки
Пример вывода программы 99 Простой пример перехвата ошибок.

onerror метка

Создает ловушку для ошибки, программа автоматически переходит к подпрограмме, определенной меткой, когда произойдет ошибка.

Какая ошибка произошла?

Иногда знание того, что произошла ошибка не достаточно. Есть функции, которые возвращают номер ошибки (lasterror), строку программы, где произошла ошибка (lasterrorline), текстовое сообщение, поясняющее суть ошибки (lasterrormessage) и дополнительные сообщения об ошибке (lasterrorextra).

Программа 100 модифицирует предыдущую программу и печатает деталировку произошедшей ошибки.

1 onerror errortrap 2 3 print "z = " + z 4 print "все еще работает после ошибки" 5 end 6 7 errortrap: 8 print "Ловушка активирована!" 9 print " Ошибка = " + lasterror 10 print " На строке = " + lasterrorline 11 print " Сообщение = " + lasterrormessage 12 return
Программа 100 Ловушка для ошибок с комментариями
Ловушка активирована! Ошибка = 12 На строке = 3 Сообщение = Неизвестная переменная z = 0 все еще работает после ошибки
Пример вывода программы 100 Ловушка для ошибок с комментариями

lasterror или lasterror()
lasterrorline или lasterrorline()
lasterrormessage или lasterrormessage()
lasterrorextra или lasterrorextra()

Четыре функции возвращают информацию о последней перехваченной ошибке. Значения остаются неизменными, пока не произойдет еще одна ошибка.

lasterror	Возвращает номер последней перехваченной ошибки. Если ошибок не было, возвращает нуль. См. Дополнение J Номера ошибок — там полный список перехватываемых ошибок.
lasterrorline	Возвращает номер строки, где произошла ошибка
lasterrormessage	Возвращает строку описания ошибки
lasterrorextra	Возвращает строку с дополнительным описанием ошибки. Для большинства ошибок эта функция ничего не выводит.

Отключение режима перехвата ошибок

Иногда нужно, чтобы программа перехватывала ошибки в одной своей части и не перехватывала в другой. Вы увидите такие примеры в следующих главах.

Оператор offerror отключает режим перехвата ошибок. После него, любая ошибка приведет к остановке выполнения программы.
1 onerror errortrap 2 print "z = " + z 3 print "Продолжаю работать после первой ошибки" 4 5 offerror 6 print "z = " + z 7 print "Продолжаю работать после второй ошибки" 8 9 end 10 11 errortrap: 12 print "Перехват ошибок активирован" 13 return
Программа 101 Отключение перехвата ошибок
Перехват ошибок активирован z = 0 Продолжаю работать после первой ошибки ОШИБКА в строке 6: Неизвестная переменная
Пример вывода программы 101 Отключение перехвата ошибок

============================

Где скачать BASIC-256:

Для дистрибутивов ALT Linux

ветка 4.0 basic256-0.9.6-alt5.M40.1.i586.rpm
ветка 4.1 basic256-0.9.6-alt5.M41.1.i586.rpm
ветка p5 basic256-0.9.6-alt5.M50P.1.i586.rpm
ветка 5.1 basic256-0.9.6-alt5.M51.1.i586.rpm

Windows версия
http://basic256.org (http://www.sourceforge.net/projects/kidbasic)

Как установить BASIC-256 в Linux

BASIC-256. Глава 17

Владимир Черный — Fri, 25 Feb 2011 00:00:14 +0000

Продолжаем публиковать перевод книги Джеймса Рено. Эту главу перевел Владимир Черный.
Оглавление:

Где взять BASIC-256

Глава 17 Стеки, очереди, списки и сортировка

Эта глава посвящена введению в достаточно сложные понятия, которые рассматриваются на первых курсах факультетов информатики университетов. Первые три темы (стеки, очереди и связанные списки) описывают наиболее общие способы хранения информации в компьютерных системах, последние две описывают алгоритмы сортировки информации.

Стек

Стек, наиболее общая структура данных, используемая программистами во многих задачах. Стек работает как колода карт в игре «сумасшедшая восьмерка»¹. Когда вы добавляете данные в стек, они добавляются сверху (называется «push»²) и эти данные расположены в стеке над другими. Когда вы хотите получить информацию из стека, то можете взять только самый верхний элемент, открывая доступ к нижележащему (называется «pop»³). Рисунок 27 демонстрирует эту схему.

Рис. 27 Что такое стек

Операции со стеком также можно описать как «последним пришел, первым ушел», или как принято в англоязычных странах «last in, first out» сокращенно LIFO. Последнее добавленное в стек значение, будет следующим, которое из него извлечено. Программа 94 организует стек используя массив и указатель на последний добавленный элемент. В подпрограмме «pushstack» вы увидите как с помощью изменения размеров массива реализуется теоретически произвольный размер стека.

1 # stack.kbs 2 # реализация стека, используя массив 3 4 dim stack(1) # массив для хранения стека в начале 5 nstack = 0 # количество элементов стека 6 7 value = 1 8 gosub pushstack 9 value = 2 10 gosub pushstack 11 value = 3 12 gosub pushstack 13 value = 4 14 gosub pushstack 15 value = 5 16 gosub pushstack 17 18 while nstack > 0 19 gosub popstack 20 print value 21 end while 22 23 end 24 25 popstack: # 26 # получаем значение верхнего элемента стека и помещаем его в переменную value 27 if nstack = 0 then 28 print "стек пуст" 29 else 30 nstack = nstack - 1 31 value = stack[nstack] 32 end if 33 return 34 35 pushstack: # 36 # помещает число в переменную стека 36 # помещает число в переменную стека 37 # увеличивает размер стека, если он уже полон 38 if nstack = stack[?] then redim stack(stack[?] + 5) 39 stack[nstack] = value 40 nstack = nstack + 1 41 return
Программа 94 Стек
5 4 3 2 1
Пример вывода программы 94 Стек

Очередь

Очередь — еще одна из распространенных форм представления данных. Очередь, в простейшем виде, напоминает цепочку выстроившуюся у линии раздачи завтрака в школе. Первый в очереди, первым получает еду. Рисунок 28 демонстрирует блочную. диаграмму очереди.

Рисунок 28 Что такое очередь

Термины enqueue и dequeue используются для обозначения процессов добавления нового элемента в хвост очереди и удаления элемента из головы очереди соответственно. Иногда очередь описывают, как «первым пришел, первым ушел» или на английском языке FIFO («first in, first out»). Пример в программе 95 использует массив и два указателя, для отслеживания «головы» и «хвоста» очереди.

1 # queue.kbs 2 # реализация очереди через массив 3 4 # размер очереди в любой момент времени 5 queuesize = 4 6 # массив для элементов очереди 7 dim queue(queuesize) 8 # Положение следующего входящего элемента (указатель на хвост) 9 tail = 0 10 # Положение в очереди возвращаемого элемента (указатель на голову) 11 head = 0 12 # количество элементов в очереди 13 inqueue = 0 14 15 value = 1 16 gosub enqueue 17 value = 2 18 gosub enqueue 19 20 gosub dequeue 21 print value 22 23 value = 3 24 gosub enqueue 25 value = 4 26 gosub enqueue 27 28 gosub dequeue 29 print value 30 gosub dequeue 31 print value 32 33 value = 5 34 gosub enqueue 35 value = 6 36 gosub enqueue 37 value = 7 38 gosub enqueue 39 40 # очищение очереди 41 while inqueue > 0 42 gosub dequeue 43 print value 44 end while 45 46 end 47 48 dequeue: # 49 if inqueue = 0 then 50 print "очередь пуста" 51 else 52 inqueue = inqueue - 1 53 value = queue[head] 54 print "удаление элемента value=" + value + " из положения=" + head + " в очереди=" + inqueue +" элементов" 55 # перемещение указателя на начало. Если мы в конце массива, переходим к началу. 56 head = head + 1 57 if head = queuesize then head = 0 58 end if 59 return 60 61 enqueue: # 62 if inqueue = queuesize then 63 print "очередь заполнена" 64 else 65 inqueue = inqueue + 1 66 queue[tail] = value 67 print "добавляемый элемент value=" + value + " в положение=" + tail + " в очереди=" + inqueue +" элементов" 68 # перемещаем указатель конца очереди, если достигли конца, переходим к началу. 69 tail = tail + 1 70 if tail = queuesize then tail = 0 71 end if 72 return
Программа 95 Очередь
добавляемый элемент value=1 в положение=0 в очереди=1 элементов добавляемый элемент value=2 в положение=1 в очереди=2 элементов удаление элемента value=1 из положения=0 в очереди=1 элементов 1 добавляемый элемент value=3 в положение=2 в очереди=2 элементов добавляемый элемент value=4 в положение=3 в очереди=3 элементов удаление элемента value=2 из положения=1 в очереди=2 элементов 2 удаление элемента value=3 из положения=2 в очереди=1 элементов 3 добавляемый элемент value=5 в положение=0 в очереди=2 элементов добавляемый элемент value=6 в положение=1 в очереди=3 элементов добавляемый элемент value=7 в положение=2 в очереди=4 элементов удаление элемента value=4 из положения=3 в очереди=3 элементов 4 удаление элемента value=5 из положения=0 в очереди=2 элементов 5 удаление элемента value=6 из положения=1 в очереди=1 элементов 6 удаление элемента value=7 из положения=2 в очереди=0 элементов 7
Пример вывода программы 95 Очередь

Связный список

В большинстве книг обсуждение материала этой главы начинается со связных списков. Однако BASIC-256 по другому организует память, чем другие языки, поэтому мы обсуждаем связные списки после стеков и очередей.

Связный список, это последовательность элементов, содержащих данные и указатель на следующий элемент в списке. Кроме этих элементов нам необходимо иметь указатель на первый объект списка. Мы назовем первый элемент списка «голова». Взгляните на рисунок 29, где видно, как каждый объект списка указывает на другой.

Рисунок 29 Связный список

Преимущество связных списков над массивом в том, что можно с легкостью добавлять или удалять его элементы. Чтобы стереть элемент списка достаточно поменять указатель у предыдущего элемента на последующий (см. рисунок 30) и освобождение элемента так, чтобы его можно было использовать.

Рисунок 30. Удаление элемента списка.

Добавление нового элемента тоже просто. Надо создать элемент и связать его с предыдущим и последующим элементом в списке. Рисунок 31 иллюстрирует этот процесс.

Рисунок 31 Добавление элемента в связный список.

Связные списки обычно рассматривают как простейшие структуры данных. В языке BASIC мы не можем выделять память так как это делается в большинстве языков, поэтомы мы имитируем поведение списка через массивы. В программе 96 мы используем массив data$ для хранения текста в списке, массив nextitem для хранения указателей на следующий элемент списка и freeitem массив для хранения стека свободных (неиспользуемых) индексов.

1 # linkedlist.kbs 2 # Cвязный список через массивы 3 # наибольшее количество элементов списка 4 n = 8 5 # данные для элементов списка 6 dim data$(n) 7 # указатели на следующий элемент списка 8 dim nextitem(n) 9 # список (стек) свободных элементов 10 dim freeitem(n) 11 12 # начальный стек свободных элементов 13 for t = 0 to n-1 14 freeitem[t] = t 15 next t 16 lastfree = n-1 17 18 # начало списка - -1 = указатель "в никуда" 19 head = -1 20 21 # список из 3 элементов 22 text$ = "Голова" 23 gosub append 24 text$ = "еще" 25 gosub append 26 text$ = "нечто" 27 gosub append 28 gosub displaylist 29 gosub displayarrays 30 gosub wait 31 32 print "удаляем второй элемент" 33 r = 2 34 gosub delete 35 gosub displaylist 36 gosub displayarrays 37 gosub wait 38 39 print "вставляем элемент 1" 40 r = 1 41 text$ = "что-то" 42 gosub insert 43 gosub displaylist 44 gosub displayarrays 45 gosub wait 46 47 print "вставляем элемент 2" 48 r = 2 49 text$ = "кое-что" 50 gosub insert 51 gosub displaylist 52 gosub displayarrays 53 gosub wait 54 55 print "удаляем элемент 1" 56 r = 1 57 gosub delete 58 gosub displaylist 59 gosub displayarrays 60 gosub wait 61 62 end 63 64 wait: ## ждем ввода 65 input "нажмите ввод? ", garbage$ 66 print 67 return 68 69 # показываем список следуя связям 70 displaylist: 71 print "Список..." 72 k = 0 73 i = head 74 do 75 k = k + 1 76 print k + " "; 77 print data$[i] 78 i = nextitem[i] 79 until i = -1 80 return 81 82 # Показываем сохраненные в массивах данные: что и как 83 displayarrays: 84 print "массивы..." 85 for i = 0 to n-1 86 print i + " " + data$[i] + " ->" + nextitem[i] ; 87 for k = 0 to lastfree 88 if freeitem[k] = i then print " <<свободно"; 89 next k 90 if head = i then print " <<голова"; 91 print 92 next i 93 return 94 95 # вставить в text$ в позицию r 96 insert: 97 if r = 1 then 98 gosub createitem 99 nextitem[index] = head 100 head = index 101 else 102 k = 2 103 i = head 104 while i <> -1 and k <> r 105 k = k + 1 106 i = nextitem[i] 107 end while 108 if i <> -1 then 109 gosub createitem 110 nextitem[index] = nextitem[i] 111 nextitem[i] = index 112 else 113 print "Нельзя вставить после конца списка" 114 end if 115 end if 116 return 117 118 # удалить элемент r из связного списка 119 delete: 120 if r = 1 then 121 index = head 122 head = nextitem[index] 123 gosub freeitem 124 else 125 k = 2 126 i = head 127 while i <> -1 and k <> r 128 k = k + 1 129 i = nextitem[i] 130 end while 131 if i <> -1 then 132 index = nextitem[i] 133 nextitem[i] = nextitem[nextitem[i]] 134 gosub freeitem 135 else 136 print "нельзя удалить после конца списка" 137 end if 138 end if 139 return 140 141 # добавляем text$ в конец связного списка 142 append: 143 if head = -1 then 144 gosub createitem 145 head = index 146 else 147 i = head 148 while nextitem[i] <> -1 149 i = nextitem[i] 150 end while 151 gosub createitem 152 nextitem[i] = index 153 endif 154 return 155 156 # освобожденный элемент из index добавляем к стеку свободных элементов 157 freeitem: 158 lastfree = lastfree + 1 159 freeitem[lastfree] = index 160 return 161 162 # сохраняем значение text$ в data$ и возвращаем указатель на новое положение 163 createitem: 164 if lastfree < 0 then 165 print "нет свободного места" 166 end 167 end if 168 index = freeitem[lastfree] 169 data$[index] = text$ 170 nextitem[index] = -1 171 lastfree = lastfree - 1 172 return
Программа 96 Связный список.

Перепишите программу 96 чтобы реализовать стек и очередь через связный список.

Медленно и не эффективно — сортировка пузырьком

Пузырьковая сортировка, возможно, самый плохой алгоритм, придуманный для сортировки данных. Он очень медлителен и не эффективен за исключением небольших объемов данных. Это классический пример плохого алгоритма.

Единственная польза этого алгоритма в том, что его легко объяснить и реализовать. Рисунок 32 показывает блок-схему этого алгоритма. Суть пузырьковой сортировки в том, что мы многократно просматриваем массив переставляя смежные элементы до тех пор, пока все не отсортируем.

Рис. 32 Блок-схема пузырьковой сортировки

1 # bubblesort.kbs 2 # реализация простой сортировки 3 4 # Пузырьковая сортировка один из самых медлительных 5 # алгоритмов для сортировки, но он прост для понимания 6 # и реализации. 7 # 8 # Алгоритм Пузырьковой сортировки состоит из 9 # 1. Просмотра всех элементов массива с перестановкой 10 # соседних значений так, что меньшее значение 11 # перемещается вперед. 12 # 2. Шаг 1 повторяется многократно, пока не прекратятся 13 # перестановки (массив отсортирован) 14 # 15 16 dim d(20) 17 18 # Заполняем массив случайными 19 # неотсортированными данными 20 for i = 0 to d[?]-1 21 d[i] = rand * 1000 22 next i 23 24 print "*** До сортировки ***" 25 gosub displayarray 26 27 gosub bubblesort 28 29 print "*** Отсортировано ***" 30 gosub displayarray 31 end 32 33 displayarray: 34 # распечатка значений массива 35 for i = 0 to d[?]-1 36 print d[i] + " "; 37 next i 38 print 39 return 40 41 bubblesort: 42 do 43 sorted = true 44 for i = 0 to d[?] - 2 45 if d[i] > d[i+1] then 46 sorted = false 47 temp = d[i+1] 48 d[i+1] = d[i] 49 d[i] = temp 50 end if 51 next i 52 until sorted 53 return
Программа 97 Пузырьковая сортировка

Лучшая сортировка — сортировка вставками

Сортировка вставками — еще один алгоритм сортировки данных. Обычно он быстрее чем пузырьковая сортировка, но в худшем случае может занять столько же времени.

Сортировка вставками получила свое название из-за принципа работы. Во время сортировки просматривает массив элементов (от index=1 до length-1) и вставляет значение в правильное положение, по отношению к предыдущим уже отсортированным элементам массива. Рисунок 33 демонстрирует этот принцип.

Рис. 33 Сортировка вставкой, шаг за шагом.

1 # insertionsort.kbs 2 # реализация эффективной сортировки 3 4 dim d(20) 5 6 # заполнение массива случайными данными 7 for i = 0 to d[?]-1 8 d[i] = rand * 1000 9 next i 10 11 print "*** Без сортировки ***" 12 gosub displayarray 13 14 gosub insertionsort 15 16 print "*** Отсортировано ***" 17 gosub displayarray 18 end 19 20 displayarray: 21 # Печать данных массива 22 for i = 0 to d[?]-1 23 print d[i] + " "; 24 next i 25 print 26 return 27 28 insertionsort: 29 # цикл по массиву начиная со второго элемента 30 # берем текущий элемент и вставляем его 31 # в правильное (по сортировке) место 32 # среди цепочки предыдущих отсортированных элементов 33 34 # двигаясь в обратном направлении от текущего положения 35 # и сдвигая элементы с большим значением 36 # для получения места для текущего элемента в правильном 37 # месте (в уже частично отсортированном массиве) 38 39 for i = 1 to d[?] - 1 40 currentvalue = d[i] 41 j = i - 1 42 done = false 43 do 44 if d[j] > currentvalue then 45 d[j+1] = d[j] 46 j = j - 1 47 if j < 0 then done = true 48 else 49 done = true 50 endif 51 until done 52 d[j+1] = currentvalue 53 next i 54 return
Программа 98. Сортировка вставкой.

Перепишите программу 98 используя связные списки как в программе 96

Узнайте про другие алгоритмы сортировки и реализуйте их на BASIC-256

—————————————————
¹ Можно сравнить стек с магазином патронов у автомата или автоматического пистолета (прим. переводчика)

² В данном случае слово «push» можно перевести как «продавить», что очевидно, если сравнивать стек с магазином, а добавление информации с помещением патрона в магазин. (прим. переводчика)

³ вытолкнуть (прим. переводчика)

============================

Где скачать BASIC-256:

Для дистрибутивов ALT Linux

ветка 4.0 basic256-0.9.6-alt5.M40.1.i586.rpm
ветка 4.1 basic256-0.9.6-alt5.M41.1.i586.rpm
ветка p5 basic256-0.9.6-alt5.M50P.1.i586.rpm
ветка 5.1 basic256-0.9.6-alt5.M51.1.i586.rpm

Windows версия
http://basic256.org (http://www.sourceforge.net/projects/kidbasic)

Как установить BASIC-256 в Linux

Альт Линукс в Санкт-Петербурге 24-25 февраля

ALT Linux — Tue, 22 Feb 2011 10:04:07 +0000

Компания Альт Линукс примет участие в 3-й научно-практической конференции «Проблемы и перспективы внедрения свободно распространяемого программного обеспечения в образовательных учреждениях Санкт-Петербурга».

Конференция пройдет 24-25 февраля 2011 года в г. Санкт-Петербург. 24 февраля по адресу: Вознесенский пр., 34А (РЦОКОиИТ) с 14.00 – 18.00, а 25 февраля — Миргородская д. 16 с 11:00 — 14:00 часов.
В конференции примут участие как представители компаний, занимающихся разработкой и внедрением свободного программного обеспечения, так и представители различных учебных заведений.

Генеральный директор компании ООО «Альт Линукс», Алексей Смирнов выступит с докладом «Национальная программная платформа и образование», а начальник отдела образовательных проектов Владимир Черный расскажет о «Новых возможностях комплекта ПСПО (Альт Линукс 5.0 Школьный)». От петербуржцев с докладом выступит руководитель Авторизованного учебного центра Альт Линукс при РХГА («Русская Христианская Гуманитарная Академия»), Иван Хахаев. Он расскажет об опыте использования и особенностях методической поддержки СПО в образовании.

В рамках конференции, 24 февраля состоится серия мастер-классов. Один из них, на тему «Установка, настройка и использование школьного сервера на основе ОС ALT Linux» будет проведен Алексеем Авдеевым, инженером петербургского отделения компании Альт Линукс.

Подробнее о конференции: http://www.rcokoit.ru/confspo2011.html

BASIC-256. Глава 16

Владимир Черный — Fri, 18 Feb 2011 00:00:28 +0000

Продолжаем публиковать перевод книги Джеймса Рено. Эту главу перевел Владимир Черный.
Оглавление:

Где взять BASIC-256

Глава 16 Файлы. Сохраним информацию на будущее

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

BASIC-256 поддерживает запись и чтение информации из файлов на вашем жестком диске. Этот процесс ввода и вывода информации часто обозначают I/O ¹.

Эта глава покажет как читать данные из файла и как их потом туда записывать для долгосрочного хранения.

Чтение строк из файла

В первой программе этой главы вы увидите много новых операторов и констант (постоянных) которые нужны для управления данными.
1 # readfile.kbs 2 input "имя файла>", fn$ 3 if not exists(fn$) then 4 print fn$ + " не существует." 5 end 6 end if 7 # 8 n = 0 9 open fn$ 10 while not eof 11 l$ = readline 12 n = n + 1 13 print n + " " + l$ 14 end while 15 # 16 print "Файл " + fn$ + " содержит " + size + " байт." 17 close

Программа 90 Чтение строк из файла
имя файла>test_ru.txt 1 Настало время испытать 2 силу человеческой души! 3 - Томас Пейн Файл test_ru.txt содержит 110 байт.
Пример вывода программы 90 Чтение строк из файла

exist(выражение)

Ищет на компьютере файл, имя которого определено переменной выражение. Имя диска ² и путь должны быть указаны, как часть имени файла. Если они опущены, происходит поиск по текущему рабочему каталогу.

Возвращает true (истина или 1) если файл существует и false (ложь или 0) в противном случае.

openвыражение
open (выражение)
open номер_файла, выражение
open (номер_файла, выражение)

Открывает указанный переменной выражение файл, задавая ему указанный номер_файла. Если файл не существует, создается новый файл так, что в него можно добавлять информацию (см. операторы write и writeln). Не забудьте выполнить команду close, когда ваша программа закончит работать с файлом.

BASIC-256 может открыть одновременно не более восьми (8) файлов с номерами от 0 до 7. Если номер файла не указан, он открывается с номером нуль (0).

eof
eof ()
eof(номер_файла)

Функция eof возвращает истину (true) если достигнут конец файла в процессе чтения и ложь (false) в если еще есть не прочтенные данные.

Если номер_файла не указан используется значение нуль (0).

readline
readline ()
readline (номер_файла)

Возвращает прочитанную из файла строку. Если достигнут конец файла [eof(номер_файла)=true], тогда функция возвращает пустую строку ("")

Если номер_файла не указан используется значение нуль (0).

size
size ()
size(номер_файла)

Возвращает длину файла в байтах.

Если номер_файла не указан используется значение нуль (0).

close
close ()
close(номер_файла)

Функция close закрывает ввод/вывод в файл и позволяет другому файлу использовать тот же номер.

Если номер_файла не указан используется значение нуль (0).

Запись строк в файл

В программе 90 мы видели, как читать информацию из файла. Следующие две программы демонстрируют различные варианты записи информации в файл. В программе 91 мы открываем файл для записи стирая всю имеющуюся там ранее информацию, а в программе 92 добавляем новые строчки в конец файла, сохраняя предыдущую информацию.

1 # resetwrite.kbs 2 open "resetwrite.dat" 3 4 print "введите пустую строку для завершения записи" 5 6 # стираем данные из файла (reset) и начинаем туда писать сначала 7 reset 8 repeat: 9 input ">", l$ 10 if l$ <> "" then 11 writeline l$ 12 goto repeat 13 end if 14 15 # переходим к началу файла и отображаем содержимое 16 seek 0 17 k = 0 18 while not eof() 19 k = k + 1 20 print k + " " + readline() 21 end while 22 23 close 24 end
Программа 91 Очищение файла и запись.
введите пустую строку для завершения записи >Вот простая информация >которую я записал в файл >раз, два, три, четыре пять >Я иду искать! > 1 Вот простая информация 2 которую я записал в файл 3 раз, два, три, четыре пять 4 Я иду искать!
Пример вывода программы 91 Очищение файла и запись.

reset
reset ()
reset номер_файла
reset (номер_файла)

Стирает все данные в открытом файле, и перемещает указатель файла на начало.

Если номер_файла не указан, используется нулевой номер (0).

seekвыражение
seek(выражение)
seek номер_файла, выражение
seek(номер_файла, выражение)

Перемещает указатель чтения или записи файла в указанную позицию. Для перемещения указателя в начало файла используйте значение нуль (0). Для перемещения указателя в конец файла используйте значение функции size().

Если номер_файла не указан, используется нулевой номер (0).

writelineвыражение
writeline(выражение)
writeline номер_файла, выражение
writeline (номер_файла, выражение)

Записывает значение аргумента выражение в открытый файл и добавляет символ конца строки. Указатель файла перемещается в конец записи так, что следующая команда записи запишет данные непосредственно за этими.

Если номер_файла не указан, используется нулевой номер (0).

1 # appendwrite.kbs 2 open "appendwrite.dat" 3 4 print "введите пустую строку для завершения записи" 5 6 # перемещаем указатель файла в конец и добавляем записи 7 seek size 8 repeat: 9 input ">", l$ 10 if l$ <> "" then 11 writeline l$ 12 goto repeat 13 end if 14 15 # перемещаем указательк началу файла, чтобы вывести его содержимое 16 seek 0 17 k = 0 18 while not eof() 19 k = k + 1 20 print k + " " + readline() 21 end while 22 23 close 24 end

Программа 92 Дописываем строчки в файл
введите пустую строку для завершения записи >sed sed sed >vim vim vim >

1 bar bar bar 2 foo foo foo 3 grap grap grap 4 sed sed sed 5 vim vim vim
Пример вывода программы 92 Дописываем строчки в файл

Функция read() и оператор write

В первых трех программах этой главы мы обсуждали функцию readline() и оператор writeline. Вот еще два других способа читать из файла и писать в файл: функция read() и оператор write.

read
read ()
read (номер_файла)

Читает следующее слово или число (токен) из файла. Токены отделяются друг от друга пробелом, табуляцией или символом конца строки. Множественные пробельные элементы воспринимаются как один.

Если номер_файла не указан, используется нулевой номер (0).

write выражение
write (выражение)
write номер_файла, выражение
write (номер_файла, выражение)

Записывает значение аргумента выражение в открытый файл и не добавляет символ конца строки.

Если номер_файла не указан, используется нулевой номер (0).

Эта программа использует простой текстовый файл имитируя телефонную записную книжку.

1 # phonelist.kbs 2 # Добавляем номер телефона в список и показываем 3 filename$ = "phonelist.txt" 4 5 print "phonelist.kbs - Управление списком телефонов." 6 do 7 input "Добавить, Посмотреть, Закончить (a/l/q)?",action$ 8 if left(lower(action$),1) = "a" then gosub addrecord 9 if left(lower(action$),1) = "l" then gosub listfile 10 until left(lower(action$),1) = "q" 11 end 12 13 listfile: 14 if exists(filename$) then 15 # отображаем список имен и телефонов из файла 16 open filename$ 17 print "Файл имеет размер " + size + " байт" 18 while not eof 19 # читаем следующую строки из файла и печатаем ее 20 print readline 21 end while 22 close 23 else 24 print "В файле нет записей. Добавьте первую." 25 end if 26 return 27 28 addrecord: 29 input "Имя?", name$ 30 input "Номер телефона?", phone$ 31 open filename$ 32 # ищем конец файла 33 seek size() 34 # мы достигли конца файла, - добавляем строку 35 writeline name$ + ", " + phone$ 36 close 37 return

Программа 93 Большая программа — Телефонная книжка
phonelist.kbs - Управление списком телефонов. Добавить, Посмотреть, Закончить (a/l/q)?l Файл имеет размер 76 байт Аня, 555-5555 Валя, 555-7777 Дима, 555-3333 Паша, 555-0987 Петя, 234-3445 Добавить, Посмотреть, Закончить (a/l/q)?a Имя?Вася Номер телефона?345-4556 Добавить, Посмотреть, Закончить (a/l/q)?l Файл имеет размер 95 байт Аня, 555-5555 Валя, 555-7777 Дима, 555-3333 Паша, 555-0987 Петя, 234-3445 Вася, 345-4556 Добавить, Посмотреть, Закончить (a/l/q)?q

Пример вывода программы 93 Большая программа — Телефонная книжка

—————————————————
¹ I/O — от английских слов Input (ввод) и Output (вывод)

²Имя диска имеет смысл только на операционных системах Windows^TM (прим. редактора)

============================

Где скачать BASIC-256:

Для дистрибутивов ALT Linux

ветка 4.0 basic256-0.9.6-alt5.M40.1.i586.rpm
ветка 4.1 basic256-0.9.6-alt5.M41.1.i586.rpm
ветка p5 basic256-0.9.6-alt5.M50P.1.i586.rpm
ветка 5.1 basic256-0.9.6-alt5.M51.1.i586.rpm

Windows версия
http://basic256.org (http://www.sourceforge.net/projects/kidbasic)

Как установить BASIC-256 в Linux

BASIC-256. Глава 15

Владимир Черный — Fri, 11 Feb 2011 00:00:09 +0000

Продолжаем публиковать перевод книги Джеймса Рено. Эту главу перевел Владимир Черный.
Оглавление:

Где взять BASIC-256

Глава 15 Работаем со строками

Мы использовали строки, чтобы хранить нечисловую информацию, формировать вывод на экран и получать вводимые пользователем символы. В главе 11 мы использовали Unicode значения отдельных символов для построения строк.

В этой главе мы узнаем несколько новых функций для действий со строками.

Строковые функции

BASIC-256 имеет восемь стандартных функций для преобразования строк, которые собраны в таблице 7

Функция	Описание
string(выражение)	приводит выражение (строковое или целое или дробь) к строке
length(строка)	возвращает длину строки
left(строка, длина)	возвращает часть строки заданной длины, отсчитывая слева
right(строка, длина)	возвращает часть строки заданной длины, отсчитывая справа
mid(строка, начало, длина)	возвращает среднюю часть строки заданной длины от позиции начало
upper(выражение)	Возвращает строку в верхнем регистре (заглавные буквы)
lower(выражение)	Возвращает строку в нижнем регистре (строчные буквы)
instr(стог, иголка)	Ищет иголку в стоге (сена) и возвращает ее позицию.

Функция string()

Функция string() берет выражение в любом формате и преобразовывает его в строку. Она очень удобна для преобразования целых или дробных чисел в символы так, что с ними можно работать как со строками.
1 # string.kbs 2 a$ = string(10 + 13) 3 print a$ 4 b$ = string(2 * pi) 5 print b$
Программа 84 Функция string()
23 6,283185
Пример вывода программы 84 Функция string()

string(выражение)
Преобразует выражение (строку, целое или дробное число) в строку

Функция length()

Функция length() возвращает количество символов (букв, знаков) входящих в строку.
1 # length.kbs 2 # печатает 7, 0, и 22 3 print length("Привет!") 4 print length("") 5 print length("Программировать круто!")
Программа 85 Функция length()
7 0 22 Вывод программы 85 Функция length()





length(выражение)
Принимает строковое выражение и возвращает его длину. Для пустой строки ("") возвращает нуль (0).
  


Функции left(), right() и mid()
Функции left(), right() и mid() извлекают из строки определенную подстроку (часть строки).



 1 # leftrightmid.kbs

 2 a$ = "автомашина"

 3 # печатает "авто"

 4 print left(a$,4)

 5 # печатает "на"

 6 print right(a$,2)

 7 # печатает "маш" и "шина"

 8 print mid(a$,5,3)

 9 print mid(a$,7,9)



Программа 86 Функции left(), right() и mid()



авто

на

маш

шина



Пример вывода программы 86 Функции left(), right() и mid()



left(строка, длина)
Возвращает подстроку заданной длины, начиная слева. Если длина равна или больше длины переменной строка, то только строка и будет возвращена.
  





right(строка, длина)
Возвращает подстроку заданной длины, начиная справа. Если длина равна или больше длины переменной строка, то только строка и будет возвращена.
  





mid(строка, начало, длина)
Возвращает подстроку заданной длины переменной строка из ее середины. Параметр начало указывает, где эта подстрока должна начаться (1 = начало строки)¹
  


Функции upper() и lower()
Функции upper() и lower() просто возвращают строку состоящую из заглавных (upper) или строчных (lower) букв. Эти функции наиболее полезны, когда надо сравнить значения двух строк и вам не важно в каком регистре они написаны.



 1 # upperlower.kbs

 2 a$ = "Привет!"

 3 # печатает "привет!"

 4 print lower(a$)

 5 # печатает "ПРИВЕТ!"

 6 print upper(a$)



Программа 87 Функции upper() и lower()



привет!

ПРИВЕТ!



Пример вывода программы 87 Функции upper() и lower()²



lower(строка)

upper(строка)
Возвращает копию переменной строка, в которой все символы заменены на строчные (lower) или заглавные (upper) буквы. Остальные (не буквы) символы возвращаются без изменений.
  


Функция instr()
Функция instr() ищет первое вхождение подстроки в заданную строку и возвращает местоположение первого символа подстроки в строке. Если подстрока отсутствует в строке, возвращается нуль (0).



 1 # instr.kbs

 2 a$ = "автомашина"

 3 # ищем подстроку "шина"

 4 print instr(a$,"шина")

 5 # ищем подстроку "колесо"

 6 print instr(a$,"колесо")



Программа 88 Функция instr()



7

0



Пример вывода программы 88 Функция instr()



instr(стог_сена, иголка)

Ищет подстроку (иголка) в другой строке (стог_сена). Возвращает позицию первого символа подстроки. Если подстрока не найдена, возвращает нуль (0).
  





                
 Десятичная система счисления (по основанию 10), используемая наиболее часто, использует цифры от 0 до 9 для записи чисел.

  А теперь, давайте представим, что случится, если у нас будет только 5 цифр от 0 до 4. В этом случае число 23 (23=2*10¹+3*10⁰) станет 43 (4*5¹+3*5⁰), но будет представлять одно и то же количество предметов. Такое преобразование чисел называется сменой основания системы счисления.
  Компьютер, в своем внутреннем устройстве, не использует и не понимает числа по основанию 10, он преобразует все числа в двоичную систему (по основанию 2) и их он хранит в памяти и с ними только оперирует.
  «Большая программа» этой главы преобразует (конвертирует) положительные целые числа из одной системы счисления в интервале от 2 до 36 в любую другую. В качестве цифр от 11-ой до 36-ой используются заглавные буквы английского алфавита.³
                




 1 # radix.kbs

 2 # преобразование чисел из одного основания (2-36) в другое

 3

 4 digits$ = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

 5

 6 message$ = "из основания"

 7 gosub getbase

 8 frombase = base

 9

10 input "число по основанию " + frombase + " >", number$

11 number$ = upper(number$)

12

13 # преобразуем число в десятичную систему (основание 10) и сохраняем его в переменной n

14 n = 0

15 for i = 1 to length(number$)

16     n = n * frombase

17     n = n + instr(digits$, mid(number$, i, 1)) - 1

18 next i

19

20 message$ = "в основание"

21 gosub getbase

22 tobase = base

23

24 # строим строку в tobase

25 result$ = ""

26 while n <> 0

27     result$ = mid(digits$, n % tobase + 1, 1) + result$

28     n = n \ tobase

29 end while

30

31 print "по основанию " + tobase + " это число равно " + result$

32 end

33

34 getbase: # получение основания от 2 до 36

35 do

36     input message$+"> ", base

37 until base >= 2 and base <= 36

38 return



Программа 89. Большая программа – Смена основания системы счисления



из основания> 10

число по основанию 10, >999

в основание> 16

по основанию 16, это число равно 3E7



Пример вывода программы 89 Большая программа — Смена основания системы счисления
---------------------------------------------------

 ¹Если сумма параметров начало+длина больше, чем длина строки, то вернется только часть строки от места начало до конца строки, что и показано в последнем выводе программы 86. (прим. редактора)
 ²Если у вас эти функции не работают с русскими буквами - обновите BASIC-256 (прим. редактора).
 ³Как известно, в английском алфавите ровно 26 букв. A означает «цифру» 10, B – 12 и т. д. Наиболее известна в среде программистов шестнадцатеричная система счисления, где цифрами от 10 до 15 являются буквы от A до F
============================



Где скачать BASIC-256:
Для дистрибутивов ALT Linux

ветка 4.0 basic256-0.9.6-alt5.M40.1.i586.rpm
ветка 4.1 basic256-0.9.6-alt5.M41.1.i586.rpm
ветка p5 basic256-0.9.6-alt5.M50P.1.i586.rpm
ветка 5.1 basic256-0.9.6-alt5.M51.1.i586.rpm

Windows версия

http://basic256.org (http://www.sourceforge.net/projects/kidbasic)
 Как установить BASIC-256 в Linux
Для Альт Линукс: настроить репозиторий и обновить/установить пакет через synaptic или apt

Для rpm-based дистрибутивов: rpm -Uvh <имя_пакета>.rpm



BASIC-256. Глава 14
Владимир Черный — Fri, 04 Feb 2011 00:30:20 +0000
Продолжаем публиковать перевод книги Джеймса Рено. Эту главу перевел Владимир Черный.

Оглавление:

Глава 1: Знакомство с BASIC-256 – cкажи «Привет»
Глава 2: Рисуем основные фигуры
Глава 3: Звуки и музыка
Глава 4: Мыслить как программист
Глава 5: Программа задает вам вопросы
Глава 6: Сравнения, сравнения, сравнения
Глава 7: Циклы и счетчики — повторяем снова и снова
Глава 8: Графика на заказ — создание фигур своими руками
Глава 9: Подпрограммы — повторное использование кода
Глава 10: Управляем мышкой, перемещаем объекты
Глава 11: Использование клавиатуры для управления программой
Глава 12: Картинки, музыка и спрайты
Глава 13 Массивы — коллекции данных

Где взять BASIC-256




Глава 14. Математика — развлечемся с числами
В этой главе мы рассмотрим некоторые дополнительные математические операторы и функции. Глава разбита на 4 части: 1) новые операторы 2) новые целые функции 3) новые функции для работы с числами с плавающей точкой (действительные числа), и 4) тригонометрические функции.
Новые операторы
В дополнение к базовым математическим операциям, которые мы использовали с первой главы книги, есть еще три оператора в BASIC-256. Операции, аналогичные этим есть в большинстве языков программирования. Это операция деления по модулю, целочисленного деления и возведения в степень.


 Операция 
 Оператор 
 Описание 


 Деление по модулю 
 % 
 Возвращает остаток от деления на целое число 


 Целочисленное деление 
 \ 
 Возвращает (целое) частное от деления одного целого на другое 


 Степень 
 ^ 
 Возводит одно (целое) число в степень другого (целого) 


Деление по модулю
Операция деления по модулю возвращает остаток от деления нацело. Когда вы делите два целых числа «уголком», остаток, полученный в результате и есть модуль.


  1 # c12_mod.kbs

  2 input "Введите целое число ", n

  3 if n % 2 = 0 then print "делится на 2"

  4 if n % 3 = 0 then print "делится на 3"

  5 if n % 5 = 0 then print "делится на 5"

  6 if n % 7 = 0 then print "делится на 7"

  7 end


Программа 78 Деление по модулю



Введите целое число 10

делится на 2

делится на 5



Пример вывода программы 78 Деление по модулю



выражение1 % выражение2
  Оператор деления по модулю (%) возвращает остаток от деления числа выражение1 на число выражение2
  Если одно или оба выражения не целые, то сначала они округляются до целого отбрасыванием дробной части (как это делает функция int() ) до того, как операция будет произведена.
  


Вы может и не задумывались, но операция деления по модулю используется программистами довольно часто. Основные два применения это 1) проверить делится ли одно число на другое (программа 78) и 2) получить числа из ограниченного диапазона (программа 79)


  1 # moveballmod.kbs

  2 # Переписанная программа moveball.kbs с использованием оператора

  3 # деления по модулю для ограничения движения мяча экраном

  4

  5 print "клавиша i - вверх, j - влево, k - вправо, m - вниз, q - закончить"

  6

  7 fastgraphics

  8 clg

  9 ballradius = 20

 10

 11 # позиция мяча

 12 # начинаем с центра экрана

 13 x = graphwidth /2

 14 y = graphheight / 2

 15

 16 # рисуем мяч в начальном положении на экране

 17 gosub drawball

 18

 19 # цикл ожидания ввода пользователем нажатий на клавиши

 20 while true

 21    k = key

 22    if k = asc("I") then

 23    # y может стать отрицательным, + graphheight делает это число положительным

 24        y = (y - ballradius + graphheight) % graphheight

 25        gosub drawball

 26    end if

 27    if k = asc("J") then

 28        x = (x - ballradius + graphwidth) % graphwidth

 29        gosub drawball

 30    end if

 31    if k = asc("K") then

 32        x = (x + ballradius) % graphwidth

 33        gosub drawball

 34    end if

 35    if k = asc("M") then

 36        y = (y + ballradius) % graphheight

 37        gosub drawball

 38    end if

 39    if k = asc("Q") then end

 40 end while

 41

 42 drawball:

 43 color white

 44 rect 0, 0, graphwidth, graphheight

 45 color red

 46 circle x, y, ballradius

 47 refresh

 48 return



Программа 79 Двигаем мяч с использованием деления по модулю.
Целочисленное деление
Операция целочисленного деления (\) производит обычное деление, но работает только с целыми числами и возвращает целое число. Например 13 разделить на 4 будет 3 и в остатке 1. Результатом операции целочисленного деления будет 3.



  1 # c12_integerdivision.kbs

  2 input "Делимое ", dividend

  3 input "Делитель ", divisor

  4 print dividend + " / " + divisor + " = частное ";

  5 print dividend \ divisor;

  6 print " и остаток (r) ";

  7 print dividend % divisor;


Программа 80 Проверь как ты делишь уголком



Делимое 43

Делитель 6

43 / 6 = частное 7 и остаток (r) 1



Пример вывода программы 80 Проверь как ты делишь уголком



выражение1 \ выражение2
  Целочисленное деление (\) делит выражение1 на выражение2 и в качестве результата возвращает целое число, которое показывает во сколько раз выражение1 больше выражение2 (частное от деления)
  Если одно или оба числа не целые, они округляются до целого, отбрасыванием десятичной части (как это делает int()) до того, как операция будет произведена.
  


Возведение в степень
Оператор возведения в степень возвращает степень первого числа относительно второго.



 1 # c12_power.kbs

 2 for t = 0 to 16

 3   print "2 ^ " + t + " = ";

 4   print 2 ^ t

 5 next t



Программа 81 Степени числа 2



2 ^ 0 = 1

2 ^ 1 = 2

2 ^ 2 = 4

2 ^ 3 = 8

2 ^ 4 = 16

2 ^ 5 = 32

2 ^ 6 = 64

2 ^ 7 = 128

2 ^ 8 = 256

2 ^ 9 = 512

2 ^ 10 = 1024

2 ^ 11 = 2048

2 ^ 12 = 4096

2 ^ 13 = 8192

2 ^ 14 = 16384

2 ^ 15 = 32768

2 ^ 16 = 65536



Примерный вывод программы 81 Степени числа 2



выражение1 ^ выражение2
  Оператор степень (^) возводит выражение1 в степень заданную числом выражение2.
  Математическая запись степени a = b^c в BASIC-256 записывается как a = b^c
                


Новые целочисленные функции
Три новые функции этой главы связаны с преобразованием строк и чисел с плавающей точкой (действительных чисел) в целые числа. Все три эти функции по разному обрабатывают десятичную часть числа.
Функция int() просто отбрасывает десятичную часть числа, что равносильно вычитанию дробной части от (положительного) числа или прибавления десятичной части к отрицательному числу. Это может привести к проблемам, если мы пытаемся округлить числа меньшие нуля (0).
Функции ceil() и floor() по своему решают проблему int(). Функция ceil() дополняет дробное число до ближайшего целого, большего, чем исходное число, в то время как floor() всегда уменьшает число до ближайшего целого, меньшего данного числа.
Всех нас учили округлять, прибавляя 0.5 и отбрасывать дробную часть. Если мы используем int(), то она работает с положительными числами и не работает с отрицательными. В BASIC-256 для округления («как привычно») следует использовать формулу типа a=floor(b+0.5) .






Функция
Описание


int(выражение)
Преобразует выражение (строку, целое или десятичную дробь) в целое число. При этом дробная часть просто отбрасывается. Если строка не содержит числа возвращается нуль.


ceil(выражение)
Преобразует выражение в ближайшее большее целое


floor(выражение)
Преобразует выражение в ближайшее меньшее целое. Для округления следует использовать формулу a=floor(b+0.5)







 1 # c12_intceilfloor.kbs

 2 for t = 1 to 10

 3     n = rand * 100 - 50

 4     print n;

 5     print " int=" + int(n);

 6     print " ceil=" + ceil(n);

 7     print " floor=" + floor(n)

 8 next t



Программа 82 Различие между int, ceil и floor



-34,342984 int=-34 ceil=-34 floor=-35

23,295121 int=23 ceil=24 floor=23

-25,956241 int=-25 ceil=-25 floor=-26

10,697896 int=10 ceil=11 floor=10

-16,144697 int=-16 ceil=-16 floor=-17

44,576658 int=44 ceil=45 floor=44

35,383576 int=35 ceil=36 floor=35

4,651446 int=4 ceil=5 floor=4

-39,022827 int=-39 ceil=-39 floor=-40

47,965051 int=47 ceil=48 floor=47



Примерный вывод программы 82 Различие между int, ceil и floor
Новые функции для дробных чисел
Математические функции, в которые погрузила нас эта глава могут пригодиться при написании некоторых специальных программ. В подавляющем большинстве программ они не нужны.






Функция
Описание


float(выражение)
Преобразует выражение (строку, целое или десятичную дробь)  в дробное число. Обычно используется для преобразования строк в числа. Если строка не содержит числа возвращается нуль.


abs(выражение)
Возвращает беззнаковое значение выражения (абсолютное значение)


log(выражение)
Возвращает натуральный логарифм числа (логарифм по основанию e)


log10(выражение)
Возвращает десятичный логарифм числа (логарифм по основанию 10)





Тригонометрические функции (для знакомых с ними)
Тригонометрия — наука об измерении углов и сторон (и их соотношений) в треугольнике. BASIC-256 поддерживает основные тригонометрические функции. Углы измеряются в радианах (0-2π). Если вы хотите использовать градусы (0-360) в своей программе, то необходимо значения в градусах предварительно преобразовать в радианы, а потом использовать в тригонометрических функциях.






Функция
Описание


cos(выражение)
Возвращает значение косинуса угла


sin(выражение)
Возвращает значение синуса угла


tan(выражение)
Возвращает значение тангенса угла


degrees(выражение)
Преобразует число из радиан (0-2π) в градусы (0⁰ 360⁰)


radians(выражение)
Преобразует число градусов (0⁰ 360⁰) в радианы (0-2π)


acos(выражение)
Функция, обратная косинусу (арккосинус)


asin(выражение)
Функция, обратная синусу (арксинус)


atan(выражение)
Функция, обратная тангенсу (арктангенс)





Первые три функции имеют прямое отношение к сторонам прямоугольного треугольника. Рисунок 20 демонстрирует прямоугольный треугольник, его стороны и углы.


Рисунок 20 Прямоугольный треугольник.
Косинус
Косинус угла равен отношению прилежащего катета к гипотенузе:

.

Косинус повторяет свои значения в диапазоне от -1 до 1 на каждом интервале длиной 2π радиан. Рисунок 21 показывает волновой график косинуса в диапазоне от 0 до 2π.


Рисунок 21 Функция cos()
Синус
Синус равен отношению прилежащего катета к гипотенузе:

.

Синус также, как и косинус повторяет свои значения из диапазона от -1 до 1 на каждом интервале длиной 2π


Рисунок 22 Функция sin()
Тангенс
Тангенс равен отношению противолежащего катета к прилежащему:

.

Тангенс повторяет свои значения лежащие в диапазоне от -∞ до ∞ на каждом отрезке в π радиан. Такой диапазон тангенса объясняется тем, что когда угол треугольника становится очень маленьким, противолежащий катет становится очень маленьким.


Рис. 23 Функция tan()
Функция degrees
Функция degrees() преобразует значения угла из радиан в градусы по формуле: градусы = (радианы/2π)*360.
Функция radians
Функция radians() преобразует значения угла из градусов в радианы по формуле радианы = (градусы/360)*2π Запомните, все тригонометрические функции BASIC-256 используют в качестве аргумента радианы, а не градусы.
Арккосинус
Арккосинус (acos()) — функция обратная косинусу. Ее значением является величина угла, косинус которого равен заданному числу.


Рисунок 24 Функция acos()
Арксинус
Арксинус (asin()) – функция, обратная синусу. Ее значением является величина, синус которого равен заданному числу.


Рисунок 25 Функция asin()
Арктангенс
Арктангенс (atan()) – функция, обратная тангенсу. Ее значением является угол, тангенс которого равен заданному числу.


Рисунок 26 Функция atan()



                
Большая программа этой главы воспроизводит процесс деления целых чисел уголком. Программа использует логарифм, чтобы вычислить количество знаков в числах, деление по модулю и целочисленное деление для определения цифр, и в целом очень сложная программа. Не расстраивайтесь и не опускайте руки, если сразу не поймете в полностью, как она работает.
                




  1 # longdivision.kbs

  2 # Показывает графически процесс деления уголком

  3 # двух положительных целых чисел.

  4

  5 input "Делимое? ", b

  6 input "Делитель? ", a

  7

  8 originx = 100

  9 originy = 20

 10 height = 12

 11 width = 9

 12 margin = 2

 13

 14 b = int(abs(b))

 15 a = int(abs(a))

 16

 17 color white

 18 rect 0,0,graphwidth, graphheight

 19 color black

 20

 21 # Отображение задания на деление

 22 row = 0

 23 col = -1

 24 number = a

 25 underline = false

 26 gosub drawrightnumber

 27 row = 0

 28 col = 0

 29 number = b

 30 gosub drawleftnumber

 31 line originx - margin, originy, originx + (width * 11), originy

 32 line originx - margin, originy, originx - margin, originy + height

 33

 34 # Сколько цифр в делимом?

 35 lb = ceil(log10(abs(b)))

 36

 37 r = 0

 38 bottomrow = 0    ## номер последнего ряда вычислений

 39

 40 # Цикл по всем цифрам слева направо

 41 for tb = lb-1 to 0 step -1

 42    # получаем следующюю цифру текущего остатка и убираем ее из делимого

 43    r = r * 10

 44    r = r + (b \ (10 ^ tb))

 45    b = b % (10 ^ tb)

 46    # отображаем текущий остаток

 47    row = bottomrow

 48    bottomrow = bottomrow + 1

 49    col = lb - tb - 1

 50    number = r

 51    underline = false

 52    gosub drawrightnumber

 53    # вычисляем следующую цифру ответа и отображаем ее

 54    digit = r \ a

 55    row = -1

 56    col = lb - tb - 1

 57    gosub drawdigit

 58    # вычисляем количество которое надо удалить из текущего остатка и отображаем

 59    number = digit * a

 60    r = r - number

 61    col = lb - tb - 1

 62    row = bottomrow

 63    bottomrow = bottomrow + 1

 64    underline = true

 65    gosub drawrightnumber

 66 next tb

 67 #

 68 # печатаем остаток в нижнем ряду

 69 row = bottomrow

 70 col = lb - 1

 71 number = r

 72 underline = false

 73 gosub drawrightnumber

 74 end

 75

 76 drawdigit:

 77 # вычисляем строку и столбец для отображения

 78 text col * width + originx, row * height + originy, digit

 79 if underline then

 80    line col * width + originx - margin, (row + 1) * height + originy, (col + 1) * width + originx - margin, (row + 1) * height + originy

 81 end if

 82 return

 83

 84 drawleftnumber:

 85 # передаем начальный ряд и колонку, а также число для левой колонки

 86 if number < 10 then

 87    digit = number

 88    gosub drawdigit

 89 else

 90    lnumber = ceil(log10(abs(number)))

 91    for tnumber = lnumber-1 to 0 step -1

 92        digit = (number \ (10 ^ tnumber)) % 10

 93        gosub drawdigit

 94        col = col + 1

 95    next tnumber

 96 endif

 97 return

 98

 99 drawrightnumber:

100 # передаем начальный ряд, колонку и число для отображения в правой колонке

101 if number < 10 then

102    digit = number

103    gosub drawdigit

104 else

105    lnumber = ceil(log10(abs(number)))

106    for tnumber = 0 to lnumber - 1

107        digit = (number \ (10 ^ tnumber)) % 10

108        gosub drawdigit

109        col = col - 1

110    next tnumber

111 endif

112 return



Программа 83 Большая программа Деление уголком



Делимое? 123456

Делитель? 78





Пример вывода программы 83 Большая программа Деление уголком
============================



Где скачать BASIC-256:
Для дистрибутивов ALT Linux

ветка 4.0 basic256-0.9.6-alt5.M40.1.i586.rpm
ветка 4.1 basic256-0.9.6-alt5.M41.1.i586.rpm
ветка p5 basic256-0.9.6-alt5.M50P.1.i586.rpm
ветка 5.1 basic256-0.9.6-alt5.M51.1.i586.rpm

Windows версия

http://basic256.org (http://www.sourceforge.net/projects/kidbasic)
 Как установить BASIC-256 в Linux
Для Альт Линукс: настроить репозиторий и обновить/установить пакет через synaptic или apt

Для rpm-based дистрибутивов: rpm -Uvh <имя_пакета>.rpm





BASIC-256. Глава 13
Владимир Черный — Fri, 28 Jan 2011 00:00:17 +0000
Продолжаем публиковать перевод книги Джеймса Рено. Эту главу перевел Владимир Черный.

Оглавление:

Глава 1: Знакомство с BASIC-256 – cкажи «Привет»
Глава 2: Рисуем основные фигуры
Глава 3: Звуки и музыка
Глава 4: Мыслить как программист
Глава 5: Программа задает вам вопросы
Глава 6: Сравнения, сравнения, сравнения
Глава 7: Циклы и счетчики — повторяем снова и снова
Глава 8: Графика на заказ — создание фигур своими руками
Глава 9: Подпрограммы — повторное использование кода
Глава 10: Управляем мышкой, перемещаем объекты
Глава 11: Использование клавиатуры для управления программой
Глава 12: Картинки, музыка и спрайты

Где взять BASIC-256




Глава 13 Массивы — коллекции данных
Мы использовали простые строковые и числовые переменные во многих программах, но они могут содержать только одно значение за раз. Очень часто приходится иметь дело с набором или списком значений. Для работы с такими объектами придуманы линейные (одномерные) и двухмерные массивы. В этой главе вы узнаете как создавать, инициализировать (задавать начальные значения), использовать массивы, а также как изменять их размеры.
Одномерный числовой массив.
Одномерный массив создает список в памяти так, что вы можете обращаться к его элементам по числовому адресу, называемому индексом. Массивы могут быть как числовыми, так и строковыми в зависимости от типа переменной, использованной в операторе dim.



  1 # numeric1d.kbs

  2

  3 dim a(10)

  4

  5 a[0] = 100

  6 a[1] = 200

  7 a[3] = a[1] + a[2]

  8

  9 input "Введите число: ", a[9]

 10 a[8] = a[9] - a[3]

 11

 12 for t = 0 to 9

 13     print "a[" + t + "] = " + a[t]

 14 next t



Программа 66 Одномерный числовой массив



Введите число: 63

a[0] = 100

a[1] = 200

a[2] = 0

a[3] = 200

a[4] = 0

a[5] = 0

a[6] = 0

a[7] = 0

a[8] = -137

a[9] = 63



Примерный вывод программы 66 Одномерный числовой массив



 dim variable(количество_элементов)

  dim variable$(количество_элементов)

  dim variable(количество_рядов, количество_столбцов)

  dim variable$(количество_рядов, количество_столбцов)
  Оператор dim создает массив в оперативной памяти компьютера размером равном указанному в скобках и именем variable или variable$ (можно задать свое). Размер массива (количество элементов, строк и рядов) должно быть целым положительным числом.
  Оператор dim автоматически назначает значение элементам массива равное нулю (0), если массив числовой или равное пустой строке (""), если массив строковый.
                





variable[номер_элемента]

  variable[номер_строки, номер_столбца]

  variable$[номер_элемента]

  variable$[номер_строки, номер_столбца]
  где variable или variable$ — имя массива.

  Вы можете делать ссылки на элементы массива (с помощью его имени и индекса внутри квадратных скобок) в любом месте, где можно использовать простые переменные. Индексы должны быть целым числом от 0 до уменьшенного на один значения указанного в операторе dim
  Вас может смутить тот факт, что BASIC-256 использует нуль (0) для первого элемента массива и число на единицу меньшее, чем его размер для последнего, но так принято в программировании. Массивы с отсчетом от нуля – так называют такие объекты программисты.
                


Мы можем использовать числовые массивы для рисования большого количества одновременно прыгающих на экране мячиков. Программа 66 использует 5 массивов для хранения местоположения каждого из мячей, его направления движения и цвета. С помощью циклов мы задаем начальные значения этим массивам, а также заставляем мячи двигаться. Эта программа также использует функцию rgb(), которая определяет и сохраняет цвет каждого мяча.


  1 # manyballbounce.kbs

  2 fastgraphics

  3

  4 r = 10  # размер мяча

  5 balls = 50  # количество мячей

  6

  7 dim x(balls)

  8 dim y(balls)

  9 dim dx(balls)

 10 dim dy(balls)

 11 dim colors(balls)

 12

 13 for b = 0 to balls-1

 14      # начальная позиция мяча

 15      x[b] = 0

 16      y[b] = 0

 17      # скорость по осям x и y

 18      dx[b] = rand * r + 2

 19      dy[b] = rand * r + 2

 20      # каждому мячу — свой цвет!

 21      colors[b] = rgb(rand*256, rand*256, rand*256)

 22 next b

 23

 24 color green

 25 rect 0,0,300,300

 26

 27 while true

 28      # очистим экран

 29      clg

 30      # позиционируем и рисуем мячики

 31      for b = 0 to balls -1

 32          x[b] = x[b] + dx[b]

 33          y[b] = y[b] + dy[b]

 34          # если мяч выходит за боковые границы поля — поворачиваем его

 35          if x[b] < 0 or x[b] > 300 then

 36              dx[b] = dx[b] * -1

 37          end if

 38          # если мяч выходит за верхнюю/нижнюю границу — поворачиваем его

 39          if y[b] < 0 or y[b] > 300 then

 40              dy[b] = dy[b] * -1

 41          end if

 42          # рисуем новый мяч

 43          color colors[b]

 44          circle x[b],y[b],r

 45      next b

 46      # обновляем экран

 47      refresh

 48      pause .05

 49 end while

 

Программа 67 Много прыгающих мячиков.


Пример экрана программы 67. Много прыгающих мячиков.



 rgb (красный, зеленый, синий)
  Функция rgb возвращает одно число, которое представляет цвет, вычисленный из трех значений (красного, зеленого и синего). Аргументами этой функции могут быть арифметические выражения, но с одним условием — их значение должно быть в интервале от 0 до 255.
                


Еще один вариант реализации прыгающих мячей приведен в программе 68. В этом примере используются спрайты и два массива для хранения их траекторий.



  1 #manyballsprite.kbs

  2

  3 # Еще один способ заставить прыгать мячи с использованием спрайтов

  4

  5 fastgraphics

  6 color white

  7 rect 0, 0, graphwidth, graphheight

  8

  9 n = 20

 10 spritedim n

 11

 12 dim dx(n)

 13 dim dy(n)

 14

 15 for b = 0 to n-1

 16      spriteload b, "greenball.png"

 17      spriteplace b,graphwidth/2,graphheight/2

 18      spriteshow b

 19      dx[b] = rand * 5 + 2

 20      dy[b] = rand * 5 + 2

 21 next b

 22

 23 while true

 24      for b = 0 to n-1

 25          if spritex(b) <=0 or spritex(b) >= graphwidth -1 then

 26              dx[b] = dx[b] * -1

 27          end if

 28          if spritey(b) <= 0 or spritey(b) >= graphheight -1 then

 29              dy[b] = dy[b] * -1

 30          end if

 31          spritemove b, dx[b], dy[b]

 32      next b

 33      refresh

 34 end while



Программа 68 Много прыгающих мячиков с использованием спрайтов.


Пример вывода программы 68 Много прыгающих мячиков с использованием спрайтов.
Массивы строк
Массивы могут хранить не только числа, но и строки. Чтобы открыть строковый массив необходимо использовать идентификатор строковой переменной в операторе dim. Все, что мы знаем про числовые массивы применимо и к строковым с учетом различия в типах данных. Использование строковых массивов показано в программе 69.



  1 # listoffriends.kbs

  2 print "Составь список друзей"

  3 input "Сколько всего друзей?", n

  4

  5 dim names$(n)

  6

  7 for i = 0 to n-1

  8     input "Напиши имя друга ?", names$[i]

  9 next i

 10

 11 cls

 12 print "Мои друзья"

 13 for i = 0 to n-1

 14     print "Друг номер ";

 15     print i + 1;

 16     print " это " + names$[i]

 17 next i



Программа 69 Список друзей.



Составь список друзей

Сколько всего друзей?3

Напиши имя друга ?Иван

Напиши имя друга ?Артем

Напиши имя друга ?Денис

-- очистка экрана --

Мои друзья

Друг номер 1, это Иван

Друг номер 2, это Артем

Друг номер 3, это Денис



Пример вывода программы 69 Список друзей.
Присваивание значений массивам
Мы использовали фигурные скобки ({}) для воспроизведения музыки, рисования многоугольников и штампов. Фигурные скобки можно также использовать для задания конкретных значений массивам.



  1 # arrayassign.kbs

  2 dim number(3)

  3 dim name$(3)

  4

  5 number = {1, 2, 3}

  6 name$ = {"Юра", "Аня", "Петя"}

  7

  8 for i = 0 to 2

  9     print number[i] + " " + name$[i]

 10 next i



Программа 70 Задание значений массива списком.


1 Юра

2 Аня

3 Петя



Пример вывода программы 70 Задание значений массива списком.



array = {знач0, знач1, … }

  array$ = {текст0, текст1, … }
  Массиву можно задать значения (начиная с индекса 0) с помощью списка значений, заключенных в фигурные скобки. Это применимо как к числовым, так и строковым массивам.
                


Звуки и массивы
В главе 3 мы видели как использовать список частот и длительностей (заключенных в фигурные скобки) для проигрывания нескольких звуков одновременно. Команда sound также может принять список частот и длительностей из массива. Массив должен иметь четное чиcло элементов, причем частоты хранятся в элементах с четными индексами (0, 2, 4, …), а длительности в элементах с нечетными индексами (1,3,5, …)
Следующий пример (программа 71) ниже использует простую линейную зависимость для создания фонового звука типа чириканья.


  1 # spacechirp.kbs

  2

  3 # четные значения 0,2,4... - частота звука

  4 # нечетные значения 1,3,5... - длительность

  5

  6 # чириканье начинается со 100гц и увеличивается на 40 для каждого из 50 звуков в списке, длительность всегда равна 10

  7

  8 dim a(100)

  9 for i = 0 to 98 step 2

 10     a[i] = i * 40 + 100

 11     a[i+1] = 10

 12 next i

 13 sound a



Программа 71 Космическое чириканье



Как много разных фантастических звуков ты сможешь запрограммировать? Поэкспериментируй с предложенными формулами для изменения частот и длительностей.
                


Графики и массивы
В главе 8 мы использовали списки для создания многоугольников и штампов. Массивы также применимы для этой цели, что приведет к упрощению кода. Достаточно один раз определить штамп или многоугольник, сохраняя данные в массиве, и использовать этот массив в разных местах программы.
В массиве, используемом для штампов и многоугольников четные элементы (0,2,4,…) содержат абсциссы (х), а нечетные элементы (1,3,5,..) содержат ординату (y) точек, образующих фигуру, по два значения на каждую точку.



  1 # shadowstamp.kbs

  2

  3 dim xmark(24)

  4 xmark = {-1, -2, 0, -1, 1, -2, 2, -1, 1, 0, 2, 1, 1, 2, 0, 1, -1, 2, -2, 1, -1, 0, -2, -1}

  5

  6 clg

  7 color grey

  8 stamp 160,165,50,xmark

  9 color black

 10 stamp 150,150,50,xmark


Программа 72 Штамп с тенью


Пример вывода программы 72 Штамп с тенью
Массивы также можно использовать, чтобы создать многоугольник математически (по формулам). В программе 73 мы создаем массив из 10 элементов (5 точек) придавая им случайные значения. BASIC-256 заполняет эти формы как умеет, но если линии сторон пересекаются (невыпуклый многоугольник), заполнение может оставлять пустоты и дырки.



  1 # mathpoly.kbs

  2

  3 dim shape(10)

  4

  5 for t = 0 to 8 step 2

  6     x = 300 * rand

  7     y = 300 * rand

  8     shape[t] = x

  9     shape[t+1] = y

 10 next t

 11

 12 clg

 13 color black

 14 poly shape


Программа 73 создание случайного прямоугольника


Примерный вывод программы 73 создание случайного прямоугольника
Для продвинутых: Двумерные массивы
До сих пор в этой главе мы использовали массивы, как простые списки чисел или строк. Такие массивы называются одномерными, поскольку они похожи на линейку значений. Массивы также могут быть созданы с использованием строк и столбцов данных — такие массивы называют двумерными. Программа 74 использует одномерные и двумерные массивы для вычисления средней оценки студента. (см таблицу к программе 74)


 
 Оценка 1 
 Оценка 2 
 Оценка 3 
 Оценка 4 
 Среднее 


 Джим 
 90 
 92 
 81 
 55 
 ? 


 Сью 
 66 
 99 
 98 
 88 
 ? 


 Тони 
 79 
 81 
 87 
 73 
 ? 


Таблица к программе 74¹



  1 # grades.kbs

  2 # вычисление средней оценки студента

  3 # и для всего класса

  4

  5 nstudents = 3 # количество студентов

  6 nscores = 4 # количество оценок у студента

  7

  8 dim students$(nstudents)

  9

 10 dim grades(nstudents, nscores)

 11 # сохраняем оценки студента в столбцах одного ряда

 12 # первый студент

 13 students$[0] = "Джим"

 14 grades[0,0] = 90

 15 grades[0,1] = 92

 16 grades[0,2] = 81

 17 grades[0,3] = 55

 18 # второй студент

 19 students$[1] = "Сью"

 20 grades[1,0] = 66

 21 grades[1,1] = 99

 22 grades[1,2] = 98

 23 grades[1,3] = 88

 24 # Третий студент

 25 students$[2] = "Тони"

 26 grades[2,0] = 79

 27 grades[2,1] = 81

 28 grades[2,2] = 87

 29 grades[2,3] = 73

 30

 31 total = 0

 32 for row = 0 to nstudents-1

 33     studenttotal = 0

 34     for column = 0 to nscores-1

 35         studenttotal = studenttotal + grades[row, column]

 36         total = total + grades[row, column]

 37     next column

 38     print students$[row] + " - среднее равно ";

 39     print studenttotal / nscores

 40 next row

 41 print "Среднее по классу ";

 42 print total / (nscores * nstudents)

 43

 44 end



Программа 74 Вычисление успеваемости


Джим - среднее равно 79,5

Сью - среднее равно 87,75

Тони - среднее равно 80,

Среднее по классу 82,416667



Пример вывода программы 74 Вычисление успеваемости
Для действительно продвинутых — Размеры массива
Иногда необходимо в программе использовать массив, размеры которого мы не знаем. Если поставить вместо индекса внутри квадратных скобок знак вопроса, BASIC-256 вернет размер этого массива. В программе 75 мы распечатываем массив независимо от размера. В строке 16 обратите внимание на специальный знак [?] использованный для получения размера массива.



  1 # size.kbs

  2 dim number(3)

  3 number = {77, 55, 33}

  4 print "до"

  5 gosub shownumberarray

  6

  7 # добавляем новый элемент в конец

  8 redim number(4)

  9 number[3] = 22

 10 print "после"

 11 gosub shownumberarray

 12 #

 13 end

 14 #

 15 shownumberarray:

 16 for i = 0 to number[?] - 1

 17     print i + " " + number[i]

 18 next i

 19 return


Программа 75 Получение размера массива


до

0,

77,

1,

55,

2,

33,

после

0,

77,

1,

55,

2,

33,

3,

22,



Пример вывода программы 75 Получение размера массива



array[?]

  array$[?]

  array[?,]

  array$[?,]

  array[,?]

  array$[,?]
  Ссылка на [?] элемент массива возвращает длину одномерного массива или полное число элементов (количество строк умноженное на количество столбцов) двумерного массива. [?,] – возвращает количество строк , а [,?] – возвращает количество столбцов двумерного массива.
                


Для очень продвинутых – Динамические массивы
BASIC-256 позволяет изменять размер существующего массива. Оператор redim предназначен для изменения массива с сохранением существующих данных. Если новый массив больше старого, новые элементы заполняются нулями (0) или пустыми строками (""). Если новый массив меньше старого, значения, которые выходят за рамки нового массива обрезаются. Массивы, размеры которых можно менять во время работы программы называются динамическими².


  1 # redim.kbs

  2 dim number(3)

  3 number = {77, 55, 33}

  4 # создаем новый элемент в конце массива

  5 redim number(4)

  6 number[3] = 22

  7 #

  8 for i = 0 to 3

  9      print i + " " + number[i]

 10 next i



Программа 76 Изменение размера массива



0  77

1  55

2  33

3  22



Пример вывода программы 76 Изменение размера массива



redim variable(количество_элементов)

  redim variable$(количество_элементов) 

  redim variable(число_рядов, число_колонок)

  redim variable$(число_рядов, число_колонок) 
  Оператор redim изменяет размер массива в памяти компьютера. Данные, хранившиеся в массиве сохраняются, если они подходят по размеру к новому массиву.
  Когда изменяется размер двухмерного массива данные копируются линейно, и могут нежелательно сдвинутся, если вы измените количество колонок.
                






                
Большая программа в этой главе использует три числовых массива для хранения позиций и скоростей падающего космического мусора. Тут вы не играете в пинг-понг, а наоборот, стараетесь увернуться от падающих объектов, чтобы заработать очки.
                




  1 # spacewarp.kbs

  2 # Игра Космический мусор

  3

  4 balln = 5  # количество мячей

  5 dim ballx(balln)  # массивы для хранения положения и скоростей мячей

  6 dim bally(balln)

  7 dim ballspeed(balln)

  8 ballr = 10 # радиус мяча

  9

 10 minx = ballr # минимальное значение координаты х мяча

 11 maxx = graphwidth - ballr # максимальное значение координаты х мяча

 12 miny = ballr # минимальное значение координаты y мяча

 13 maxy = graphheight - ballr # максимальное значение координаты y мяча

 14 score = 0 # в начале счет равен 0

 15 playerw = 30  # ширина игрока

 16 playerm = 10  # шаг игрока

 17 playerh = 10  # высота игрока

 18 playerx = (graphwidth - playerw)/2  # начальное значение координаты х игрока - середина поля

 19 keyj = asc("J") # значение для клавиши 'j'

 20 keyk = asc("K") # значение для клавиши 'k'

 21 keyq = asc("Q") # значение для клавиши 'q'

 22 growpercent = .20  # случайное расширение игрока - чем больше, тем быстрее

 23 speed = .15   # скорость - чем меньше, тем быстрее

 24

 25 print "Космический мусор - использовать j и k клавиши чтобы избежать столкновения с космическим мусором"

 26 print "q - закончить"

 27

 28 fastgraphics

 29

 30 # установка начальных значений скорости и положения мячей

 31 for n = 0 to balln-1

 32     gosub setupball

 33 next n

 34

 35 more = true

 36 while more

 37     pause speed

 38     score = score + 1

 39

 40     # очистка экрана

 41     color black

 42     rect 0, 0, graphwidth, graphheight

 43

 44     # рисуем мячи и проверяем на наличие столкновений

 45     color white

 46     for n = 0 to balln-1

 47         bally[n] = bally[n] + ballspeed[n]

 48         if bally[n] > maxy then gosub setupball

 49         circle ballx[n], bally[n], ballr

 50         if ((bally[n]) >= (maxy-playerh-ballr)) and ((ballx[n]+ballr) >= playerx) and ((ballx[n]-ballr) <= (playerx+playerw)) then more = false

 51     next n

 52

 53     # рисуем игрока

 54     color red

 55     rect playerx, maxy - playerh, playerw, playerh

 56     refresh

 57

 58     # игрок растет в ширину

 59     if (rand
 60

 61     # проверяем нажата ли клавиша и перемещаем игрока, если нажата

 62     k = key

 63     if k = keyj then playerx = playerx - playerm

 64     if k = keyk then playerx = playerx + playerm

 65     if k = keyq then more = false

 66

 67     # не вышел ли игрок за границы поля?

 68     if playerx < 0 then playerx = 0

 69     if playerx > graphwidth - playerw then playerx = graphwidth - playerw

 70

 71 end while

 72

 73 print "счет " + string(score)

 74 print "вы погибли."

 75 end

 76

 77 setupball:

 78 bally[n] = miny

 79 ballx[n] = int(rand * (maxx-minx)) + minx

 80 ballspeed[n] = int(rand * (2*ballr)) + 1

 81 return


Программа 77 Большая программа – Игра Космический мусор


Примерный экран программы 77 Большая программа – Игра Космический мусор
 —————————————————

 ¹В школах многих зарубежных стран используется 100-бальная система оценок (прим. переводчика)
²Программа 75 также является демонстрацией динамических массивов. Обратите внимание на оператор redim (прим. переводчика).
============================



Где скачать BASIC-256:
Для дистрибутивов ALT Linux

ветка 4.0 basic256-0.9.6-alt5.M40.1.i586.rpm
ветка 4.1 basic256-0.9.6-alt5.M41.1.i586.rpm
ветка p5 basic256-0.9.6-alt5.M50P.1.i586.rpm
ветка 5.1 basic256-0.9.6-alt5.M51.1.i586.rpm

Windows версия

http://basic256.org (http://www.sourceforge.net/projects/kidbasic)
 Как установить BASIC-256 в Linux
Для Альт Линукс: настроить репозиторий и обновить/установить пакет через synaptic или apt

Для rpm-based дистрибутивов: rpm -Uvh <имя_пакета>.rpm

Операция	Оператор	Описание
Деление по модулю	%	Возвращает остаток от деления на целое число
Целочисленное деление	\	Возвращает (целое) частное от деления одного целого на другое
Степень	^	Возводит одно (целое) число в степень другого (целого)

	Оценка 1	Оценка 2	Оценка 3	Оценка 4	Среднее
Джим	90	92	81	55	?
Сью	66	99	98	88	?
Тони	79	81	87	73	?