qbasic votazione

[[_Kilckk_]]

Mi dite per piacere perchè non funziona???

CLS
FOR I = 1 TO 3
INPUT "INSERISCI NOME", A$
IF A$ = "tizio" OR A$ = "caio" OR A$ = "amico" THEN A$ = A$ + 1
ELSE N = N + 1
NEXT I
PRINT tizio, caio, amico,

mi da errore su A$=A$ + 1


Grazie per il vostro aiuto.

[LeleFT]

A$ è una variabile ti tipo STRINGA... questo significa che non puoi applicare un operatore di somma ad essa (il QBasic non effettua overload di operatori, come il C++).

Cos'è che dovrebbe fare questo programma che stamperà sempre e soltanto 3 zeri, dato che le variabili tizio, caio e amico non sono ne dichiarate ne valorizzate?


Ciao.

[[_Kilckk_]]

è un sistema di votazione sono 12 persone votanti e 3 canditati, alla fine dovrebbe stampare sullo schermo i 3 canditati in ordine di maggioranza di voti... spero di essere stato chiaro


Grazie per il tuo aiuto.

[Johnny_Depp]

la sintassi è simile al VB...
meglio postarlo nel subforum

sposto là

[yyzyyz]

Originariamente inviato da [_Kilckk_]
Mi dite per piacere perchè non funziona???

CLS
FOR I = 1 TO 3
INPUT "INSERISCI NOME", A$
IF A$ = "tizio" OR A$ = "caio" OR A$ = "amico" THEN A$ = A$ + 1
ELSE N = N + 1
NEXT I
PRINT tizio, caio, amico,

mi da errore su A$=A$ + 1
Grazie per il vostro aiuto.

tradotto in vb6 viene cosi' (se nn ho capito male)

Dim az As String
Dim ntizio, ncaio, namico As Integer
Private Sub Command1_Click()
Cls
ntizio = 0
ncaio = 0
namico = 0
For I = 1 To 12
az = InputBox("INSERISCI NOME candidato")
If az = "tizio" Then ntizio = ntizio + 1
If az = "caio" Then ncaio = ncaio + 1
If az = "amico" Then namico = namico + 1
Next I
Text1.Text = "tizio:" & ntizio & "caio:" & ncaio & "amico:" & namico
End Sub

vedi se riesci ad adattarlo in qbasic (quanti ricordi )
text1.text puo essere sostituito dal print (qbasic)
la sintassi az = InputBox("INSERISCI NOME candidato")
puoi cambiarla in INPUT "INSERISCI NOME", az (qbasic)

[LeleFT]

QBasic è un po' diverso da VB, comunque...

tizio = 0;
caio = 0;
amico = 0;

FOR I=1 TO 12
   INPUT "Inserisci nome", a$
   IF (a$ = "Tizio") THEN tizio = tizio + 1
   IF (a$ = "Caio") THEN caio = caio + 1
   IF (a$ = "Amico") THEN amico = amico + 1
NEXT

PRINT "Risultati:"
PRINT "Tizio: "; tizio
PRINT "Caio": "; caio
PRINT "Amico: "; amico

Così dovrebbe andare...


Ciao.

[[_Kilckk_]]

ecco il programma finale

CLS
PRINT "I CANDIDATI SONO: TIZIO, CAIO, AMICO"
PRINT ""
FOR I = 1 TO 12 STEP 1
INPUT "INSERIRE NOME CANDIDATO: ", A$
IF A$ = "TIZIO" THEN
M = M + 1
ELSEIF A$ = "CAIO" THEN
L = L + 1
ELSEIF A$ = "AMICO" THEN
V = V + 1
ELSE N = N + 1
END IF
NEXT I
IF M >= L AND L >= V THEN PRINT "TIZIO VOTI: "; M, "CAIO VOTI: "; L, "AMICO VOTI: "; V
IF M >= L AND L < V AND M > V THEN PRINT "TIZIO VOTI: "; M, "AMICO VOTI: "; V, "CAIO VOTI: "; L
IF L >= M AND M >= V THEN PRINT "CAIO VOTI: "; L, "TIZIO VOTI: "; M, "AMICO VOTI: "; V
IF L >= M AND M < V AND L > V THEN PRINT "CAIO VOTI: "; L, "AMICO VOTI: "; V, "TIZIO"; M
IF V >= L AND L >= M THEN PRINT "AMICO VOTI: "; V, "CAIO VOTI: "; L, "TIZIO VOTI: "; M
IF V >= L AND L < M AND V > M THEN PRINT "AMICO VOTI: "; V, "TIZIO VOTI: "; M, "CAIO VOTI: "; L
PRINT "VOTI NULLI: "; N

anche se il mio scopo era quello di farlo più corto possibile


Grazie per il vostro aiuto.