Подскажите по pascal'ю

[Devil]

Кто знает pascal, подскажите плиз,как "передбачити у програмi виведення повiдомлення на екран для випадку коли задача немаэ рiшення"
Точнее какое условие нужно ввести для оператора if?

Вот сам пример:

Код: Выделить всё

program pr_1_14;
var x,y,a,b,z:real;
begin
cls;
write('a=');
read(a);
write('b=');
read(b);
x:=SQR(a+b);
y:=SQR(a-b);
z:=(x*sin(30)+y*cos(60))/SQRT(x*y)+ln(120);
if ????????? then write('decisions do not exist')
else write('z=',z:7:3);
end.

[Ziben]

Сори, я уже слишком давно учил математику, возможно что-то забыл... а в этой формуле может не быть решения?

[Devil]

Если ввести одинаковые числа (a=b) - будет выдавать ошибку (Ошибка: вещественное деление на 0)
Проверено опытным путём

[Ziben]

да, старый стал, деления на ноль не предусмотрел.... тогда твой алгорит в корне не верен: тебе нужно не ПОТОМ проверять существует или нет решение, а сначала проверить нет ли деления на ноль, а потом уже делить (если таки нет нуля) и выводить результат.... ща попробую вспомнить паскаль и написать пару строк... если что - напишу на ПХП или перле - переведешь

[Ziben]

Кусок кода:

Код: Выделить всё

z:=(x*sin(30)+y*cos(60))/SQRT(x*y)+ln(120);
if ????????? then write('decisions do not exist')
else write('z=',z:7:3);

меняем на

Код: Выделить всё

if SQRT(x*y) = 0 then write('decisions do not exist') else z:=(x*sin(30)+y*cos(60))/SQRT(x*y)+ln(120); write('z=',z:7:3);


сори, я уже не помню синтаксис паскаля - больше десяти лет не писал на нем... но суть где-то такая.

[Devil]

Оу, спасибо большое

[Devil]

Правда теперь выдаёт ответ:

Код: Выделить всё

a=6
b=6
decisions do not existz=  0.000

может надо что-то типа stop?

[Ziben]

ну ясно дело.... но я бы не стоп искал

я напишу на ПХП, а ты по аналогии пробуй в паскале

if (условие) {действие1; действие 2;} else {действие3; действие 4;}

тогда у тебя не будет той ерунды, что получилась

[Ziben]

вспомнил!

begin
....
end

Код: Выделить всё

if SQRT(x*y) = 0 then write('decisions do not exist')
   else
      begin
         z:=(x*sin(30)+y*cos(60))/SQRT(x*y)+ln(120);
         write('z=',z:7:3);
      end;


где-то так

[Devil]

Большое тебе спасибо!