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

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

Program Lab6_16; uses crt;

var x,y,z,sum:real;
    i,j,count:integer;

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

Sum:=0; {Начальное значение суммы}
Count:=0; {Начальное значение счетчика}

for i:=1 to 5 do
    Begin
      Write('--------------------------------------------------------------------------------');
      Write(' Введите число X',i,': '); Readln(X);
      Write('--------------------------------------------------------------------------------');
    Y:=-4; {Начальное значение}

    for j:=1 to 11 do
          Begin
            Z:=X/(Cos(Y)+1); {Функция}

              if (Z < 0) then Inc(Count)
                         else Sum:=Sum+Z;

              Writeln(' j= ',j:2,' Z= ',Z:12:5);
        Y:=Y+0.5; {Получаем очередное значение}
            end;
      end;

Write('--------------------------------------------------------------------------------');
Writeln(' Кол-во отрицательных значений функции: ',Count);
Writeln(' Сумма положительных значений функции: ',Sum:8:5);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.