www.techinf1.fora.pl

isar

znamy juz if else, ale czasem lepiej to zastapic jednym 'CASE"

budowa Case:

CASE zmienna OF
i zakanczamy ja slowem
end; (koniecznie ze srednikiem)

CHAR-char jest to znak: + - * / . , itp.

a wiec zacznijmy:

PROGRAM
var znak : char;
a , b : real ;

BEGIN
writeln('podaj pierwsza liczbe');
readln(a);
writeln('podaj druga liczbe');
readln(b);
writeln('podaj jakie dzialanie chcesz wykonac?wpisujac znak: - * / +');
readln(znak);

CASE znak of
'+' : writeln('a+b= ' ,a+b);
'-' : writeln('a-b= ' ,a-b);
'*' : writeln('a*b= ' ,a*b);
'/' : writeln('a/b= ' ,a/b);
end;
readln;
end.

znacznie szybciej napiszesz takie cos "CASE'm" niz "if'em" Smile

jesli chcial/a bys uzyc IF-else wygladalo by to tak:

if znak='+' then writeln('a+b= ' ,a+b)
else
if znak='-': then writeln('a-b= ' ,a-b)
else
....

i tak dla kazdego znaku, a wiec case jest latwiejszy w tym przypadku.