⌨ QBasic

' ============================================
' Můj první QBasic program
' Autor: Jana Nováková, 1995
' ============================================

CLS                        ' Vymaž obrazovku
PRINT "Ahoj světe!"         ' Vypiš text
PRINT "Vítej v QBasicu"
PRINT                      ' Prázdný řádek
PRINT "Zmáčkni libovolnou klávesu..."
SLEEP                      ' Čekej na stisk klávesy
END                        ' Konec programu

' Explicitní deklarace typů (doporučeno)
DIM vek AS INTEGER
DIM jmeno AS STRING
DIM vyska AS SINGLE
DIM plat AS LONG

' Přiřazení hodnot
vek = 25
jmeno = "Petr Novák"
vyska = 182.5
plat = 45000

' Výpis hodnot
PRINT "Jméno: "; jmeno
PRINT "Věk: "; vek; " let"
PRINT "Výška: "; vyska; " cm"

' OPTION EXPLICIT – nutí deklarovat všechny proměnné
' (zabrání překlepům v názvech)
OPTION EXPLICIT

' Konstanty – hodnoty nelze změnit
CONST PI = 3.14159265
CONST MAX_ZAKU = 30
CONST NAZEV_SKOLY = "ZŠ Mánesova"

' Definice procedury
SUB VypisPozdravi(jmeno$, vek%)
  COLOR 14, 0
  PRINT "Ahoj, "; jmeno$; "! Je ti "; vek%; "let."
  COLOR 7, 0
END SUB

' Procedura pro nakreslení rámečku
SUB Ramecek(text$)
  PRINT "+-" + STRING$(LEN(text$), "-") + "-+"
  PRINT "| " + text$ + " |"
  PRINT "+-" + STRING$(LEN(text$), "-") + "-+"
END SUB

' Hlavní program
CALL VypisPozdravi("Karel", 20)
CALL Ramecek("Vítej v QBasicu")

' Funkce pro výpočet faktoriálu
FUNCTION Faktorial(n%) AS LONG
  IF n% <= 1 THEN
    Faktorial = 1
  ELSE
    Faktorial = n% * Faktorial(n% - 1)  ' rekurze!
  END IF
END FUNCTION

' Funkce pro maximum dvou čísel
FUNCTION Maximum(a, b)
  IF a > b THEN
    Maximum = a
  ELSE
    Maximum = b
  END IF
END FUNCTION

' Použití funkcí
PRINT "5! ="; Faktorial(5)       ' Vypíše: 120
PRINT "Max(7,3) ="; Maximum(7, 3) ' Vypíše: 7

RANDOMIZE TIMER           ' inicializuj náhodný generátor

' Simulace hodu kostkou 5×
FOR i = 1 TO 5
  hod = INT(RND * 6) + 1   ' náhodné číslo 1–6
  PRINT "Hod č."; i; ":"; hod
NEXT i

' Převod stupňů na radiány
CONST PI = 3.14159265
stupne = 90
radiany = stupne * PI / 180
PRINT "sin(90°) ="; SIN(radiany)   ' = 1

' Jednorozměrné pole – 5 čísel
DIM cisla(5) AS INTEGER

' Naplnění pole
FOR i = 1 TO 5
  cisla(i) = i * 10     ' 10, 20, 30, 40, 50
NEXT i

' Výpis pole
FOR i = 1 TO 5
  PRINT "cisla("; i; ") ="; cisla(i)
NEXT i

' Pole řetězců
DIM mesice(12) AS STRING
DATA "Leden","Únor","Březen","Duben","Květen","Červen"
DATA "Červenec","Srpen","Září","Říjen","Listopad","Prosinec"
FOR i = 1 TO 12
  READ mesice(i)
NEXT i
PRINT "Třetí měsíc: "; mesice(3)   ' Březen

' Dvourozměrné pole – matice 3x3
DIM matice(3, 3) AS INTEGER
FOR r = 1 TO 3
  FOR s = 1 TO 3
    matice(r, s) = r * 10 + s
    PRINT matice(r, s);
  NEXT s
  PRINT                     ' nový řádek
NEXT r

' Dynamické pole (velikost za běhu)
DIM dynamicke() AS INTEGER
INPUT "Kolik prvků? ", n%
REDIM dynamicke(n%)
REDIM PRESERVE dynamicke(n% + 5) ' zvětší a zachová data

' ── ZÁPIS DO SOUBORU ──────────────────────
OPEN "data.txt" FOR OUTPUT AS #1   ' otevři pro zápis

PRINT #1, "Karel Novák"              ' zapiš řádek
PRINT #1, 25
PRINT #1, "Praha"
CLOSE #1                            ' zavři soubor!

' ── ČTENÍ ZE SOUBORU ──────────────────────
OPEN "data.txt" FOR INPUT AS #2    ' otevři pro čtení

