Con le istruzioni if, then, else, una scelta al programma dandogli una condizione. La struttura del programma si dividerà in due sezioni, una nel caso la condizione sia vera, l' altra nel caso sia falsa.

If (se) indica la condizione, then (allora) le istruzioni da eseguire nel caso la condizione sia vera, else (altrimenti) indica invece le istruzioni da eseguire nel caso opposto.

Esempio:

program pos_neg;
uses crt;
var a:integer;
begin
clrscr;
writeln('scrivi a =');
read (a);
if a>0
then writeln (a,' è un numero positivo.')
else writeln (a,' è un numero negativo.');
readln;
readln;
end.

Abbiamo dato una condizione che diventerà vera solo se "a" sarà maggiore di 0. Durante l' istruzione if non bisogna mettere il ";" alla fine della linea ma solo al comando else o al then se il primo non è presente. Così il programma funziona, ma se assegnassimo alla variabile "a" il valore 0 ? Il programma darà un risultato sbagliato visto che 0 non è nè positivo nè negativo. Dobbiamo quindi usare quella che si chiama if nidificata ovvero dentro un' altra if. Correggiamo ora il programma:

program pos_neg;
uses crt;
var a :integer;
begin
clrscr;
writeln('scrivi a =');
read (a);
if a=0
then writeln ('0 non è nè positivo nè negativo.')
else begin
if a>0
then writeln (a,' è un numero positivo.')
else writeln (a,' è un numero negativo.');
end;
readln;
readln;
end.

Per fare la if nidificata dobbiamo inserire il comando begin e poi procedere normalmente ricordando che bisognerà aggiungere un "end;" alla fine della if nidificata. Si possono mettere più if nidificate basta che inizino con un proprio begin e terminino con altrettanti "end;".

Errori di punteggiatura e in fase di esecuzione

TrackBack URI for this entry