'1 zadatak: Unesi proivoljan broj rijeci, ispisi ih na ekranu obrnuto napisane, i sve rijeci koje u sebi sadrze samoglasnik A. spremiti ove rijeci u datoteku rijeci.dat .. pomocu programskog koda QB-a procitati i ispisati ove rijeci..

CLS

'BROJ PROIZVOLJNIH RIJECI

INPUT "Broj rijeci: "; br


'UNOS PROIZVOLJNIH RIJECI

PRINT "Unesi rijeci: "
FOR i = 1 TO br
    INPUT a$(i)
NEXT i

PRINT
PRINT "Obrnut ispis rijeci: "
PRINT

FOR i = 1 TO br
    FOR j = LEN(a$(i)) TO 1 STEP -1
        PRINT MID$(a$(i), j, 1);
    NEXT j
    PRINT
NEXT i

PRINT
PRINT "Rijeci koje sadrze A: "
PRINT

k = 1
p = 0

FOR i = 1 TO br
    FOR j = 1 TO LEN(a$(i))
        IF MID$(a$(i), j, 1) = "a" OR MID$(a$(i), j, 1) = "A" THEN
            p = 1 'Ako rijec sadrzi ili a ili A varijabla p ce biti 1, ako ne onda ostaje na 0
        END IF
    NEXT j
    IF p = 1 THEN 'Ako je provjera istinita, tj ako je jednaka 1 tada ispisuje rijec i sprema u varijablu za zapis u datoteku i inkrementira index k
        PRINT a$(i)
        b$(k) = a$(i)
        k = k + 1
    END IF
    p = 0 'Ponovno vraca provjeru na pocetno, false, stanje
NEXT i

OPEN "rijeci.dat" FOR OUTPUT AS #1
    FOR i = 1 TO k - 1
        WRITE #1, b$(i)
    NEXT i
CLOSE #1

PRINT
PRINT "Ispis iz datoteke rijeci.dat"
PRINT

OPEN "rijeci.dat" FOR INPUT AS #1
    DO UNTIL EOF(1)
        INPUT #1, tekst
        PRINT tekst
    LOOP
CLOSE #1


END


'2 zadatak: Unesi n brojeva, poredaj ih po velicini, ispisi sve dvoznamenkaste brojeve, i one brojeve koji imaju znamenku 8 u sebi, spremiti ih u datoteku niz.dat pomocu programskog koda, procitat ih i ispisati .

CLS

INPUT "Unesi broj brojeva: "; br

PRINT "Unesi brojeve: "
FOR i  = 1 TO br
    INPUT a(i)
NEXT i

red(1) = a(1)

FOR i = 1 TO br
    FOR j = 2 TO br
        IF a(j) > red(i) THEN
            tmp = red(i)
            red(i) = a(j)
            a(j) = tmp
        END IF
    NEXT j
NEXT i

PRINT
PRINT "Poredani niz: "
PRINT

FOR i = 1 TO br
    PRINT red(i)
NEXT i

PRINT
PRINT "Dvoznamenkasti brojevi: "
PRINT

FOR i = 1 TO br
    IF red(i) > 9 AND red(i) < 100 THEN
        PRINT red(i)
    END IF
NEXT i

'***********************************************************************************************************************************************************************************************************************************
PRINT
PRINT "Brojevi koji sadrze 8: "
PRINT

k = 0
p = 0

FOR i = 1 TO br
    b$ = STR$(a(i))
    FOR j = 0 TO LEN(b$)
        IF MID$(b$, j, 1) = "8" THEN
            p = 1
        END IF
    NEXT j
    IF p = 1 THEN
        PRINT b$
        k = k + 1
        osam(i) = VAL(b$)
    END IF
    p = 0
NEXT i

FOR i = 1 TO k
    PRINT osam(i)
NEXT i

'***********************************************************************************************************************************************************************************************************************************

END


 '3 zadatak: napravi program kojim upisujem 10 brojeva u datoteku, sortirati ih po velicini, ispisati najveci i najmanji clan niza ... spremiti pomocu QB koda u datoteku brojevi.dat ...

CLS

PRINT "Unesi 10 brojeva: "
FOR i = 1 TO 10
    INPUT a(i)
NEXT i


red(1) = a(1)

FOR i = 1 TO 10
    FOR j = 2 TO 10
        IF a(j) > red(i) THEN
            tmp = red(i)
            red(i) = a(j)
            a(j) = tmp
        END IF
    NEXT j
NEXT i

PRINT
PRINT "Poredani niz: "
PRINT

FOR i = 1 TO 10
    PRINT red(i)
NEXT i

PRINT
PRINT "Najveci clan niza: "; red(1)
PRINT "Najmanji clan niza: "; red(10)

OPEN "brojevi.dat" FOR OUTPUT AS #1
    FOR i = 1 TO 10
        WRITE #1, red(i)
    NEXT i
CLOSE #1

END


 '4 zadatak: Napraviti program koji upisuje 10 rijeci, ispisati ih obrnuto, i samo one rijeci koje NE sadrze slovo A ... isto spremiti ...

CLS

PRINT "Unesi 10 rijeci: "
FOR i = 1 TO 10
    INPUT a$(i)
NEXT i

PRINT
PRINT "Obrnut ispis rijeci: "
PRINT

FOR i = 1 TO 10
    FOR j = LEN(a$(i)) TO 1 STEP -1
        PRINT MID$(a$(i), j, 1);
    NEXT j
    PRINT
NEXT i

PRINT
PRINT "Rijeci koje ne sadrze A: "
PRINT

k = 1
p = 0

FOR i = 1 TO 10
    FOR j = 1 TO LEN(a$(i))
        IF MID$(a$(i), j, 1) = "a" OR MID$(a$(i), j, 1) = "A" THEN
            p = 1 'Ako rijec sadrzi ili a ili A varijabla p ce biti 1, ako ne onda ostaje na 0
        END IF
    NEXT j
    IF p = 0 THEN 'Ako je provjera istinita, tj ako je jednaka 1 tada ispisuje rijec i sprema u varijablu za zapis u datoteku i inkrementira index k
        PRINT a$(i)
        b$(k) = a$(i)
        k = k + 1
    END IF
    p = 0 'Ponovno vraca provjeru na pocetno, false, stanje
NEXT i

OPEN "rijeci.dat" FOR OUTPUT AS #1
    FOR i = 1 TO k - 1
        WRITE #1, b$(i)
    NEXT i
CLOSE #1

END