Quiz
Test QBASIC 1r Trimestre
This quiz has a time limit, so it opens in the usual player.
Questions in this quiz (12)
1Amb quina funció es comença un programa?
- APRINT
- BINPUT
- CCLS
- DLOCATE X,Y
2Funció per agafar una lletra o més d'una lletra de una variable
- ASQR(kiwi)
- BMID$(kiwi, 1, 1)
- CPSET (x, y), 15
- DINT(kiwi)
3La funció [blank_start]SQR[blank_end](kiwi) calcula l'arrel quadrada de kiwi.
- ASQR
4Quina és la funció per saber el nombre de lletres del contingut d'una variable?
(Recorda, has d'escriure una variable abans d'aquesta funció:
INPUT "Escriu una paraula"; kiwi
pepe = .....(kiwi)
PRINT pepe )- ALEN(kiwi)
- BMID$(kiwi, 1, 1)
- CDIM(kiwi)
5Quines són les opcions correctes per fer un IF .... THEN .... amb moltes variables?
- AIF kiwi = 1 THEN ..... OR
IF kiwi = 2 THEN ..... OR
IF kiwi = 3 THEN ..... - BIF kiwi = 1 OR kiwi = 2 OR kiwi = 3 THEN .....
- CIF kiwi = 1 THEN GOTO 50
IF kiwi = 2 THEN GOTO 50
IF kiwi = 3 THEN GOTO 50
50 .....
- AIF kiwi = 1 THEN ..... OR
6Funcions i conceptes per dibuixar a la pantalla: (pregunta de 4 punts)
SCREEN [blank_start]12[blank_end] (tipus de screen per dibuixar)
[blank_start]PSET[blank_end] (x, y), color (dibuixa un punt a la pantalla)
[blank_start]PAINT[blank_end] (x, y), color (pinta una forma amb un color)
[blank_start]LINE[blank_end] (x, y)-(x, y), color, B (dibuixa una línia)
[blank_start]CIRCLE[blank_end] (x, y), 15, color (dibuixa un cercle)
- A2
- B6
- C3
- D12
- EPSET
- FPUNT
- GCOLOR
- HLINE
- IPSET
- JPAINT
- KDIM
- LLOCATE
- MPAINT
- NCIRCLE
- O34
- PLINE
- QCIRCLE
- RPAINT
7Per què el ordinador pensi un nombre al atzar, s'ha d'escriure el següent script:
10 CLS
20 [blank_start]RANDOMIZE[blank_end] TIMER
30 kiwi = [blank_start]INT[blank_end]([blank_start]RND[blank_end] * 7)
40 PRINT kiwi- AINT
- BRND
- CRANDOMIZE
8Hi ha un tipus de variable en la que pots guardar múltiples nombres en una sola. Ordena el programa.
[blank_start]CLS[blank_end]
[blank_start]INPUT[blank_end] "Quants alumnes hi ha"; kiwi
[blank_start]DIM[blank_end] pepe(kiwi)
FOR u = 1 TO [blank_start]kiwi[blank_end]
PRINT u, : INPUT "Alçada de l'alumne"; pepe(u)
[blank_start]NEXT[blank_end] u
suma = 0
FOR n = 1 TO kiwi
suma = [blank_start]suma[blank_end] + pepe([blank_start]n[blank_end])
NEXT n
r = suma / kiwi
CLS
PRINT "La mitja d'altura ‚s"; r- ACLS
- BINPUT
- CDIM
- Dkiwi
- ENEXT
- Fsuma
- Gn
9Programa simple per calcular àrea i perímetre d'un triangle equilàter:
CLS
[blank_start]INPUT[blank_end] "Quin és el costat del triangle equilàter"; costa
peri = [blank_start]costa[blank_end] * 3
mitadcosta = costa / 2
dinspiti = ([blank_start]costa[blank_end] ^ 2) - ([blank_start]mitadcosta[blank_end] ^ 2)
piti = [blank_start]SQR[blank_end](dinspiti)
area = (costa * [blank_start]piti[blank_end]) / 2
PRINT "L'àrea és"; area; "i el perímetre"; [blank_start]peri[blank_end]- AINPUT
- Bcosta
- Ccosta
- Dmitadcosta
- ESQR
- Fpiti
- Gperi
10Programa simple per escribir un nom "x" vegades a llocs random:
5 [blank_start]CLS[blank_end]
10 [blank_start]FOR[blank_end] t = 1 TO 1000
15 [blank_start]RANDOMIZE TIMER[blank_end]
20 x = [blank_start]INT[blank_end](RND * 77) + 1
25 RANDOMIZE TIMER
[blank_start]30[blank_end] y = INT([blank_start]RND[blank_end] * 23) + 1
35 RANDOMIZE TIMER
[blank_start]40[blank_end] o = INT(RND * 16) + 1
45 COLOR o
50 [blank_start]LOCATE[blank_end] y, x: [blank_start]PRINT[blank_end] "Pau": FOR n = 1 TO 100: [blank_start]NEXT n[blank_end]
55 [blank_start]NEXT t[blank_end]
- ACLS
- BFOR
- CRANDOMIZE TIMER
- D30
- E40
- FLOCATE
- GPRINT
- HNEXT n
- INEXT t
- JINT
- KRND
11Aquest programa pot funcionar? [FIXA'T BÉ]
10 CLS
20 PRINT "Càlcul de triangle rectangle"
30 INPUT "Escriu la base"; base
40 INPUT "Escriu la altura"; altura
50 area = (base*altura)/2
60 base2 = base * base
70 altura2 = altura * altura
80 hipo = SQR(base2 + altura2)
90 peri = hipo + base + altura
100 PRINT "L'àrea és": area: "i el perímetre": peri- ATrue
- BFalse
12[MOLT DIFÍCIL]
10 CLS
20 [blank_start]PRINT[blank_end] "Joc d'endevinar nombres entre l'1 i el 100": [blank_start]FOR[blank_end] n = 1 TO 8000: [blank_start]NEXT[blank_end] n: GOTO 30
30 CLS
40 [blank_start]RANDOMIZE[blank_end] TIMER
50 num = INT(RND * 100) + 1
60 [blank_start]CLS[blank_end]
70 COLOR 7: INPUT "Quin nombre ‚s"; numply
80 IF [blank_start]numply[blank_end] = num THEN COLOR 20: PRINT "[blank_start]Has guanyat![blank_end]": FOR n = 1 TO 6000: NEXT n: GOTO 110
90 IF numply < [blank_start]num[blank_end] THEN [blank_start]COLOR[blank_end] 1: PRINT "El nombre secret és més gran": GOTO 60
100 IF numply [blank_start]>[blank_end] num THEN COLOR 1: PRINT "El nombre secret és més petit": [blank_start]GOTO[blank_end] 60
110 [blank_start]END[blank_end]- AFOR
- BNEXT
- CPRINT
- DRANDOMIZE
- Enumply
- Fnum
- G>
- HCOLOR
- IEND
- JGOTO
- KHas guanyat!
- LCLS
Information
- Description
- Test sobre QBasic 1r Trimestre, creado por Pau Colomé el 21/11/2016 con GOCONQR.
- Author
- Pau Colomé
- Language
- Español
- Views
- 88
- Tags
- Rating
- No ratings yet Rate this quiz