Помощь - Поиск - Пользователи - Календарь
Полная версия: параметрические задачи
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
polic
program c3;
var A,B,X:real;
begin
writeln ('vvedite A,B');
readln (A,B);
IF (A*A-A*B+B*B)<>0 then X:=power(( A*A-A*B+B*B)/(A*A-A*B+B*B),(1/4));
IF (A*A-A*B+B*B)=0 then writeln ('oshibka:');
writeln ('x=',x:5:2);
readln (x);
end.


как сделать чтоб если (A*A-A*B+B*B) обращалось в ноль то программа останавливалась а не писала x:=0
volvo
IF (A*A-A*B+B*B)=0 then begin writeln ('oshibka:'); Halt; End;
polic
good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.