REM PRVI ZADATAK GODINE.BAS

CLS

prestupna = 0

INPUT "Od koje godine da počnem"; gp

god = 1999

FOR n = gp TO god STEP 1

IF (n MOD 4 = 0) AND (n MOD 100 <> 0) OR (n MOD 400 = 0) THEN GOSUB 100

NEXT n

PRINT "Broj prestupnih je"; prestupna

PRINT "Broj neparnih je"; neparna

END

100 REM prestupne godine

prestupna = prestupna + 1

REM ODVAJANJE ZNAMENKI

TISUCE = INT(n / 1000)

STOTINE = INT((n MOD 1000) / 100)

DESETICE = INT((n - (TISUCE * 1000 + STOTINE * 100)) / 10)

JEDINICE = ((n - (TISUCE * 1000 + STOTINE * 100)) MOD 10)

SUMA = TISUCE + STOTINE + DESETICE + JEDINICE

IF (SUMA / 2) > INT(SUMA / 2) THEN

neparna = neparna + 1

END IF

RETURN

 

REM DRUGI ZADATAK NIZ.BAS

CLS

DIM NIZ(1000): DIM DULJINA(1000)

BROJAC = 0

BR = 1

DO

INPUT N

BROJAC = BROJAC + 1

NIZ(BROJAC) = N

LOOP UNTIL N = 0

PRINT "NIZ=";

FOR M = 1 TO BROJAC

PRINT NIZ(M);

NEXT M

PRINT

REM DULJINA NIZA

X = 1

FOR K = X TO BROJAC

IF (NIZ(K) < NIZ(K + 1)) OR (NIZ(K) = NIZ(K + 1)) THEN

BR = BR + 1

ELSE DULJINA(X) = BR

X = X + 1

BR = 1

END IF

NEXT K

REM NAJDULJI PODNIZ

MAX = DULJINA(1)

FOR G = 1 TO BROJAC

IF DULJINA(G) > MAX THEN MAX = DULJINA(G)

NEXT G

PRINT "NAJDUŽI JE IMAO: "; MAX

END

REM TRECI ZADATAK MEMO.BAS

CLS

DIM NIZ1(6): DIM NIZ2(6)

PRINT "PRVI NIZ"

FOR N = 1 TO 6

INPUT NIZ1(N)

NEXT N

PRINT " DRUGI NIZ"

FOR M = 1 TO 6

INPUT NIZ2(M)

NEXT M

REM ISPIS NIZOVA

PRINT "NIZ1=";

FOR L = 1 TO 6

PRINT NIZ1(L);

NEXT L

PRINT

PRINT "NIZ2=";

FOR L = 1 TO 6

PRINT NIZ2(L);

NEXT L

PRINT

REM USPOREDBA

FOR S = 1 TO 6

IF NIZ1(S) = NIZ2(S) THEN CRNI = CRNI + 1: NIZ2(S) = 99

NEXT S

FOR T = 1 TO 6

FOR U = 1 TO 6

IF NIZ1(T) = NIZ2(U) THEN

NIZ2(U) = 99

BIJELI = BIJELI + 1

END IF

NEXT U, T

PRINT "CRNI="; CRNI

PRINT "BIJELI="; BIJELI

END

 

REM CETVRTI ZADATAK ZAMJENA.BAS

DIM rijec$(20, 255)

CLS

brr = 10

INPUT "Unesi rečenicu"; recenica$

recenica$ = LCASE$(recenica$)

recenica$ = recenica$ + " "

PRINT " recenica="; recenica$

PRINT "__________________________________________________"

REM podjela na riječi

FOR n = 1 TO LEN(recenica$)

slovo$ = MID$(recenica$, n, 1)

IF slovo$ <> " " THEN zbroj$ = zbroj$ + slovo$

IF MID$(recenica$, n + 1, 1) = " " THEN brc = brc + 1: rijec$(brc, 255) = zbroj$: zbroj$ = ""

NEXT n

REM zadnje slovo

recenica$ = LEFT$(recenica$, LEN(recenica$) - 1)

REM PRINT recenica$

FOR n = LEN(recenica$) - 1 TO 1 STEP -1

zadnje$ = MID$(recenica$, n, 1)

IF zadnje$ <> "a" OR zadnje$ <> "e" OR zadnje$ <> "i" OR zadnje$ <> "o" OR zadnje$ <> "u" THEN

zadnjesl$ = UCASE$(zadnje$): GOTO 100

END IF

NEXT n

100 REM zamjena

FOR h = 1 TO brr

zamj$ = rijec$(h, 255)

samogl$ = LEFT$(zamj$, 1)

SELECT CASE samogl$

CASE "a": zamj$ = zadnjesl$ + RIGHT$(zamj$, LEN(zamj$) - 1)

CASE "e": zamj$ = zadnjesl$ + RIGHT$(zamj$, LEN(zamj$) - 1)

CASE "i": zamj$ = zadnjesl$ + RIGHT$(zamj$, LEN(zamj$) - 1)

CASE "o": zamj$ = zadnjesl$ + RIGHT$(zamj$, LEN(zamj$) - 1)

CASE "u": zamj$ = zadnjesl$ + RIGHT$(zamj$, LEN(zamj$) - 1)

END SELECT

rijec$(h, 255) = zamj$

NEXT h

REM samoglasnici

FOR n = 1 TO brr

promjena$ = rijec$(n, 255)

FOR k = 1 TO LEN(promjena$)

slovo$ = MID$(promjena$, k, 1)

IF k > 1 THEN prijesl$ = UCASE$(MID$(promjena$, k - 1, 1))

REM ostala slova

IF slovo$ = "a" THEN MID$(promjena$, k, 1) = prijesl$

IF slovo$ = "e" THEN MID$(promjena$, k, 1) = prijesl$

IF slovo$ = "i" THEN MID$(promjena$, k, 1) = prijesl$

IF slovo$ = "o" THEN MID$(promjena$, k, 1) = prijesl$

IF slovo$ = "u" THEN MID$(promjena$, k, 1) = prijesl$

NEXT k

rijec$(n, 255) = promjena$

NEXT n

PRINT "Rijeci:"

FOR j = 1 TO brr

IF LEN(rijec$(j, 255)) > 0 THEN PRINT rijec$(j, 255)

NEXT j

REM sortiranje

FOR z = 1 TO brr

FOR u = z + 1 TO brr

IF rijec$(z, 255) > rijec$(u, 255) THEN

spremnik$ = rijec$(z, 255)

rijec$(z, 255) = rijec$(u, 255)

rijec$(u, 255) = spremnik$

END IF

NEXT u, z

PRINT "Sortirane rijeci:"

FOR g = 1 TO brr

IF LEN(rijec$(g, 255)) > 0 THEN PRINT rijec$(g, 255)

NEXT g

END