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

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"
Лабораторная работа №6. Вариант №19.
Выполнил: ст.гр. МЛ-112, Фомин Александр
г.Новосибирск, 2012г.
}

Program Lab6_19; uses crt;

var x,y,z,c:real;
    i,j:integer;

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

Write('--------------------------------------------------------------------------------');
Y:=0.4; {Начальное значение}
for i:=1 to 2 do
    Begin
    Y:=Y+0.6; {Получаем очередное значение}
      X:=-2; {Начальное значение}
    for j:=1 to 9 do
          Begin
            Z:=(Sin(X)/(Cos(Y)+2))+10; {Функция}

            if ((Z > 0) and (Z <> 0)) then C:=1/Sqrt(Z)
                                      else C:=Sqr(Z);

              Writeln(' C= ',C:8:5);
              X:=X+0.5; {Получаем очередное значение}
            end;
      end;

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