Yon ti kras sou kisa lekòl "syans enfòmatik" te tankou nan ane 90 yo, e poukisa tout pwogramasyon yo te sèlman oto-aprann.
Ki sa timoun yo te anseye yo pwogram sou
Nan kòmansman ane 90 yo, lekòl Moskou yo te kòmanse oaza ekipe ak klas òdinatè. Chanm yo te imedyatman ekipe ak ba sou fenèt yo ak yon gwo pòt ki fèt an fè. Soti nan yon kote, yon pwofesè syans enfòmatik parèt (li te sanble ak kamarad ki pi enpòtan an apre direktè a), ki gen prensipal travay se asire w ke pèsonn pa manyen anyen. Anyen menm. Menm pòt devan an.
Nan salklas yo te kapab pi souvan jwenn BK-0010 (nan varyete li yo) ak sistèm BK-0011M.
Foto pran
Yo te di timoun yo sou estrikti jeneral la, ansanm ak sou yon douzèn kòmandman BASIC pou yo ka trase liy ak ti sèk sou ekran an. Pou klas jinyò ak mwayèn, sa a te pwobableman ase.
Te gen kèk pwoblèm ak prezève kreyasyon yon moun (pwogram). Pi souvan, òdinatè ki itilize kontwolè mono-chanèl yo te konbine nan yon rezo ak yon topoloji "otobis komen" ak yon vitès transmisyon 57600 baud. Kòm yon règ, te gen yon sèl kondwi ki gen kapasite, ak bagay yo souvan ale mal ak li. Pafwa li travay, pafwa li pa fè sa, pafwa rezo a jele, pafwa diskèt la pa lizib.
Lè sa a, mwen te pote avèk mwen kreyasyon sa a ak yon kapasite de 360 kB.
Chans yo ke mwen ta jwenn pwogram mwen an soti nan li ankò yo te 50-70 pousan.
Sepandan, pwoblèm prensipal la ak tout istwa sa yo ak òdinatè BC te jele kontinuèl.
Sa a ka rive nenpòt ki lè, si se tape kòd oswa egzekite yon pwogram. Yon sistèm jele te vle di ke ou te pase 45 minit pou gremesi, paske... Mwen te oblije fè tout bagay ankò, men tan leson ki rete a pa t ase ankò pou sa.
Pi pre 1993, nan kèk lekòl ak lise, klas nòmal ak 286 machin parèt, e nan kèk kote te gen menm twa rubles. An tèm de langaj pwogramasyon, te gen de opsyon: kote "BASIC" te fini, "Turbo Pascal" te kòmanse.
Pwogramasyon nan "Turbo Pascal" lè l sèvi avèk egzanp "tank"
Lè l sèvi avèk Pascal, timoun yo te anseye yo bati bouk, trase tout kalite fonksyon, ak travay ak etalaj. Nan lise fizik ak matematik, kote mwen te "te viv" pou yon ti tan, yon koup pa semèn yo te asiyen nan syans enfòmatik. Ak pou de ane te gen kote sa a raz. Natirèlman, mwen te vle fè yon bagay ki pi grav pase montre valè yon etalaj oswa kèk kalite sinusoid sou ekran an.
Tank
Battle City se te youn nan jwèt ki pi popilè sou konsola script NES (Dendy, elatriye).
An 1996, popilarite 8-bit te pase, yo te gen lontan yo te kolekte pousyè nan klozèt, epi li te sanble fre m 'fè yon script nan "Tank" pou PC a kòm yon bagay gwo-echèl. Sa ki anba la a se jis sou ki jan tounen Lè sa a, li te nesesè yo eskive yo nan lòd yo ekri yon bagay ak grafik, yon sourit ak son sou Pascal.
Ou ka sèlman trase baton ak sèk
Ann kòmanse ak grafik.
Nan vèsyon debaz li yo, Pascal pèmèt ou trase kèk fòm, penti ak detèmine koulè pwen yo. Pwosedi ki pi avanse nan modil Graph ki mennen nou pi pre sprites yo se GetImage ak PutImage. Avèk èd yo, li te posib pran yon seksyon nan ekran an nan yon zòn memwa deja rezève epi Lè sa a, sèvi ak moso sa a kòm yon imaj bitmap. Nan lòt mo, si ou vle reitilize kèk eleman oswa imaj sou ekran an, ou premye trase yo, kopye yo nan memwa, efase ekran an, trase youn nan pwochen, ak sou sa jiskaske ou kreye bibliyotèk la vle nan memwa. Depi tout bagay rive byen vit, itilizatè a pa remake ke trik nouvèl sa yo.
Premye modil kote sprites yo te itilize se te editè kat jeyografik la.
Li te gen yon jaden jwe make. Klike sou sourit la parèt yon meni kote ou ka chwazi youn nan kat opsyon obstak. Pale de sourit la...
Sourit la se deja nan fen ane 90 yo
Natirèlman, tout moun te gen sourit, men jiska mitan ane 90 yo yo te itilize sèlman nan Windows 3.11, pakè grafik, ak yon ti kantite jwèt. Wolf ak fayit yo te jwe sèlman ak klavye a. Ak nan anviwònman an DOS sourit la pa te patikilyèman nesesè. Se poutèt sa, Borland pa t 'menm mete modil la sourit nan pake estanda a. Ou te oblije chèche l atravè zanmi w yo, ki te voye men yo anlè e yo te reponn: "Pou kisa w bezwen l?"
Sepandan, jwenn yon modil sondaj sourit la se sèlman mwatye batay la. Yo nan lòd yo klike sou bouton yo sou ekran ak sourit la, yo te dwe trase. Anplis, nan de vèsyon (bourade epi yo pa bourade). Yon bouton ki pa peze gen yon tèt limyè ak yon lonbraj anba li. Lè peze, li nan lòt fason alantou. Lè sa a, trase li sou ekran an twa fwa (pa bourade, bourade, Lè sa a, pa peze ankò). Anplis de sa, pa bliye mete reta pou ekspozisyon, epi kache kurseur la.
Pou egzanp, pwosesis meni prensipal la nan kòd sanble sa a:
Son - Oratè PC sèlman
Yon istwa separe ak son. Nan kòmansman katreventèn yo, klon Sound Blaster yo te jis prepare pou mach viktorye yo, ak pifò aplikasyon yo te travay sèlman ak oratè entegre a. Maksimòm nan kapasite li yo se repwodiksyon an similtane nan yon sèl ton. Epi se egzakteman sa Turbo Pascal pèmèt ou fè. Atravè pwosedi a son li te posib yo "griye" ak frekans diferan, ki se ase pou son yo nan bal ak eksplozyon, men pou yon ekran mizik, jan sa te alamòd lè sa a, sa a pa t 'apwopriye. Kòm yon rezilta, yo te jwenn yon solisyon trè atizan: nan pwòp achiv lojisyèl an, yo te dekouvri yon "fichye ègzekutabl", telechaje yon fwa nan kèk BBS. Li te kapab fè mirak - jwe vag dekonprese atravè yon Oratè PC, epi li te fè li nan liy lòd la epi li pa t 'gen yon koòdone aktyèl. Tout sa ki te bezwen se te rele li atravè pwosedi exec Pascal la epi asire w ke konstriksyon sa a pa tonbe.
Kòm yon rezilta, mizik la asasen parèt sou ekran an, men yon bagay komik te pase ak li. An 1996, mwen te gen yon sistèm sou yon Pentium 75, manivelle jiska 90. Tout bagay te travay byen sou li. Nan inivèsite kote Pascal te enstale pou nou nan dezyèm semès la, te gen "twa rubles" byen chire nan salklas la. Dapre akò ak pwofesè a, mwen te pran tank sa yo nan dezyèm leson an pou m ka fè yon tès epi pou m pa ale la ankò. Se konsa, apre lansman, yon gwo gwonde melanje ak son guttural gurgling soti nan oratè a. An jeneral, 33-megahertz DX "twa-Ruble kat la" te tounen soti yo pa kapab byen vire sa a menm "egzekutabl". Men, sinon tout bagay te byen. Natirèlman, pa konte sondaj la klavye dousman, ki gate jeu a tout antye, kèlkeswa pèfòmans PC.
Men, pwoblèm prensipal la se pa nan Pascal
Nan konpreyansyon mwen an, "Tank" se maksimòm nan ki ta ka prese soti nan Turbo Pascal san foure asanble. Enpèfeksyon yo evidan nan pwodwi final la se sondaj ralanti klavye ak rann grafik dousman. Sitiyasyon an te agrave pa kantite ti bibliyotèk ak modil twazyèm pati yo. Yo ta ka konte sou dwèt yo nan yon sèl men.
Men, sa ki pi fache m se apwòch edikasyon lekòl la. Lè sa a, pesonn pa di timoun yo sou avantaj ak posiblite lòt lang. Nan klas, yo prèske imedyatman te kòmanse pale sou kòmanse, println ak si, ki fèmen elèv yo andedan paradigm BASIC-Pascal. Tou de lang sa yo ka konsidere kòm sèlman edikasyon. Itilizasyon "konba" yo se yon bagay ki ra.
Poukisa anseye timoun yo fo lang se yon mistè pou mwen. Kite yo gen plis vizyèl. Se pou yo itilize varyasyon BASIC isit la epi la. Men, nan nenpòt ka, si yon moun deside konekte avni li ak pwogramasyon, li pral oblije aprann lòt lang nan grafouyen. Se konsa, poukisa yo pa ta dwe bay timoun yo menm travay edikasyon, men sèlman sou yon platfòm nòmal (lang), nan ki yo ta ka devlope plis poukont yo?
Pale de travay. Nan lekòl ak kolèj yo te toujou abstrè: kalkile yon bagay, konstwi yon fonksyon, trase yon bagay. Mwen te etidye nan twa lekòl diferan, plis nou te gen "Pascal" nan premye ane a nan enstiti a, e pa yon fwa pwofesè yo te poze okenn pwoblèm reyèl aplike. Pou egzanp, fè yon kaye oswa yon lòt bagay itil. Tout bagay te twò lwen. Epi lè yon moun pase mwa pou rezoud pwoblèm vid, ki answit ale nan fatra... An jeneral, moun deja kite enstiti a boule.
By wout la, nan twazyèm ane a nan menm inivèsite a, nou te bay "plus" nan pwogram nan. Li te sanble tankou yon bon bagay, men moun yo te fatige, plen ak fo ak travay "fòmasyon". Pa gen moun ki te antouzyastik kòm premye fwa a.
PS Mwen te google sou ki lang yo anseye kounye a nan klas enfòmatik nan lekòl yo. Tout bagay se menm jan ak 25 ane de sa: Basic, Pascal. Python vini nan enklizyon sporadik.
Sous: www.habr.com