Π§ΠΈΡ‚Π°ΠΉΡ‚Π΅ ΠΊΠ½ΠΈΠ³ΠΈ ΠΎΠ½Π»Π°ΠΉΠ½ Π½Π° Bookidrom.ru! БСсплатныС ΠΊΠ½ΠΈΠ³ΠΈ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΊΠ»ΠΈΠΊΠ΅

Π§ΠΈΡ‚Π°Ρ‚ΡŒ ΠΎΠ½Π»Π°ΠΉΠ½ Β«"Π£Ρ‡Π΅Π±Π½ΠΈΠΊ QBasic"Β». Π‘Ρ‚Ρ€Π°Π½ΠΈΡ†Π° 2

Автор Автор НСизвСстСн

Β  LET number = 100: PRINT " НомСр Ρ€Π°Π²Π΅Π½ "; number

Β  Π­Ρ‚ΠΎ Π²Ρ‹Π²Π΅Π΄Π΅Ρ‚ Π½Π° экран ΠΏΡ€ΠΈ запускС:

Β  НомСр Ρ€Π°Π²Π΅Π½ 100

Β  Π’Π΅ΠΏΠ΅Ρ€ΡŒ Π²Ρ‹ спроситС, ΠΊΠ°ΠΊ самому Π²Π²ΠΎΠ΄ΠΈΡ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Π΅. Для этого  ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡŽΡ‚Β ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ INPUT. НапримСр:

Β  INPUT "Как вас Π·ΠΎΠ²ΡƒΡ‚?"; username$ : PRINT "ΠŸΡ€ΠΈΠ²Π΅Ρ‚, "; username$; "."

Β  ΠŸΡ€ΠΈ запускС ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹ ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€ спросит ΠΊΠ°ΠΊ вас Π·ΠΎΠ²ΡƒΡ‚, послС Ρ‚ΠΎΠ³ΠΎ ΠΊΠ°ΠΊ Π²Ρ‹ Π½Π°Π±Π΅Ρ€Π΅Ρ‚Π΅ своё имя, ΠΎΠ½ Π΅Π³ΠΎ Π½Π°ΠΏΠ΅Ρ‡Π°Ρ‚Π°Π΅Ρ‚. Π’ этой Π³Π»Π°Π²Π΅, ΠΌΡ‹ ΠΈΠ·ΡƒΡ‡ΠΈΠ»ΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ PRINT ΠΈ ΡƒΠ·Π½Π°Π»ΠΈ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Ρ‹ LET ΠΈ INPUT.

Β  Π—Π°Π΄Π°Π½ΠΈΠ΅ Π½Π° эту Π³Π»Π°Π²Ρƒ :

Β  ΠΠ°ΠΏΠΈΡˆΠΈΡ‚Π΅ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡƒ, ΠΏΡ€ΠΈ запускС ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΉ Π²Π°ΠΌ ΠΏΡ€Π΅Π΄Π»Π°Π³Π°Π»ΠΎΡΡŒ Π±Ρ‹ ввСсти вашС имя ΠΈ возраст, ΠΈ послС Ρ‚ΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ Π²Ρ‹ Π²Π²Π΅Π»ΠΈ имя ΠΈ возраст ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π±Ρ‹Π»Π° Π±Ρ‹ вывСсти имя ΠΈ возраст Π½Π° экран, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ PRINT.

Π£Ρ‡Π΅Π±Π½ΠΈΠΊΠΈ: /Β  QBasic -Β  β„–01Β  -Β  Π“Π»Π°Π²Π°Β  3Β  /

Π’Π Π•Π’Π¬Π― Π“Π»Π°Π²Π°. ΠŸΡ€ΠΈΠ²Π΅Ρ‚! Π’ этой Π³Π»Π°Π²Π΅, ΠΌΡ‹ ΠΈΠ·ΡƒΡ‡ΠΈΠΌ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹:

Β  DIM, FOR...NEXT, STEP, GOTO, IF...THEN, COLOR

Β  БСйчас, Π²Ρ‹ Π·Π½Π°Π΅Ρ‚Π΅: ΠžΡ‚Π½ΠΎΡΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ Ρ‚ΠΈΠΏΠΎΠ² ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Ρ‹ PRINT, INPUT, ΠΈΒ  LET. Π­Ρ‚ΠΎ Π±Π°Π·ΠΎΠ²Ρ‹Π΅ Π΄Π΅Ρ‚Π°Π»ΠΈ ΠΈΠ· срСды Π‘Π•Π™Π‘Π˜ΠšΠ, Π½ΠΎ Ρ‚Π΅ΠΏΠ΅Ρ€ΡŒ ΠΌΡ‹ Π΄ΠΎΠ»ΠΆΠ½Ρ‹ Π΄Π²ΠΈΠ³Π°Ρ‚ΡŒΡΡ Π² ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ½ΡƒΡŽ ΠΎΠ±Π»Π°ΡΡ‚ΡŒ Π‘Π•Π™Π‘Π˜ΠšΠ.

