Test QBASIC 1r Trimestre

Amb quina funció es comença un programa?

Funció per agafar una lletra o més d'una lletra de una variable

La funció [blank_start]SQR[blank_end](kiwi) calcula l'arrel quadrada de kiwi.

Quina é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 )

Quines són les opcions correctes per fer un IF .... THEN .... amb moltes variables?

Funcions 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)

Per 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

Hi 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

Programa 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]

Programa 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]

Aquest 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

[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]