Ошибка в ОДЗ

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Ошибка в ОДЗ

Сообщение Redhils123 » 27.09.2019 21:14:38

Доброго времени суток, нужна помощь в поиске ошибки в ОДЗ.

Вот текст задачи:
1.Написать программу, вычисляющую значение функции:
ln(x)*x^3-23, если x<-6;
(x^(0,1*x)/x^2)*(-x/18), если -6<=x<-2;
(cos(2*x)/e^x)*(sin(x)/sin(x)), если -2<=x.
2.Вычислить значение функции на интервале [-8;0] с шагом 0,1


Текст программы:

program lab1;
uses Math;
const step=0.1;
var x:real;
procedure mes(x,f:real);
begin
writeln ('x=',x:0:2,'f(x)=',f:0:2);
end;
begin
x:=-8;
while x<=0 do begin
if x<-6 then begin
if x<=0 then writeln('Ne podhodit po ODZ')
else mes(x, (ln(x)*Power(x,3)-23));
end
else if x<-2 then begin
if x=0 then writeln('Ne podhodit po ODZ')
else mes(x, (Power(x,0.1*x)/Power(x,2))*(-x/18));
end
else begin
if x<=0 then writeln('Ne podhodit po ODZ')
else mes(x, (cos(2*x)/exp(x))*(sin(x)/sin(x)));
end;
x:=x+step;
end;
end.

Заранее спасибо
Redhils123
незнакомец
 
Сообщения: 2
Зарегистрирован: 23.09.2019 16:37:23

Re: Ошибка в ОДЗ

Сообщение Little_Roo » 27.09.2019 23:52:45

у всех пользователей сайта уже мозоль на языке... или клавиатуре - используйте для своих кусков кода теги <code> </code> :(
Если уж пользуете модуль math, то зачем использовать тупой басиковский синтаксис...тильдочки - это не кошерно...
Есть же нормальный вывод результатов - х в степени у = x**y

И что есть, видимо функция, Power ?
Аватара пользователя
Little_Roo
энтузиаст
 
Сообщения: 638
Зарегистрирован: 27.02.2009 19:56:36
Откуда: Санкт-Петербург

Re: Ошибка в ОДЗ

Сообщение Дож » 28.09.2019 02:23:14

Дубликат: viewtopic.php?f=13&t=42809

Если уж пользуете модуль math, то зачем использовать тупой басиковский синтаксис...тильдочки - это не кошерно...

Это в формулировке задачи, а не в коде, и не басиковский, а кошерный LaTeX'овский синтаксис (и не тильдочка, а крышечка или циркумфлекс).
Аватара пользователя
Дож
энтузиаст
 
Сообщения: 899
Зарегистрирован: 12.10.2008 16:14:47

Re: Ошибка в ОДЗ

Сообщение sign » 30.09.2019 06:57:08

Redhils123, уважайте читателей.

Код: Выделить всё
program lab1;
uses Math;
const step=0.1;
var x:real;
  procedure mes(x,f:real);
  begin
    writeln ('x=',x:0:2,'f(x)=',f:0:2);
  end;
begin
  x:=-8;
  while x<=0 do begin
    if x<-6 then begin
       if x<=0 then writeln('Ne podhodit po ODZ')
      else mes(x, (ln(x)*Power(x,3)-23));
    end else
      if x<-2 then begin
        if x=0 then writeln('Ne podhodit po ODZ')
        else mes(x, (Power(x,0.1*x)/Power(x,2))*(-x/18));
      end
    else begin
      if x<=0 then writeln('Ne podhodit po ODZ')
      else mes(x, (cos(2*x)/exp(x))*(sin(x)/sin(x)));
    end;
    x:=x+step;
  end;
end.
sign
энтузиаст
 
Сообщения: 1131
Зарегистрирован: 30.08.2009 09:20:53


Вернуться в Free Pascal Compiler

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 26

Рейтинг@Mail.ru