Β ΠŸΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡŽΡ‚ΡΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ΅, нСзависимо ΠΎΡ‚ Ρ‚ΠΎΠ³ΠΎ какая ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° это. ИмСнно поэтому ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Π΅ Π½Π°ΡΡ‚ΠΎΠ»ΡŒΠΊΠΎ Π²Π°ΠΆΠ½Ρ‹ Π² Π‘Π•Π™Π‘Π˜ΠšΠ•. Однако, ΠΊΠΎΠ³Π΄Π° ΠΌΠ½ΠΎΠ³ΠΎ строк, сотни ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ…, названия ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Ρ… Ρ‚Ρ€ΡƒΠ΄Π½ΠΎ Π·Π°ΠΏΠΎΠΌΠ½ΠΈΡ‚ΡŒ, вводят ΠœΠΠ‘Π‘Π˜Π’Π«.

Β 

Β  ΠœΠ°ΡΡΠΈΠ²Ρ‹ - большоС ΠΏΠΎΠ»Π΅ Π² памяти ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€Π°. Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΏΠΎΠΌΠ΅Ρ‰Π°Ρ‚ΡŒ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Π΅ Π²Π΅Ρ‰ΠΈ Π² поля массивов, Π½ΠΎ ΠΈΡ… ΠΎΡ€Π³Π°Π½ΠΈΠ·ΠΎΠ²Ρ‹Π²Π°ΡŽΡ‚ Π² ΠΎΠ΄Π½ΠΎ большоС ΠΏΠΎΠ»Π΅. Π§Ρ‚ΠΎΠ±Ρ‹ ΡΠΎΠ·Π΄Π°Π²Π°Ρ‚ΡŒ массив, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡŽΡ‚ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ DIM:

Β  DIM ArrayName$ (number)

