|
| Home | Nostri Programmi | Programmi | Manuali | Crackz | Mp3 | Giochi | Buonumore | Links | Ricerca | Shout! | E-m@il |
IF A<0 THEN ... se a � minore di 0 allora... IF A=0 ... se A � uguale a 0 allora... IF A>0 ... se A � maggiore di 0 allora... IF A<=0 ... se A � minore uguale di 0 allora... IF A>=0 ... se A � maggiore uguale di 0 allora... IF A<>0 ... se A � diverso da 0 allora... Ovviamente A deve essere una variabile inizializzata e deve contenere dei valori. Notate tra le altre cose che c'� A=0 e non A:=0. Perch�? Perch� nel secondo caso si obbligherebbe A ad assumere il valore di 0 e non lo si confonterebbe con esso come invece � utile fare. In pi� l'IF si pu� utilizzare anche cos�: IF A<0 THEN BEGIN ... OPERAZIONI ... END; Si possono quindi aprire cicli di operazioni da fare nel caso in cui la condizione posta con if si verifichi. Esiste collegato ad IF il comando ELSE che vuol dire "altrimenti". IF A<0 THEN...(quando A quindi vale -1, -2, -56, -3445, ecc.) operazioni ELSE... (quando A vale 2,65,3556,...) operazioni Esempio pratico: PROGRAM MAGGIORE_O_NO; VAR A,B:INTEGER; BEGIN WRITELN('Scrivi due numeri separati da uno spazio: '); READLN(A,B); IF A>B THEN WRITELN ('IL NUMERO ',A,' E'' MAGGIORE DI ',B) ELSE WRITELN('IL NUMERO ',A,' E'' MINORE DI ',B); END. Cosa fa questo programma? Chiede 2 numeri, li confronta e valuta quale dei due � maggiore rispetto all'altro. Da notare che non c'� ";" dopo la riga con l'IF, perch�, se ci fosse stato, ELSE non avrebbe funzionato. E quindi: IF A>0 THEN BEGIN ...operazioni... END ELSE ...operazioni... Notate che dopo END non c'� ";", per lo stesso motivo di prima. |
|
|||||||||||||||||||||||||||||||||
|
Webmaster: Xagim ([email protected]) Questo sito non è a scopo di lucro, nè vuole violare i diritti di copyright. Tutto il materiale contenuto in EnPlateia è disponibile gratuitamente su Internet. Noi lo abbiamo solo raccolto, classificato e rimesso sulla Rete, a disposizione di altri utenti... |