предусмотреть невозможность деления на 0

[Alexandra1991]

Задание было такое :
Вывести на экран таблицу 1/sin(x),1/cos(x),1/(sin(x)·cos(x)) (по горизонтали), при изменении аргумента от 0° к 180° с шагом 10° (выведение по вертикали). В программе предусмотреть невозможность деления на 0.

Вопрос: как предусмотреть невозможность деления на ноль?

Program 
uses crt;
var i,k:integer;
a,b:real;
begin
clrscr;
writeln(' x 1/sin(x) 1/cos(x) 1/(sin(x)*cos(x))');
writeln;
a:=sin(k*pi/180);
b:=cos(k*pi/180);
for i:=0 to 180 do begin 
k:=0+i*(10); 
a:=sin(k*pi/180);
b:=cos(k*pi/180);
if k>180 then break;
if (a=0) or (b=0) then continue; 
writeln(k:6, 1/a:12:4, 1/b:14:4,1/a*b:16:4);
end;
readln;
end.

[fbus]

как насчет try?

[Alexandra1991]

можете обьястнить как его использовать?

[Utkin]

try     
   //  Здесь то, где возможна исключительная ситуация
   // В Вашем случае это формула с делением
except
   //  Здесь Ваши действия в случае возникновения ошибки
   // Например, можно сообщить пользователю, что параметры введены неверно 
end;

Второй вариант это разбить формулу на части. В Вашем случае деление на нуль возникнет в случае когда синус х или косинус х =0. Но ведь это же можно отследить заранее. Для этого нужно проверить Ваши а и b, то есть если а=0 или b=0, то будет деление на нуль.
В принципе можно попытаться исправить это:

if (a=0) or (b=0) then continue;

А вообще если внимательно смотреть алгоритм, то у Вас и так это предусмотрено. Continue начианет следующую итерацию цикла, поэтому само деление и не происходит.