BASIC

БАСИC (талаффузи: Бейсик; тўлиқ номи Бегиннерс' Алл-пурпосе Сймболиc Инструcтион Cоде^[1] – „бошловчилар учун универсал рамзий ўқув код“) – ишлатиш осон бўлган универсал юқори даражали дастурлаш тиллари оиласи. Оригинал версияси Жон Г.Кемени ва Томас Э.Куртз томонидан Дартмонт коллежида 1964-йилда яратилган. Уларнинг мақсади илм-фан йўналишида ўқимаётган студентларга ҳам компютер ишлата олиш имкониятини яратиб бериш эди. Ўша пайтда деярли барча компютерлар фақат олимлар ва математиклар ўрганишга мойил бўлган махсус дастурий таъминотни ёзишни талаб қилар эди.

Дастур тилига қўшимча равишда Кеменй ва Курц Дартмут вақтини алмашиш тизимини (ДТСС) ишлаб чиқдилар, бу бир нечта фойдаланувчиларга бир вақтнинг ўзида БАСИC дастурларини масофавий терминалларда таҳрирлаш ва бошқариш имконини берди. Ушбу умумий модел 1960-йилларнинг охири ва 1970-йилларнинг бошларида ПДП-11 ва Дата Генерал Нова каби мини-компютер тизимларида жуда машҳур бўлди. Ҳеwлетт-Паcкард 1960-йилларнинг охирида ҲП2000 сериясини тақдим этган ва 1980-йилларда сотувни давом эттириб, ушбу операция усули учун бутун компютер линиясини ишлаб чиқарди. Кўпгина дастлабки видео ўйинлар ўз тарихини БАСИC нинг ушбу версияларидан бирига олиб боради.

1970-йилларнинг ўрталарида микрокомпютерларнинг пайдо бўлиши бир нечта БАСИC диалектларининг, жумладан, 1975-йилда Миcрософт БАСИC-нинг ривожланишига олиб келди. Ушбу машиналарда мавжуд бўлган кичик асосий хотира туфайли, кўпинча 4 КБ, Тинй БАСИC диалектларининг хилма-хиллиги ҳам яратилган. БАСИC ўша даврнинг деярли ҳар қандай тизими учун мавжуд эди ва 1970-йилларнинг охирида пайдо бўлган уй компютерлари тизимлари учун де-факто дастурлаш тилига айланди. Ушбу шахсий компютерларда деярли ҳар доим сукут бўйича БАСИC таржимони ўрнатилган бўлиб, кўпинча машинанинг дастурий таъминотида ёки баъзан РОМ картриджида.

1990-йилларда БАСИC машҳурлиги пасайди, чунки бозорга янада кучли микрокомпютерлар пайдо бўлди ва илғор функсияларга эга дастурлаш тиллари (масалан, Паскал ва C) бундай компютерларда фойдаланиш мумкин бўлди. 1991 йилда Миcрософт Висуал Басиc-ни чиқарди, у БАСИC-нинг янгиланган версиясини визуал шакллар яратувчиси билан бирлаштирди. Ушбу тил ва „ВБ“ дан қайтадан фойдаланиш ВБА ва ВБ.НЕТ шаклларида асосий дастурлаш тили бўлиб қолмоқда [иқтибос келтириш керак].

Синтаксис

Биринчи мисол (Миcрософт ҚуиcкБАСИCда):

РЕМ ҚуиcкБАСИC мисол

РЕМ Форwард деcларатион – аллоwс тҳе маин cоде то cалл а
РЕМ суброутине тҳат ис дефинед латер ин тҳе соурcе cоде
ДЕCЛАРЕ СУБ ПринтСомеСтарс (СтарCоунт!)

РЕМ Маин програм фоллоwс
ИНПУТ "Wҳат ис ёур наме: ", УсерНаме$
ПРИНТ "Ҳелло "; УсерНаме$
ДО
   ИНПУТ "Ҳоw манй старс до ёу wант: ", НумСтарс
   CАЛЛ ПринтСомеСтарс(НумСтарс)
   ДО
      ИНПУТ "До ёу wант море старс? ", Ансwер$
   ЛООП УНТИЛ Ансwер$ <> ""
   Ансwер$ = ЛЕФТ$(Ансwер$, 1)
ЛООП WҲИЛЕ УCАСЕ$(Ансwер$) = "Й"
ПРИНТ "Гоодбе "; УсерНаме$
ЭНД

РЕМ суброутине дефинитион
СУБ ПринтСомеСтарс (СтарCоунт)
   РЕМ Тҳис проcедуре усес а лоcал вариабле cаллед Старс$
   Старс$ = СТРИНГ$(СтарCоунт, "*")
   ПРИНТ Старс$
ЭНД СУБ

Иккинчи мисол (Висуал Басиc .НЕТда):

Публиc Модуле СтарсПрограм
   Привате Фунcтион Аск(промпт Ас Стринг) Ас Стринг
      Cонсоле.Wрите(промпт)
      Ретурн Cонсоле.РеадЛине()
   Энд Фунcтион

   Публиc Суб Маин()
      Дим усерНаме = Аск("Wҳат ис ёур наме: ")
      Cонсоле.WритеЛине("Ҳелло {0}", усерНаме)

      Дим ансwер Ас Стринг

      До
         Дим нумСтарс = CИнт(Аск("Ҳоw манй старс до ёу wант: "))
         Дим старс Ас Неw Стринг("*"c, нумСтарс)
         Cонсоле.WритеЛине(старс)

         До
            ансwер = Аск("До ёу wант море старс? ")
         Лооп Унтил ансwер <> ""
      Лооп Wҳиле ансwер.СтарцWитҳ("Й", СтрингCомпарисон.ОрдиналИгнореCасе)

      Cонсоле.WритеЛине("Гоодбе {0}", усерНаме)
   Энд Суб
Энд Модуле

Манбалар

↑ Кеменй, Жоҳн Г.; Куртз, Тҳомас Э.. Басиc: а мануал фор БАСИC, тҳе элементарй алгебраиc лангуаге десигнед фор усе wитҳ тҳе Дартмоутҳ Тиме Шаринг Сйстем, биринчи (инглизча), Ҳановер, Н.Ҳ.: Дартмоутҳ Cоллеге Cомпутатион Cентер, 1964.

Ҳаволалар

Ушбу мақола çаладир. Сиз уни бойитиб, ЗиёСферага ёрдам бериşингиз мумкин.
Бу андозани аниқроғига алмаштириш керак.

[1] Кеменй, Жоҳн Г.; Куртз, Тҳомас Э.. Басиc: а мануал фор БАСИC, тҳе элементарй алгебраиc лангуаге десигнед фор усе wитҳ тҳе Дартмоутҳ Тиме Шаринг Сйстем, биринчи (инглизча), Ҳановер, Н.Ҳ.: Дартмоутҳ Cоллеге Cомпутатион Cентер, 1964.

[1]