Β  ArrayName - Π½Π°Π·Π²Π°Π½ΠΈΠ΅ массива, сопровоТдаСмого Ρ‚ΠΈΠΏΠΎΠΌ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ($,!,# ΠΈ Ρ‚.Π΄.) Π½ΠΎΠΌΠ΅Ρ€ Π² ΠΊΡ€ΡƒΠ³Π»Ρ‹Ρ… скобках - количСство "ΠΏΠΎΠ»Π΅ΠΉ" Π² массивС. Π§Ρ‚ΠΎΠ±Ρ‹ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ массив, Π½Π°Π·Π½Π°Ρ‡Π°ΡŽΡ‚ значСния массива, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ LET. НапримСр:

Β  DIM Day$(2)

Β LET Day$(1) = "Π’ΠΎΡΠΊΡ€Π΅ΡΠ΅Π½ΡŒΠ΅

 LET Day$(2) = "ПонСдСльник

Β  И Ρ‚Π°ΠΊ Π΄Π°Π»Π΅Π΅. Π§Ρ‚ΠΎΠ±Ρ‹ ΠŸΠ•Π§ΠΠ’ΠΠ’Π¬ ΠΎΠ΄Π½Ρƒ ΠΈΠ· этих ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ… Π² массивС, ΠΏΠΈΡˆΠΈΡ‚Π΅ Ρ‚ΠΎΡ‡Π½ΠΎΒ  Ρ‚Π°ΠΊ ΠΆΠ΅ ΠΊΠ°ΠΊ ΠΈ для ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ (Ρ‚.Π΅. с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹ PRINT):

  PRINT "БСгодня: "; Day$(1); "."

Β  И, соотвСтствСнно, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΏΠΎΠ»ΡƒΡ‡ΠΈΡ‚ΡŒ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ΠΎΡ‚ ΠΊΠ»Π°Π²ΠΈΠ°Ρ‚ΡƒΡ€Ρ‹ Π² массив, ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚Π΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ INPUT:

Β  INPUT "Как Π·ΠΎΠ²ΡƒΡ‚ ΠΏΠ΅Ρ€Π²ΠΎΠ³ΠΎ ΠΈΠ³Ρ€ΠΎΠΊΠ°?"; players$(1)

Β INPUT "Как Π·ΠΎΠ²ΡƒΡ‚ Π²Ρ‚ΠΎΡ€ΠΎΠ³ΠΎ ΠΈΠ³Ρ€ΠΎΠΊΠ°?"; players$(2)

Β  Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ элСмСнт массива Ρ‚Π°ΠΊΠΆΠ΅, ΠΊΠ°ΠΊ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ. ΠŸΡ€ΠΈ использовании массивов, Π²Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΡƒΠΏΡ€Π°Π²Π»ΡΡ‚ΡŒ сотнями Π½Π°Π·Π²Π°Π½ΠΈΠΉ, Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ: Π‘Ρ‚Ρ€ΠΎΠΊΠΈ, Π΄ΠΎΠ»Π»Π°Ρ€ΠΎΠ²Ρ‹Π΅ количСства, ΠΈ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ большС. Π’Π΅ΠΏΠ΅Ρ€ΡŒ Π²Ρ‹ ΡƒΠΌΠ΅Π΅Ρ‚Π΅ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ массивы. Π’Ρ‹, я Π΄ΡƒΠΌΠ°ΡŽ, Π½Π΅ смогли Π±Ρ‹, скаТСм, Π½Π°ΠΏΠ΅Ρ‡Π°Ρ‚Π°Ρ‚ΡŒ 100 Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Ρ… Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ массива, Π½Π°Π·Π²Π°Π½Π½ΠΎΠ³ΠΎ "players$". Π­Ρ‚ΠΎ ΠΎΡ‡Π΅Π²ΠΈΠ΄Π½ΠΎ Π±Ρ‹Π»ΠΎ нСэкономично, ΠΈΠΌΠ΅Ρ‚ΡŒ 100 Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Ρ… ΠΊΠΎΠΌΠ°Π½Π΄ ΠΏΠ΅Ρ‡Π°Ρ‚ΠΈ.

Β ΠŸΠΎΡΡ‚ΠΎΠΌΡƒ, Π½Π°ΠΌ Π½ΡƒΠΆΠ½ΠΎ ΠΈΠ·ΡƒΡ‡ΠΈΡ‚ΡŒ Π¦Π˜ΠšΠ›Π«. Π¦ΠΈΠΊΠ» - Π½Π°Π±ΠΎΡ€ ΠΊΠΎΠΌΠ°Π½Π΄, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΏΠΎΠ²Ρ‚ΠΎΡ€Π΅Π½Ρ‹ нСсколько Ρ€Π°Π·, Π΄ΠΎ ΠΊΠ°ΠΊΠΎΠ³ΠΎ Π»ΠΈΠ±ΠΎ условия, ΠΈΠ»ΠΈ бСсконСчно. ΠŸΠ΅Ρ€Π²Ρ‹ΠΉ Ρ†ΠΈΠΊΠ», ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ ΠΌΡ‹ ΠΈΠ·ΡƒΡ‡ΠΈΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Π° FOR...NEXT. Π­Ρ‚ΠΎ повторяСт ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹ ΠΌΠ΅ΠΆΠ΄Ρƒ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€Π°ΠΌΠΈ FOR ΠΈ NEXT ΡΡ‚ΠΎΠ»ΡŒΠΊΠΎ Ρ€Π°Π·, сколько ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎ. Бинтаксис прост:

Β  FOR i = 1 TO 100

Β PRINT i

Β NEXT i

Β  ΠŸΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° ΠΏΠ΅Ρ‡Π°Ρ‚Π°Π»Π° Π±Ρ‹ числа ΠΎΡ‚ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π΄ΠΎ сотни. ВмСсто ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ "i", ΠΌΠΎΠΆΠ½ΠΎ Π΄Π°Π²Π°Ρ‚ΡŒ любоС имя, Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€, "bob" ΠΈΠ»ΠΈ "sam" ΠΈΠ»ΠΈ "linda", ΠΈΠ»ΠΈ "z". Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ Ρ‚Π°ΠΊ ΠΆΠ΅ Π±Ρ€Π°Ρ‚ΡŒ Π±ΠΎΠ»Π΅Π΅ Π½ΠΈΠ·ΠΊΠΈΠ΅ ΠΈΠ»ΠΈ высокиС значСния ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΠΉ - Π½Π°ΠΏΡ€ΠΈΠΌΠ΅Ρ€:

Β  FOR i = 6 TO 371

Β PRINT "ΠœΠ°Π³ΠΈΡ‡Π΅ΡΠΊΠΈΠΉ Π½ΠΎΠΌΠ΅Ρ€ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ:"; i

Β NEXT i

Β  Π”Ρ€ΡƒΠ³ΠΎΠΉ способ примСнСния FOR...NEXT - способ приращСния Ρ†ΠΈΠΊΠ»Π° - использованиСм ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹ STEP. Если Π²Ρ‹ опускаСтС ΠΊΠΎΠΌΠ°Π½Π΄Ρƒ STEP (ΠΊΠ°ΠΊ Π² ΠΎΠ±Ρ‹Ρ‡Π½ΠΎΠΌ FOR...NEXT Ρ†ΠΈΠΊΠ»Π΅), "i" увСличиваСтся ΠΊΠ°ΠΆΠ΄Ρ‹ΠΉ Ρ€Π°Π· послС выполнСния Ρ†ΠΈΠΊΠ»Π°. Π‘ использованиСм ΠΊΠΎΠΌΠ°Π½Π΄Ρ‹ STEP, Π’Ρ‹ ΠΌΠΎΠΆΠ΅Ρ‚Π΅ ΠΈΠ·ΠΌΠ΅Π½ΡΡ‚ΡŒ Π΅Ρ‘ Π½Π° любой Π½ΠΎΠΌΠ΅Ρ€Ρƒ ΠΊΠ°ΠΊΠΎΠΉ ΠΏΠΎΠΆΠ΅Π»Π°Π΅Ρ‚Π΅. НапримСр:

Β  FOR i = 100 TO 300 STEP 2

Β PRINT "ΠœΠ°Π³ΠΈΡ‡Π΅ΡΠΊΠΈΠΉ Π½ΠΎΠΌΠ΅Ρ€ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ:"; i

Β NEXT i

Β  Π­Ρ‚ΠΎ Π±Ρ‹ Π²Ρ‹Π²Π΅Π»ΠΎ всС Ρ‡Π΅Ρ‚Π½Ρ‹Π΅ числа ΠΎΡ‚ 100 Π΄ΠΎ 300. Π’Ρ‹ ΠΌΠΎΠ³Π»ΠΈ Π±Ρ‹ Ρ‚Π°ΠΊΠΆΠ΅ Π·Π°ΡΡ‚Π°Π²ΠΈΡ‚ΡŒ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½ΡƒΡŽ "i" ΠΎΡ‚Ρ‡ΠΈΡΠ»ΡΡ‚ΡŒΡΡ Π½Π°Π·Π°Π΄, ΠΊΠ°ΠΊ Π² этом ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅:

Β  FOR i = 300 TO 100 STEP -2

Β PRINT "Ρ†ΠΈΡ„Ρ€Π° - Ρ‚Π΅ΠΏΠ΅Ρ€ΡŒ:"; i

Β NEXT i

Β  FOR...NEXT Ρ†ΠΈΠΊΠ»Ρ‹ ΠΌΠΎΠ³ΡƒΡ‚ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ Π²Π΅Π·Π΄Π΅. Π’ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅ΠΉ Π³Π»Π°Π²Π΅, ΠΌΡ‹ ΠΈΠ·ΡƒΡ‡ΠΈΠΌ Π΄Π²Π° Π΄Ρ€ΡƒΠ³ΠΈΡ… Π²ΠΈΠ΄Π°Ρ… Ρ†ΠΈΠΊΠ»Π°, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ ΠΏΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ°ΡŽΡ‚ выполнятся Π΄ΠΎ Π½Π΅ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠ³ΠΎ условия. Π’ этой части ΠΌΡ‹ ΠΈΠ·ΡƒΡ‡ΠΈΠΌ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ GOTO. Если Π’Ρ‹ Π½Π΅ Π·Π½Π°Π΅Ρ‚Π΅ ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ GOTO, Ρ‚ΠΎ Π·Π°Π²Π΅Ρ€ΡΡŽ вас, ΠΎΠΏΠ΅Ρ€Π°Ρ‚ΠΎΡ€ Ρ‡Ρ€Π΅Π·Π²Ρ‹Ρ‡Π°ΠΉΠ½ΠΎ прост. GOTO - мощная ΠΊΠΎΠΌΠ°Π½Π΄Π°, которая позволяСт Π²Π°ΠΌ ΠΏΠ΅Ρ€Π΅Ρ…ΠΎΠ΄ΠΈΡ‚ΡŒ Π² Ρ€Π°Π·Π½Ρ‹Π΅ части ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹ ΠΏΠΎ Π½ΠΎΠΌΠ΅Ρ€Π°ΠΌ строки. Но для этого Π²Ρ‹ Π΄ΠΎΠ»ΠΆΠ½Ρ‹ "ΠΌΠ°Ρ€ΠΊΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ" строки, ΠΊ ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΌ Π²Ρ‹ Ρ…ΠΎΡ‚ΠΈΡ‚Π΅ ΠΏΠ΅Ρ€Π΅ΠΉΡ‚ΠΈ. НапримСр: