QBASIC - najveći od tri učitana broja

dkuhar

PROGRAMSKI KOD

1. CLS
2. CLEAR
3. PRINT
4. PRINT " UCITAJ TRI BROJA A JA CU ODREDITI KOJI JE NAJVECI "
5. PRINT
6. INPUT " UCITAJ PRVI BROJ "; A
7. INPUT " UCITAJ DRUGI BROJ"; B
8. INPUT " UCITAJ TRECI BROJ"; C
9. NAJVECI = A
10. IF B > NAJVECI THEN
11. NAJVECI = B
12. IF C > NAJVECI THEN
13. NAJVECI = C
14. END IF
15. END IF
16. PRINT
17. PRINT "OD UCITANIH BROJEVA "; A; B; C, " NAJVECI JE "; NAJVECI
18. END

Potprogrami i funkcije, qbasic, provjera

dkuhar

Zadatak za ocjenu 2

Izraditi program u kojem će nova funkcija izračunati razliku dva upisana broja, a potprogram ispisati rezultat na ekran.

Zadatak za ocjenu 3

Izraditi program u kojem će nova funkcija izračunati kvadrat razlike dva upisana broja, a potprogram ispisati rezultat na lokaciji 15. redak, 35. stupac.

Zadatak za ocjenu 4

Izraditi program u kojem će potprogram nacrtati pravokutnik i jednu njegovu dijagonalu s koordinatama nasuprotnih vrhova (40, 20), (440, 200), a nova funkcija izračunati duljinu dijagonale za učitane vrijednosti stranica pravokutnika. Glavni program mora ispisati na ekran učitane vrijednosti stranica i rezultat funkcije.

Zadatak za ocjenu 5

Pomoću nove funkcije izraditi program koji će odrediti kojoj se cjelobrojnoj vrijednosti približava zbroj niza brojeva: 1, 1/2, 1/3, 1/4, 1/5, ........,  ako broj članova niza poprima vrlo velike vrijednosti, recimo 10000. 

QBASIC pravokutnik s funkcijama

dkuhar

U glavnom programu treba učitati varijable A i B, pozvati funkcije koje vrate rezultate za opseg, površinu i duljine dijagonale te rezultate ispisati na ekranu.

Važno je znati...

Funkcija vraća rezultat za razliku od potprograma koji samo obavi zadaće.

Funkciju ne pozivamo s CALL, jer je funkcija ujedno i varijabla (ime funkcije je ujedno njena varijabla)

PROGRAMSKI KOD

DECLARE FUNCTION OPSEG(A, B)
DECLARE FUNCTION POVRSINA(A, B)
DECLARE FUNCTION DIJAGO(A, B)
CLS
PRINT "PRAVOKUTNIK"
PRINT
INPUT "UPISI DULJINE STRANICE PRAVOKUTNIKA A = "; A
INPUT "UPISI DULJINU STRANICE PRAVOKUTNIKA B = "; B
O = OPSEG(A, B)
P = POVRSINA(A, B)
D = DIJAGO(A, B)
PRINT "PRAVOKUNTIK SA STRANICAMA A = ";A, " B = ";B
PRINT
PRINT "OPSEG = ";O
PRINT
PRINT "POVRSINA = ";P
PRINT
PRINT "DIJAGONALA = ";D
END

FUNCTION OPSEG(A, B)
OPSEG = 2 * (A + B)
END FUNCTION

FUNCTION POVRSINA(A, B)
POVRSINA = A * B
END FUNCTION

FUNCTION DIJAGO(A, B)
DIJAGO = (A^2 + B^2)^(1/2)
END FUNCTION