DO WHILE NOT EOF(2)                 ' dokud není konec souboru
  LINE INPUT #2, radek$
  PRINT radek$
LOOP
CLOSE #2

' ── PŘIDÁNÍ NA KONEC SOUBORU ──────────────
OPEN "data.txt" FOR APPEND AS #3   ' přidej na konec
PRINT #3, "Nový záznam"
CLOSE #3

' ── ZJISTIT, ZDA SOUBOR EXISTUJE ──────────
IF LEN(DIR$("data.txt")) > 0 THEN
  PRINT "Soubor existuje"
ELSE
  PRINT "Soubor neexistuje"
END IF

' ── SMAZÁNÍ SOUBORU ───────────────────────
KILL "data.txt"    ' smaže soubor

SCREEN 12           ' 640×480 px, 16 barev

' ── ČÁRA ────────────────────────────────
LINE (10, 10)-(200, 100), 14     ' žlutá čára

' ── OBDÉLNÍK ────────────────────────────
LINE (50, 50)-(200, 150), 4, B   ' B = Box (obdélník)
LINE (50, 50)-(200, 150), 2, BF  ' BF = Box Filled

' ── KRUH / ELIPSA ───────────────────────
CIRCLE (320, 240), 100, 15        ' střed, poloměr, barva
CIRCLE (320, 240), 50, 4, , , 0.5' elipsa (poměr stran)

' ── BOD ─────────────────────────────────
PSET (100, 100), 12               ' bod na pozici, červeně

' ── VÝPLŇ ───────────────────────────────
PAINT (320, 240), 2, 15           ' vyplň zeleně (hranice=bílá)

' ── VYKRESLENÍ HVĚZDIČKY pomocí cyklu ──
CONST PI = 3.14159265
FOR uhel = 0 TO 2 * PI STEP 0.1
  x = 320 + COS(uhel) * 150
  y = 240 + SIN(uhel) * 150
  PSET (x, y), 14
NEXT uhel

SLEEP               ' počkej na klávesu
SCREEN 0            ' vrať se do textového režimu

' ================================================
' HÁDÁNÍ ČÍSLA – kompletní QBasic program
' Hráč hádá náhodné číslo mezi 1 a 100
' ================================================

DECLARE SUB Hlavicka()
DECLARE SUB VypisPokus(pokus%, tip%, tajne%)

'--- Hlavní program ---
CLS
RANDOMIZE TIMER

hratZnovu$ = "a"

DO WHILE UCASE$(hratZnovu$) = "A"
  CALL Hlavicka()

  tajneCislo% = INT(RND * 100) + 1  ' číslo 1–100
  pocetPokusu% = 0
  uhodl% = 0

  DO WHILE uhodl% = 0
    pocetPokusu% = pocetPokusu% + 1

    ' Validace vstupu
    DO
      INPUT "Tvůj tip (1-100): ", tip%
    LOOP WHILE tip% < 1 OR tip% > 100

    CALL VypisPokus(pocetPokusu%, tip%, tajneCislo%)

    IF tip% = tajneCislo% THEN
      uhodl% = 1
    END IF
  LOOP

  ' Gratulace
  COLOR 10, 0        ' světle zelená
  PRINT
  PRINT "*** SPRÁVNĚ! Uhodl jsi za"; pocetPokusu%; "pokusů! ***"
  COLOR 7, 0

  ' Hodnocení
  SELECT CASE pocetPokusu%
    CASE 1:        PRINT "Neuvěřitelné! Telepatické schopnosti!"
    CASE 2 TO 5:  PRINT "Výborně! Jsi génius!"
    CASE 6 TO 10: PRINT "Dobře! Průměrný výkon."
    CASE ELSE:     PRINT "Příště to zvládneš lépe!"
  END SELECT

  PRINT
  INPUT "Chceš hrát znovu? (A/N): ", hratZnovu$
  CLS
LOOP

PRINT "Díky za hru! Nashledanou."
END

'--- Procedury ---

SUB Hlavicka()
  COLOR 14, 0
  PRINT "=================================="
  PRINT "     HRA: UHODNI ČÍSLO 1-100    "
  PRINT "=================================="
  COLOR 7, 0
  PRINT
END SUB

SUB VypisPokus(pokus%, tip%, tajne%)
  PRINT "Pokus č."; pokus%; ": Hádáš"; tip%; "–";

  IF tip% < tajne% THEN
    COLOR 12, 0
    PRINT "příliš MALÉ!"
  ELSEIF tip% > tajne% THEN
    COLOR 9, 0
    PRINT "příliš VELKÉ!"
  ELSE
    COLOR 10, 0
    PRINT "SPRÁVNĚ!"
  END IF
  COLOR 7, 0
END SUB