Lezioni private di turbo pascal, insegnamento progressivo allo scopo di apprendere i segreti del TURBO PASCAL (lezioni completate)

« Older   Newer »
  Share  
Vale x 95
view post Posted on 26/3/2008, 19:28




segui anche tu, è fote, si ma te non te ne fai nullaa sei del novantuno....
 
Top
Fede#91
view post Posted on 26/3/2008, 19:29




che poi senza else if e than non servono a nulla, no?

e chi ti ha detto che non me ne facio nulla :D
 
Top
kami`
view post Posted on 26/3/2008, 19:30




Ma googlare è troppo uberprocithax0r?
 
Top
Vale x 95
view post Posted on 26/3/2008, 19:31




non è vero, io al posto di else ho scritto if ann>18 then......

non infettare la discussione per favore
 
Top
Fede#91
view post Posted on 26/3/2008, 19:32




bohXD
l'ho detto che non c'ho mai capito gran che su if then else
 
Top
Vale x 95
view post Posted on 26/3/2008, 19:34




significa se(if) anni>(maggiori)18 then(allore) writeln('sei vecchio'), no!?!?
 
Top
Fede#91
view post Posted on 26/3/2008, 19:35




questo l'ho capito -.-" mica sono completamente scema.
boh... sta di fatto che non mi è mai riuscito, ogni volta faccio errori che non so quali siano
 
Top
Vale x 95
view post Posted on 26/3/2008, 19:39




allora non è il tuo forte
 
Top
Fede#91
view post Posted on 26/3/2008, 19:40




infatti no :D
 
Top
The Anonymous...
view post Posted on 26/3/2008, 19:43




CITAZIONE (Vale x 95 @ 26/3/2008, 19:34)
significa se(if) anni>(maggiori)18 then(allore) writeln('sei vecchio'), no!?!?

si in preatica l'else raccoglie tutti gli altri casi che non sono contemplati nella struttura if then...

cioè io posso anche fare cosi:

CODICE
...
if anni=18 then
writeln('Ehi.. sei appena diventato vecchio')
else
writeln('la tua età non è di 18 anni')
...


questo caso fa dire una frase solo ed esclusivamente se il numero immesso è 18.. per tutti gli altri casi dice l'altra frase.. quella che è dopo l'else..

cmq


CODICE
program prova;
uses crt;
var numero,triplo:integer;
begin
clrscr;
Writeln('Ora ti insegnerò a contare sei contento?');
writeln('Inserisci un numero intero');
readln(numero);

triplo:=numero*3;

writeln('Bene.. il triplo di quel numero è esattamente: ',triplo);
readln;
end.


l'ho compilato e funge..
se te lo devo spiegare fammi sapere...
 
Top
Vale x 95
view post Posted on 26/3/2008, 19:51




CITAZIONE
cioè io posso anche fare cosi:

CODICE
...
if anni=18 then
writeln('Ehi.. sei appena diventato vecchio')
else
writeln('la tua età non è di 18 anni')

che a me non viene

per il prog è ok
 
Top
The Anonymous...
view post Posted on 26/3/2008, 19:58




CITAZIONE (Fede#91 @ 26/3/2008, 19:29)
che poi senza else if e than non servono a nulla, no?

e chi ti ha detto che non me ne facio nulla :D

come no!!

si può fare l'istruzione if then anche senza l'else...

l'else non è obbligatorio..
CODICE
if anni=90 then
writeln('Sei un nonnetto');
...


questo codice guarda la variabile anni, se e solo se quella variabile ha valore 90 allora ti dice la frase.. altrimenti non ti dice niente.. perchè non c'è l'else che gestisce gli altri casi..

ma queste due righe funzionano tranquillamente.. anche senza l'else

CITAZIONE (Vale x 95 @ 26/3/2008, 19:51)
CITAZIONE
cioè io posso anche fare cosi:

CODICE
...
if anni=18 then
writeln('Ehi.. sei appena diventato vecchio')
else
writeln('la tua età non è di 18 anni')

che a me non viene

per il prog è ok

si certo.. questo è solo uno spezzone di programma.. da solo non va..


lo devi inserire nel programma di prima... al posto della istruzione if then else vecchia ci metti questa.....
 
Top
Vale x 95
view post Posted on 26/3/2008, 20:09




io lo volevo provare con if e then:



program prova;
uses crt;
var numero,triplo:integer;
begin
clrscr;
Writeln('Ora ti insegnerò a contare sei contento?(si/no)');
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.

ma non parte...
 
Top
The Anonymous...
view post Posted on 26/3/2008, 20:22




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....
 
Top
Vale x 95
view post Posted on 26/3/2008, 20:28




sei un genio, però non potevo saperlo...
ti ringrazio, ora ci provo
 
Top
127 replies since 24/3/2008, 16:02   496 views
  Share