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

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

Program Lab6_4; uses crt;

var y,z,zi:real;
    i,j,x:integer;
     error:boolean;

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

for i:=1 to 4 do {Специально для Анастасии Высоких: Внешний цикл}
    Begin clrscr;
    Y:=Random(11)-5.; {Генерируем псевдослучайное число Y}
    X:=(-2); {Начальное значение X}
    Z:=0; {Начальное значение суммы}
    Write('--------------------------------------------------------------------------------');
    Writeln(' i= ',i:2,' Y= ',Y:5:2);
    Write('--------------------------------------------------------------------------------');
    for j:=1 to 13 do {Специально для Анастасии Высоких: Внутренний цикл}
        Begin
        Write(' j= ',j:2,'  Z[i]= ');
        Error:=False; {По умолчанию ошибки нет}

        if ((X > 0) and (Y > 0)) then Zi:=2*Y*Cos(X) {Первая функция}
                         else if ((X < 0) and (Y < 0)) then Zi:=Ln(Abs(X))/(Sin(Y)+2) {Вторая функция}
                                   else Error:=True; {Есть ошибка!!!}

        if not Error then
                 Begin {Если нет ошибки}
             Writeln(Zi:8:5);
             Z:=Z+Zi; {Считаем сумму}
             end
             else Writeln(' Error'); {Сообщение об ошибке}

        Inc(X); {Очередное значение X}
        end;
    Write('--------------------------------------------------------------------------------');
    if (Y <> 0) then Writeln(' Ответ: Z[',i,']= ',Z:8:5)
            else Writeln(' Ответ: Z[',i,']= Error'); {Сообщение об ошибке}
    Write('--------------------------------------------------------------------------------');
    GotoXY(19,WhereY); Writeln('Для продолжения нажмите клавишу "Enter"');
    Write('--------------------------------------------------------------------------------');
    Readln;
    end;

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