Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ параметрические задачи
Автор: polic 24.12.2006 0:28
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 24.12.2006 0:33
IF (A*A-A*B+B*B)=0 then begin writeln ('oshibka:'); Halt; End;
Автор: polic 24.12.2006 0:36
