Scrigroup - Documente si articole

Username / Parola inexistente      

Home Documente Upload Resurse Alte limbi doc  
AccessAdobe photoshopAlgoritmiAutocadBaze de dateCC sharp
CalculatoareCorel drawDot netExcelFox proFrontpageHardware
HtmlInternetJavaLinuxMatlabMs dosPascal
PhpPower pointRetele calculatoareSqlTutorialsWebdesignWindows
WordXml


Instructiunea de decizie IF

pascal



+ Font mai mare | - Font mai mic



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.





Politica de confidentialitate | Termeni si conditii de utilizare



DISTRIBUIE DOCUMENTUL

Comentarii


Vizualizari: 1562
Importanta: rank

Comenteaza documentul:

Te rugam sa te autentifici sau sa iti faci cont pentru a putea comenta

Creaza cont nou

Termeni si conditii de utilizare | Contact
© SCRIGROUP 2024 . All rights reserved