Как сделать так чтобы если на ноль было деление не выодился Результат

@S.P.Q.R.[tm] · Регистрация: 10.10.2010

Студворк — интернет-сервис помощи студентам

Pascal

var a,d,c:real;
b:char;
procedure kakulyator;
begin
case b of
'+':d:=a+c;
'-':d:=a-c;
'*':d:=a*c;
'/': if c=0 then writeln ('Деление на 0') else d:=a/c;
end;
writeln ('Результат',#32,c);
end;
begin
writeln ('Введите первое число');
readln (a);
writeln ('Введите знак');
readln (b);
writeln ('Введите второе число');
readln (c);
case b of
'+','-','*','/':kakulyator else writeln ('Введен не правильный знак'); end;
readln
end.

Как сделать так чтобы если на ноль было деление не выодился Результат, а то у меня получается так:
деление на 0 -> результат 0;

@kofee"k · 23.03.2011, 19:51

Pascal

var a,d,c:real;
b:char;
procedure kakulyator;
begin
case b of
'+':d:=a+c;
'-':d:=a-c;
'*':d:=a*c;
'/': begin if c=0 then writeln ('Деление на 0'); exit; end else d:=a/c;
end;
writeln ('Результат',#32,c);
end;
begin
writeln ('Введите первое число');
readln (a);
writeln ('Введите знак');
readln (b);
writeln ('Введите второе число');
readln (c);
case b of
'+','-','*','/':kakulyator else writeln ('Введен не правильный знак'); end;
readln
end.

Опции темы