close

Вход

Забыли?

вход по аккаунту

?

FreeBASIC1

код для вставкиСкачать
Пособие для начинающих программировать на языке высокого уровня FreeBASIC состоит из нескольких "фрагментов", каждый из которых может представлять интерес для учащихся школ, студентов институтов, а также преподавателей.
 Евгений Рыжов, инженер
Программирование на языке FreeBASIC
пособие для начинающих
Пособие для начинающих программировать на языке высокого уровня FreeBASIC
состоит из нескольких "фрагментов", каждый из которых может представлять
отдельный интерес для
учащихся школ, студентов институтов,
а также преподавателей.
Фрагмент
1. Первые шаги к успеху
Друзья, п
овествование не будет похож
е
на телескоп
, направляемый уверенной рукой мудрого ученого
-
астронома и показывающий завораживающие картины далеких
, п
рактически недосягаемых,
миров. Оно
, по задумке автора,
будет похоже на
милый, знакомый с детства калейдоскоп
, вращаемый нетвердой руч
он
кой любопытного малыша. Но какие фантастические узоры складываются благодаря хаотическому пересыпанию корявых разноцветн
ых стекляшек (
фрагментов
) между зеркалами! Есть и небольшое отличие. Мало красненького цвета –
добавим красных стекляшек, мало зелененького –
получите зеленые! Иными словами
,
будем работать, используя "интерактивный" принцип организации системы "читающий -
пишущий"
, при котором цель каждого достигается благодаря непрерывному информационному обмену между элементами системы.
"
Роковую роль в судьбе цивилизации на планете может сыграть то неожиданное обстоятельство, что диапазон управляемости внешнего мира прев
осходит диапазон управляемости нашего внутреннего мира. То есть мы способны овладевать бесконечным потенциалом энергетическим, вещественным и так далее –
но наша возможность ограничивать себя, ограничивать свои мотивационные, так сказать, рамки окажется ко
нечной. И если это так, то тогда любая цивилизация во Вселенной имеет некий предел развития, за которым она сама себя истребляет. И тогда земная цивилизация п
одходит вплотную к этому порогу, за которым, по закону техно
-
гуманитарного баланса
, просто на опре
деленной фазе эволюции, на определенной фазе прогресса интеллект не способен справиться со своими внутренними мотивами и своими внутренними тенденциями. Со своей внутренней агрессией, с импульсами агрессии и т.д. И все это приводит к самоистреблению любой космической цивилизации. Земная цивилизация –
как один из примеров
"
.
Акоп Погосович Назаретян
,
из доклада “У
ниверсальная история как инструмент стратегического прогнозирования", сделанного на Международн
ом конгресс
е
"Global Future 2045", который проходил
в Москве с 17 по 20 февраля 2012 года. В нем прин
имали участие передовые ученые различных специальностей, эксперты и общественные деятели из России, Канады, Великобритании, США,
Голландии, Австралии и других стран мира. В рамках конгресса впервые на таком
научном уровне и в таком междисциплинарном формате были рассмотрены не только ключевые направления инновационных изменений ближайшего будущего, но и их этические и философские аспекты.
Ознакомиться с докладами, сделанными на Конгрессе можно на сайте:
http://gf2045.ru/video/
В конце XX века человечество вступило в новую фазу своего развития –
в информационный век
. Произошло резкое, кардинальное изменение роли информации в жизни человеческого сообщества. По оценкам
экспертов, за 100 лет (в период с 1900 по 2000 годы) скорость передвижения увеличилась в 100 раз, скорость передачи информации в 10000000 раз, скорость обработки информации в 1000000 раз. Начался лавинообразный процесс "глобализации"
, т
.
е
.
усиления зависи
мости существования одной страны, от процессов, происходящих в других странах и в целом на планете. В настоящий момент насчитывается более 40 проблем, которые имеют глобальный характер и от которых невозможно уйти, "не пересекая границы
"
ныне существующих национальных государств.
В Римском клубе
(международная общественная организация, созданная итальянским промышленником Аурелио Печчеи) были формализованы и проиграны на компьютерах различные варианты мирового развития. Согласно этим сценариям в середине X
XI века должен наступить социальный, экономический и экологический коллапс
, наступит эра глобальных катаклизмов, которые закончатся уничтожением ныне существующей формы человеческой цивилизации. Можно ли предотвратить катастрофу? Наверное, можно! И не посл
еднее слово может сыграть процесс непрерывной "информационной" подготовки
людей
, не исключая подготовку в области "компьютерных технологий.
FreeBASIC
это молодой язык программирования высокого уровня по синтаксису наиболее близкий к QuickBASIC
, а также к
омпилятор для него (FreeBASIC Compiler). Первоначально компилятор разрабатывался как свободная альтернатива Microsoft QuickBasic, но быстро оброс новыми возможностями и стал мощным средством разработки компьютерных программ. Первые версии компилятора были написаны на языке Visual Basic, но вскоре текст компилятора удалось откомпилировать уже работающим компилятором FreeBASIC.
Том Куртц (слева) и Джон Кемени
Язык BASIC (Beginners all
-
parpouse sumbolic instraction code -
Многоцелевой язык символических и
нструкций для начинающих) был разработан профессорами Дартмутского колледжа (США) Томом Куртцем (Thomas Eugene Kurtz) и Джоном Кемени (John George Kemeny) для обучения студентов, малознакомых с вычислительной техникой. Первая программа была выполнена на ко
мпьютере в 1964
, а первая официальная публикация по бейсику датируется 1967 годом.
У языка со временем появилось множество диалектов
: Basica (IBM), GW
-
Basic, MSX
-
Basic, Turbo
-
Basic (Borland), Quick
-
Basic (Microsoft), XYBasic, QBasic, CBasic, Basic
-
80, 86 и 87Basic/387Basic (MicroWay) и т.д. Впервые BASIC был применен в компьютере IBM 704, но широкое распространение получил в конце 70
-
х, после того как в 1975 Билл Гейтс и Пол Аллен написали интерпретатор BASIC для первого ПК Altair 8800, основав в дальнейше
м компанию Microsoft, ставшую одной из крупнейших компьютерных империй. В те далекие годы BASIC стал первым продуктом, выпущенным этой компанией. Мощную поддержку язык получил в начале 70
-
х годов со стороны двух компьютерных гигантов: Hewlett
-
Packard (HP) и Digital Equipment Corporation (DEC), начавших массовый выпуск миникомпьютеров (в нашей стране -
серия малых ЭВМ моделей СМ
-
1, СМ
-
2, совместимых с моделями компьютеров фирмы Hewlett
-
Packard, и моделей СМ
-
3, СМ
-
4, совместимых с моделями компьютеров фирмы D
igital Equipment Corporation).
Вопреки бытовавшему в те далекие времена мнению, что BASIC –
язык программирования для домохозяек и детей, многие "инженерные задачи" решались именно на этом чудесном языке, языке "с человеческим лицом"
! Все
сомневающиеся мо
гут прочитать "исповедь о революционном изменении мнения" Юри
я
Петрович
а
Федоренко, автора книги "
Алгоритмы и программы на Qbasic
"
.
С
-
Петербург, "Питер", 2002
, 288
с., ил. Системы программирования на языке BASIC (включающие, как интерпретаторы, так и компиляторы)
весьма неприхотливы: они работа
ли и работают на всех Intel
-
совместимых компьютерах: от самых стареньких, до самых наиновейших. Большим достоинством языка B
ASIC явля
лось его признание стандартизирующими организациями: язык стандартизован
многими национальными и международными организациями. Так в нашей стране принят ГОСТ
27787
-
88
-
Язык программирования Бейсик; действует международный стандарт ISO/IEC
10279:1
991 -
Full BASIC.
FreeBasic
Первоначально язык FreeBasic
был разработан в 2004 Andre Victor T. Vicentini. Несмотря на то, что компилятор имеет полную совместимость
с QuickBASIC, язык FreeBASIC принципиально другой язык -
добавлено множество расширений и возможностей для соответствия современным требованиям, стандартам и совместимостью с библиотеками и API написанными на C/C++. На сегодняшний день FreeBASIC является мощным языком программирования, который способен справиться фактически с любой поставленной
задачей. Конечно, компилятор можно использовать без Интегрированной среды разработки
(Intergrated Development Environment, сокращенно IDE), объединяющей в себе все необходимые для создания новых программ пользователя средства. Но для быстрого первоначального освоения языка целесообразно использовать компилятор совместно с IDE. Профессионал
ьные пользователи (и разработчики языка) рекомендуют следующие
, легко доступные,
Интегрированные среды:
http://www.freebasic.net/get
Development Environments (Third
-
party)
Среды
разработки
(
третьих
сторон
)
:
FBedit -
Written in FreeBASIC, Windows only.
http://radasm.cherrytree.at/fbedit/
FBide -
One of the first IDEs for FreeBASIC
http://
fbide.freebasic.net/
Geany -
Cross Platform IDE with support for FreeBASIC
http://www.geany.org/
Примечание:
Автор использует в работе FBedit
v
. 1.0.7.6
c
(2010).
20 августа 2012 года
стала доступной версия FreeBASIC 0.24.0, которую можно скачать с официал
ьно сайта программы:
http://www.freebasic.net/
FreeBASIC is a free/open source (GPL),
32
-
bit BASIC compiler for Microsoft Windows, DOS and Linux.
http://www.freebasic.net/get
The current production version of FreeBASIC is 0.24.0.
A multi
-
platform BASIC Com
piler.
Copyright (C) 2004
-
2012 The FreeBASIC development team.
На сайте разработчика приведены следующие ссылки:
Official site:
http://www.freebasic.net/
Forum:
http://www.freebasic.net/forum/
Online manual:
http://www.freebasic.net/wiki/DocToc
fbc pro
ject page:
http://www.sourceforge.net/projects/fbc/
После скачивания с сайта установочного файла FreeBASIC
-
0.24.0
-
win32.exe
и запуска его на компьютере, на жестком диске появляется новый каталог:
C:
\
Program Files
\
FreeBASIC
содержащий следующие элементы:
<DIR>
bin
<DIR>
doc
<DIR>
examples
<DIR>
inc
<DIR>
lib
143
176
changelog.txt
1
417
216
fbc.exe
3
638
fblogo.ico
28
672
open
-
console.exe
11
698
readme.txt
65
954
uninstall.exe
55
wiki.url
Примечание:
Здесь
и
далее
подразумевается
(но не обяза
тельно!), что на компьютере пользователя установлена операционная система Windows XP
Professional версия 2002 Service Pack 3. Компьютер пользователя собран на системной (материнской) плате тайваньской компании GIGABYTE Technology Co., Ltd. версии GA
-
EG41MF
T
-
US2H
(rev. 1.0). Конечно, эти сведения носят лишь ознакомительный характер и приведены для возможного дальнейшего обсуждения возникающих проблем.
Нетрудно догадаться, что файл fbc.exe
в "новом" каталоге, является файлом компилятора FreeBASIC, т.е. самым
главным для нас сегодня файлом! А файл open
-
console.exe –
файлом аналогичным по функциям интерпретатору командной строки Cmd.exe (Command line interpreter) для операционных систем, базирующихся на Windows NT (в том числе Windows XP), или интерпретатору ко
мандной строки COMMAND.COM, который использовался в операционных системах MS
-
DOS. С его помощью можно, например, проверить версию установленного компилятора. Для этого необходимо внизу экрана слева нажать кнопку "Пуск" -
> "Выполнить" далее в открывшемся ок
ошке нажать кнопку "Обзор", манипулируя курсором выбрать программу open
-
console.exe и запустить ее нажатием кнопку "ОК". После запуска на экране монитора откроется черное "консольное окно"
шириной 80 символов и высотой 25 строк, на которое будет выведен те
кст:
Microsoft Windows XP [Версия 5.1.2600]
<C> Корпорация Майкрософт, 1985 –
2001.
C:
\
Program Files
\
FreeBASIC>
Запуск компилятора fbc.exe
из консоли без указания аргументов выводит на экран список всех доступных опций. Если запустить компилятора fbc.exe
с указанием аргумента -
version
дописав строку следующим образом:
C:
\
Program Files
\
FreeBASIC>fbc.exe –
version<CR>
на экран будет выведена информация о версии компилятора:
FreeBASIC Compiler –
Version 0.24.0 (08
-
19
-
2012) for Win32
Copyright <C> 2004 –
20
12 The FreeBASIC development team.
standalone, objinfo <libbfd 217>
Для будущих экспериментов с компилятором FreeBASIC целесообразно создать рабочую папку пользователя, например, такую:
Содержимое
папки
C:
\
Program Files
\
FreeBASIC
\
Projects
244
_
b
.
bat
54
First
_
dos
.
bas
54
First_win.bas
Здесь _b.bat
–
косвенный командный файл для создания и запуска программы пользователя на языке FreeBASIC со следующими командами:
@Echo OFF
@CLS
if not exist %1.bas goto exit
if exist %1.exe del %1.exe
PATH c:
\
Program Fil
es
\
FreeBASIC
\
fbc.exe %1.bas -
s console
@Echo !!!
@Echo !!! скомпилирован и запущен файл %1.exe
@Echo !!!
%1.exe
@pause
:exit
@Echo ON
а файлы First_dos.bas
и First_win.bas
содержат абсолютно идентичные тексты программы на языке FreeBASIC, но использую
щие две различные кодировки:
файл First_dos.bas –
кодировку CP866
(MS
-
DOS Cyrillic),
файл
First_win.bas –
кодировку
CP1251
(Windows Cyrillic).
С тех пор как появились первые компьютеры, программисты используют множество небольших самодельных тестов, но т
радиционным с момента выхода книги "Язык программирования Си" Брайана Кернигана и Денниса Ритчи
, опубликованной в 1978 году, является программа, выводящей на экран монитора текст:
Hello, world! (Здравствуй, мир!).
Ниже цитируем главу книги Кернигана и Рит
чи: 1.1. Начинаем.
Единственный способ освоить новый язык программирования
-
писать на нем программы. Первая программа, которая должна быть написана, -
одна для всех языков: напечатать слова HELLO, WORLD!
Это -
самый существенный барьер; чтобы преодолеть его, вы должны суметь завести где
-
то текст программы, успешно его скомпилировать, загрузить, прогнать и найти, где оказалась ваша выдача. Если вы научились справляться с этими техническими деталями, все остальное сравнительно просто.
Следуя Брайану Керниг
ану и Деннису Ритчи
–
уже создали рабочий каталог, в котором разместили файлы с текстами программ, подготовленными, например, стандартным текстовым редактором Word 2003 в двух, указанных выше кодировках:
Print
"
Hello
, world
!"
' печатать строку
Print "При
вет, мир!"
' печатать строку
Sleep
' режим ожидания
и запустили их на выполнение с использованием косвенного командного файла.
На рисунк
ах ниже приведен
ы
фрагменты экранов при выполнении программ.
Вид экрана после выполнения программы First_dos.bas
–
кодировк
а MS
-
DOS Cyrillic
Вид экрана после выполнения программы First_
win
.bas
–
кодировк
а Windows
Cyrillic
Результат предсказуемый
–
не следует ожидать от производителя компьютеров поддержки всех языков и кодировок, существующих в Мире! Но и писать тексты программ в кодировке CP866 (MS
-
DOS Cyrillic) в среде операционной системы Windows XP не есть признак хорошего тона. Компромисс
может быть достигнут следующим образом –
текст подготавливается в кодировке CP1251 (Windows Cyrillic), и только перед выво
дом на консоль русские символы преобразуются в кодировку, "привычную" для консоли как это сделано в программе ниже:
#Include "windows.bi"
' файл
подключения
Dim WinString As String
' исходная
строка
Windows Cyrillic
Dim DosString As String
' получаем
ая
строка
MS
-
DOS Cyrillic
Dim EndCode As Integer
' код
завершения
WinString = " Кодировка Windows
-
1251 "
' исходная строка
DosString = Space$(Len(WinString))
' подготовка
результата
EbdCode = CharToOem(WinString, DosString)
' перекодировка
Print " En
d_Code = "; Code
' для
обоих
окон
1
Print WinString
'
печать
строки
Print DosString
'
печать
строки
Sleep
'
режим
ожидания
В программе используется интерфейсная функция CharToOem
()
из библиотеки Win API
для преобразования строки, пре
дставленной текущей кодировкой Windows Cyrillic в строку с набором символов MS
-
DOS Cyrillic. Использование API
-
функций (Application program interface) вместо функций библиотек компиляторов стало обычным явлением... Но об этом, пожалуй, в следующей главе. О
сталось только вспомнить добрым словом коллекцию, включающую в себя 421 программу "Здравствуй Мир" на многих более или менее известных языков программирования плюс 63
-
х человеческих языках! Ссылка
на
этот
уникальный сайт
:
http
://
cs
.
usu
.
edu
.
ru
/
langs
/
eso
/
docs
/
The
Hello
world
collection
.
htm
The Hello World Collection
Думаю, эта картинка больше не будет отвлекать от программирования!
Документ
Категория
Информатика
Просмотров
1 060
Размер файла
448 Кб
Теги
freebasic, компьютер, программирование
1/--страниц
Пожаловаться на содержимое документа