The Anonymous... |
|
| urcaaa e lo credo che non parte ci sono un po di errorini... allora.. partiamo da qua: tu hai scritto: CITAZIONE program prova; uses crt; var numero,triplo:integer; begin clrscr; Writeln('Ora ti insegnerò a contare sei contento?(si/no)'); invece devi scrivere: CODICE program prova; uses crt; var numero,triplo:integer; risposta:string; begin clrscr; Writeln('Ora ti insegnerò a contare sei contento?(si/no)'); readln(risposta); poi.. tu hai scritto: CITAZIONE if risposta=si then writeln('Bravo! Inserisci un numero intero'); readln(numero); triplo:=numero*3; writeln('Bene.. il triplo di quel numero è esattamente: ',triplo); readln; if risposta=no then writeln('beh, allora vattene a casa, somaro!!!') end. invece è: CODICE if risposta='si' then begin writeln('Bravo! Inserisci un numero intero'); readln(numero); triplo:=numero*3; writeln('Bene.. il triplo di quel numero è esattamente: ',triplo); readln; end else if risposta='no' then begin writeln('beh, allora vattene a casa, somaro!!!'); readln; end else writeln('risposta non valida...'); readln; end. è stata aggiunta una nuova variabile di tipo non più integer ma string.. cioè che di tipo parola.. e nell'istruzione if then else è sempre messa tra apice.. le stringhe vanno sempre messe tra apici....
|
| |