Instuctiuni in limbajul de programare Pascal Instuctiuni in limbajul de programare Pascal

11.INSTRUCTIUNI ALTERNATIVE.INSTRUCTIUNI ALTERNATIVE

CAP 1:Instructiunea conditionata IFCAP 1:Instructiunea conditionata IF

Sintaxa instructiunii Sintaxa instructiunii

IF <CONDITIE> THENIF <CONDITIE> THEN <SECVENTA>;<SECVENTA>;

SAUSAU

IF <CONDITIE> THENIF <CONDITIE> THEN <SECVENTA 1><SECVENTA 1> ELSEELSE <SECVENTA 2>;<SECVENTA 2>;

PRINCIPIU DE FUNCTIONAREPRINCIPIU DE FUNCTIONARE

--daca conditia este adevarata,se executa secventa de daca conditia este adevarata,se executa secventa de instructiuni situata pe ramura lui THEN;instructiuni situata pe ramura lui THEN;-daca conditia este falsa,se executa secventa de pe -daca conditia este falsa,se executa secventa de pe ramura lui ELSE in cazul in care aceasta exista;altfel ramura lui ELSE in cazul in care aceasta exista;altfel se trece la instructiunea imediat urmatoare.se trece la instructiunea imediat urmatoare.

Observatii:Observatii:1)1)Daca secventele cuprind mai mult de 2 Daca secventele cuprind mai mult de 2

instructiuni,acestea trebuie cuprinse intre BEGINinstructiuni,acestea trebuie cuprinse intre BEGIN si END;si END;

2)2) Inainte de ELSE nu se pune ’’ Inainte de ELSE nu se pune ’’ ; ; ”.”.

Exemple de probleme in care este folosita Exemple de probleme in care este folosita instructiunea IFinstructiunea IF

1) 1) Sa se scrie un program care calculeaza f(x) pentru x numar Sa se scrie un program care calculeaza f(x) pentru x numar natural dat.natural dat.

f(x)= f(x)=

program functie;program functie;var x,f:integer;var x,f:integer;beginbeginwriteln (’x=’);readln (x);writeln (’x=’);readln (x);if x> 1 then if x> 1 then f:= 2*x –1f:= 2*x –1 elseelsef:= 1+x;f:= 1+x;writeln( ’valoarea lui f=’, f:4);writeln( ’valoarea lui f=’, f:4);readln;readln;end.end.

2)Sa se calculeze aria unui triungi pentru care se cunosc 2)Sa se calculeze aria unui triungi pentru care se cunosc lungimea bazei si a inaltimii. lungimea bazei si a inaltimii.

program arie1;program arie1; var b,h:integer;var b,h:integer; beginbegin writeln (’b=’);readln (b);writeln (’b=’);readln (b);writeln (’h=’);readln (h);writeln (’h=’);readln (h);if (b>0) and (h>0) thenif (b>0) and (h>0) thenwriteln (’aria este=’, b*h/2);writeln (’aria este=’, b*h/2);readln;readln;

{{ 2x-1 ,x<12x-1 ,x<1

1 + x ,x≥11 + x ,x≥1

end.end.3) Sa se calculeze aria unui romb ale carui diagonale se cunosc.3) Sa se calculeze aria unui romb ale carui diagonale se cunosc.

program arie2;program arie2;var d1,d2:integer;var d1,d2:integer;beginbeginwriteln (’d1=’);readln (d1);writeln (’d1=’);readln (d1);writeln (’d2=’);readln (d2);writeln (’d2=’);readln (d2);if (d1>0) and (d2>0) thenif (d1>0) and (d2>0) thenwriteln (‚aria este=’, d1*d2/2);writeln (‚aria este=’, d1*d2/2);readln;readln;end.end.

CAP2:Instructiunea de selectie CASECAP2:Instructiunea de selectie CASE

Sintaxa instructiuniiSintaxa instructiunii

CASE <SELECTOR> OF CASE <SELECTOR> OFCASE <SELECTOR> OF CASE <SELECTOR> OF <CAZ1> : <SECVENTA1>; <CAZ1>: <SECVENTA1>;<CAZ1> : <SECVENTA1>; <CAZ1>: <SECVENTA1>; <CAZ2> : <SECVENTA2>; <CAZ2>: <SECVENTA2>;<CAZ2> : <SECVENTA2>; <CAZ2>: <SECVENTA2>; . . SAUSAU . . .. .. .. .. <CAZn> : <SECVENTAn> <CAZn>: <SECVENTAn>;<CAZn> : <SECVENTAn> <CAZn>: <SECVENTAn>; ELSE END;ELSE END; <CAZ0> : <SECVENTA0><CAZ0> : <SECVENTA0> END;END; PRINCIPIU DE FUNCTIONAREPRINCIPIU DE FUNCTIONARE

-daca variabila selector ia valoarea <caz1> se -daca variabila selector ia valoarea <caz1> se executa <secv1>,daca variabila selector ia valoarea executa <secv1>,daca variabila selector ia valoarea <caz2>, se executa <secv2>...daca variabila selector<caz2>, se executa <secv2>...daca variabila selector ia valoarea <caz0>,se executa <secv0>;ia valoarea <caz0>,se executa <secv0>;

-daca variabila selector nu ia nici una dintre -daca variabila selector nu ia nici una dintre aceste valori,nu se executa instructiunea CASE si se aceste valori,nu se executa instructiunea CASE si se trece la secventa imediat urmatoare.trece la secventa imediat urmatoare.

Observatii :Observatii :

1)variabila selector poate fi de 1)variabila selector poate fi de tip:BYTE,WORD,INTEGER,CHARACTER,LONGINT sau un tiptip:BYTE,WORD,INTEGER,CHARACTER,LONGINT sau un tip definit de utilizator;definit de utilizator;2)daca contin mai mult de 2 instructiuni,secventele vor fi 2)daca contin mai mult de 2 instructiuni,secventele vor fi cuprinse intre BEGIN si END;cuprinse intre BEGIN si END;

Exemple de probleme ce se rezolva cu ajutorulExemple de probleme ce se rezolva cu ajutorul instructiunii CASEinstructiunii CASE

1)1) Se citeste de la tastatura un caracter.Sa se specifice daca acesta Se citeste de la tastatura un caracter.Sa se specifice daca acesta este litera,cifra sau un alt caracter diferit de acesta.este litera,cifra sau un alt caracter diferit de acesta.

program caracter;program caracter;var c:char;var c:char;beginbeginwriteln (’dati pe c=’);readln (c);writeln (’dati pe c=’);readln (c);Case c ofCase c of’A’..’Z’,’a’..’z’:writeln (’ati tastat litera’);’A’..’Z’,’a’..’z’:writeln (’ati tastat litera’);’0’..’9’:writeln (’ati tastat o cifra’)’0’..’9’:writeln (’ati tastat o cifra’) else else writeln (’ati tastat un alt tip de caracter’);writeln (’ati tastat un alt tip de caracter’);end;end;readln;readln;end.end.

http://www.ecursuri.ro/