Question

va roog ajutor inlocuiti instructiunea case a programului p 54 cu o secventa echivalenta de instructiuni if
Program P 54;
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.

Answer 1

in loc de case poti utiliza aceasta structura if(daca)

If c='+' then write (a+b)
     else if c='-' then write (a-b)
           else if c='*' then write(a*b)
               else if c='/' then write(a/b)
                   else write('Cod operational necunoscut');