Мне нужно довести мою прогу до ума. По идее после ввода чисел в переменные должно происходить вычисление по формуле но иногда прога отваливатся изза ошибок. Вот я и не могу понять почему и можно ли сделать так чтобы при ошибке прога перезапускалась. Мне кажется все дело в генераторе. Возможно с значениями которые он генерирует не всегда возможно вычисление. Кроме того есть проблемы с выводом. Какие параметры вывода лучше поставить? Имеется ввиду чтоб выглядело приемлемо а то 3.00 при отображении целого числа както дико.
uses Crt;
var x,y,z,q,h,e:real;
begin
Writeln('Для выполнения программы необходимы 3 произвольных числа для переменных X,Y,Z');
Writeln('Нажмите 1 для ввода данных, нажмите 2 для генерации произвольных чисел.'); //как зделать так чтобы после выбора не нужно блыо нажимать ентерб чтоб сразу по нажатию на клавишу шло по сценарию
read(q);
Clrscr;
if q=1 then
begin
writeln('Введите X');
readln(x);
Clrscr;
writeln('Введите Y');
readln(y);
Clrscr;
writeln('Введите Z');
readln(z);
Clrscr;
Writeln('Установлено:');
Writeln(' X=',x:8:3);
Write(' Y=',y:8:3);
Write(' Z=',z:8:3);
End
else
begin
randomize;
x:= random (20);
y:=random(20);
z:=random(20);
Clrscr;
Write('Установлено:');
Write(' X=',x:8:3);
Write(' Y=',y:8:3);
Writeln(' Z=',z:8:3);
end;
Writeln('Вычисляю значение');
e:=exp(3*ln(cos(x)-sin(y)))/sqrt(sin(x)/cos(x))+exp(2*ln(ln(x+y+z))); //правильно ли описан тут корень из tg(x) - >sqrt(sin(x)/cos(x))
Writeln('');
Writeln('Ответ: ',e:8:3);
Writeln('');
h:=0;
if(x>-1)and(x<15) then h:=(5*x)-(3*y);
if(x>15) then h:=x+2*abs(y);
if(x=15) or (x<=-1) then h:=y*2;
Writeln('Значение h:=',h:8:3);
readln;
End.