Scribd
Încărcați
71 vizualizări4 pagini

Instructiunea CASE Pascal

Documentul prezintă exemple de programe Pascal care utilizează instrucțiunea case. Programul P53 convertește cifre romane în numere zecimale, P54 simulează un calculator de buzunar folosind case pentru operații matematice, iar P55 schimbă culoarea unui semafor folosind tipul enumerat Semnal.

Încărcat de

Valentish
Drepturi de autor
© All Rights Reserved
Respectăm cu strictețe drepturile privind conținutul. Dacă suspectați că acesta este conținutul dumneavoastră, reclamați-l aici.
Formate disponibile
Descărcați ca PDF, TXT sau citiți online pe Scribd
71 vizualizări4 pagini

Instructiunea CASE Pascal

Documentul prezintă exemple de programe Pascal care utilizează instrucțiunea case. Programul P53 convertește cifre romane în numere zecimale, P54 simulează un calculator de buzunar folosind case pentru operații matematice, iar P55 schimbă culoarea unui semafor folosind tipul enumerat Semnal.

Încărcat de

Valentish
Drepturi de autor
© All Rights Reserved
Respectăm cu strictețe drepturile privind conținutul. Dacă suspectați că acesta este conținutul dumneavoastră, reclamați-l aici.
Formate disponibile
Descărcați ca PDF, TXT sau citiți online pe Scribd

begin

write(’x=’);
readln(x);
if x>4 then y:=x+6;
else y:=x–3;
writeln(’y=’, y); readln;
end.

case
case

case case of ; ; end


, :

case

var i : integer; c : char; a, b, y : real;


case i of
0, 2, 4, 6, 8 : writeln(’Cifra para’);
1, 3, 5, 7, 9 : writeln(’Cifra impara’);
end;

case c of
’+’ : y:=a+b;
’–’ : y:=a–b;
’*’ : y:=a*b;
’/’ : y:=a/b;
end.
case

case

Program P53;
{ Conversia cifrelor romane }
var i : integer; c : char;
begin
i:=0;
writeln(’Introduceti una din cifrele’);
writeln(’romane I, V, X, L, C, D, M’);
readln(c);
case c of
’I’ : i:=1;
’V’ : i:=5;
’X’ : i:=10;
’L’ : i:=50;
’C’ : i:=100;
’D’ : i:=500;
’M’ : i:=1000;
end;
if i=0 then writeln(c, ’ – nu este o cifra romana’)
else writeln(i);
readln;
end.

case
else otherwise

..
Program P54;
{ Simularea unui calculator de buzunar }
var a, b : real;
c : char;
begin
write(’a=’); readln(a);
write(’b=’); readln(b);
write(’Cod operatie ’); readln(c);
case c of
’+’ : writeln(’a+b=’, a+b);
’–’ : writeln(’a–b=’, a–b);
’*’ : writeln(’a*b=’, a*b);
’/’ : writeln(’a/b=’, a/b);
else writeln(’Cod operatie necunoscut’);
end;
readln;
end.

case P53 P54


 case

 case P54
if
 case

 P55

Program P55;
type Semnal=(Rosu, Galben, Verde);
var s : Semnal;
begin
s:=Verde;
s:=pred(s);
case s of
Rosu : writeln(’STOP’);
Galben : writeln(’ATENTIE’);
Verde : writeln(’START’);
end;
readln;
end.

Program P56;
{ Eroare }
var x : real;
begin
writeln(’x=’); readln(x);
case x of
0,2,4,6,8 : writeln(’Cifra para’);
1,3,5,7,9 : writeln(’Cifra impara’);
end;
readln;
end.

Program P57;
{ Eroare }
var i : 1..4;
begin
write(’i=’); readln(i);
case i of
1 : writeln(’unu’);
2 : writeln(’doi’);
3 : writeln(’trei’);
4 : writeln(’patru’);
5 : writeln(’cinci’);
end;
readln;
end.

Program P58;
{ Eroare }
type Semnal = (Rosu, Galben, Verde);
Culoare = (Albastru, Portocaliu);
var s : Semnal;
c : Culoare;
begin
{ ... }
case s of
Rosu : writeln(’STOP’);
Galben : writeln(’ATENTIE’);
Verde : writeln(’START’);
Albastru : writeln(’PAUZA’);
end;
{ ... }
end.

S-ar putea să vă placă și