Составить программу Плиз, в среде PASCAL ABC (TURBO PASCAL) выполняющую вычисления по формуле:

+ 0 -

Мария2311

13 мая 2013 г., 1:16:39 (10 лет назад)

Паскаль АВС:

Program Ikiru;
uses crt;
var
  y,x:real;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln(); writeln();
    write('Введите Х '); readln(x);
    if (sin(3*x)=0) or (ln(1+x*x)=0) or (cos(x)<=0)
      then
        writeln('Функция Y для этого значения Х не определена')
      else
        begin
          y:=2*(cos(3*x)/sin(3*x))-ln(cos(x))/ln(1+x*x);
          writeln('y=',y:8:2);
        end;
end.

Пояснения:
write('Введите Х '); readln(x);
  - программа просит пользователя ввести х
if (sin(3*x)=0) or (ln(1+x*x)=0) or (cos(x)<=0)
  - проверка существования функции (функция ctgХ не существует, если sinX=0, ln берется только от неотрицательных значений, в знаменателе дроби не может быть 0)
Если хотя бы одно из условий не выполняется,  выводится ссобщение о том, что функция для этого значения не определена.
Если все проверки пройдены, программа вычисляет значение функции Y и выводит его на экран.

+ 0 -

Sofia3490

13 мая 2013 г., 2:20:56 (10 лет назад)

"y=2ctg3x-" это минус в конце, что ли?

+ 0 -

Killerinc

13 мая 2013 г., 3:27:56 (10 лет назад)

а что после него?

+ 0 -

Polinus

13 мая 2013 г., 4:36:10 (10 лет назад)

Нашёл: y=2ctg3x - \frac{ln(cosX)}{ln(1+ x^{2})}