Instructiunea de decizie IF

Instructiunea de decizie IF

   Sa consideram problema determinarii perimetrului unui triunghi cu lungimile laturilor a, b si c. Calculul perimetrului este simplu, dar se pune intrebarea: intotdeauna trei numere reale pot forma laturile unui triunghi? Desigur ca nu; in primul rand ele trebuie sa fie strict pozitive, in al doilea rand trebuie ca fiecare din ele sa fie strict mai mari decat suma celorlalte doua. Acest lucru face necesara instructiunea IF.

   Sintaxa
if cond then
   instr1
else
   instr2

   Ramura cu else este optionala.

   cond este o conditie (expresie booleana), iar cond1 si cond2 sunt instructiuni.

   Sematica: se determina ce valoare de adevar are expresia booleana cond. Daca ea este True, atunci se executa instructiunea instr1, dupa care se trece la instructiunea ce ar urma dupa intrega structura IF. Cand cond este False se executa, in cazul in care exista, instr2.

   Exemple
if (a > 0) and (b > 0) and (c > 0) then
   if (a < b + c) and (b < a + c) and (c < a + b) then
      WriteLn('Formeaza triunghi')
   else Writeln('O latura e prea mare!')
else WriteLn('Laturi negative!');

program EcuatiaDeGradul_1;
var a,b,x: Real;
begin
   WriteLn('Rezolvam ec. de gradul I ax+b=0',Chr(7));
   Write('Dati a = '); ReadLn(a);
   Write('Dati b = '); ReadLn(b);
   if a=0 then
   if b=0 then WriteLn('Nedeterminare')
   else WriteLn('Imposibilitate')
   else
   begin
      x:=-b/a;
      WriteLn('Solutia este: x= ',x:7:3)
   end;
   ReadLn
end.