Лабораторная №6. Вариант №8.

Program Lab6_8; uses crt;

var x,y,z,m:real;
    i,j:integer; {Счетчики циклов}
    error:boolean; {Fatal error при вычислении}

Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Randomize;
for i:=1 to 6 do
    Begin clrscr;
    Write('--------------------------------------------------------------------------------');
    M:=Random(10)-5.; {Генерируем псевдослучайное число}
    Writeln(' Если M=',M:5:2,', то...');
    X:=(-1); {Начальное значение X}

    for j:=1 to 8 do
        Begin
        if (Sin(X/2)/Cos(X/2)) <> 0 then
                                        Begin
                            Error:=False; {Ошибки нет}
                    Y:=Ln(Abs(Sin(X/2)/Cos(X/2)))+Sqr(M); {Вычисляем Y}
                    end
                    else Error:=True; {Есть ошибка Ln(0) = Fatal error}

        if ((Error=True) or (((Sqr(X)*X)/Y) < 0)) then Writeln(' j= ',j:2,' Решения нет!')
                                          else
                              Begin
                              Z:=Sqrt((Sqr(X)*X)/Y); {Вычисляем Z}
                              Writeln(' j= ',j:2,' ',Z:8:5);
                              end;

        X:=X+0.5; {Получаем очередное значение X}
        end;
    Readkey;
    end;

Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.