{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"
Лабораторная работа №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.