Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.11.2016, 18:10   #1
dbtrsv
Новичок
Джуниор
 
Регистрация: 12.10.2016
Сообщений: 1
По умолчанию Помогите решить задачку по табуляции функции. PascalABC

label 11;
const a=-2;b=2; dx=0.2;
var x,y,max,min:real;
begin
x:=a; min:=x*sqr(ln(abs(x)));max:=min;
writeln('using label');
writeln('x y');
11:if (-1<x<1)then(sin*(x)/(exp(x)+1))
else if (x<=-1) then y:=x*sqr(ln(abs(x)))
else y:=cos(sqr(x)+x-1);
if y>max then max:=y;
if y>min then min:=y;
writeln(x:6:1,y:10:5);
x:=x+dx;
if x<=b+dx then goto 11;
writeln('max=',max:8:5,'min=',min:8 :5);
end.
Задание:

В чем проблема:
dbtrsv вне форума Ответить с цитированием
Старый 28.11.2016, 19:56   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

так нельзя проверять условие.
Цитата:
Код:
if (-1<x<1)
это можно записать вот так:
Код:
if (-1<x) and (x<1) then ....
но вообще, в данном случае условия взаимоисключающие, поэтому:

Код:
if x<=-1 then y:=x*sqr(ln(abs(x)))
else 
  if x<1 then y:= sin(x/(exp(x)+1))
  else  y:=cos(sqr(x)+x-1);
p.s. а зачем Вы используете Label и goto ? это требование задания?
а поиск минимального/максимального зачем?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 02.12.2016, 11:36   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

...

Последний раз редактировалось digitalis; 02.12.2016 в 11:47. Причина: удаление
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачку! OLGA_2966 Паскаль, Turbo Pascal, PascalABC.NET 2 22.11.2014 21:26
Помогите решить задачку. [Pr1_Zr4k] Помощь студентам 4 10.10.2009 17:52
Помогите решить задачку Top4 Помощь студентам 0 07.04.2009 20:50
помогите решить задачку gorez Паскаль, Turbo Pascal, PascalABC.NET 10 08.04.2008 14:49