|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.11.2016, 18:10 | #1 |
Новичок
Джуниор
Регистрация: 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. Задание: В чем проблема: |
28.11.2016, 19:56 | #2 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
так нельзя проверять условие.
Цитата:
Код:
Код:
а поиск минимального/максимального зачем? |
|
02.12.2016, 11:36 | #3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
...
Последний раз редактировалось digitalis; 02.12.2016 в 11:47. Причина: удаление |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачку! | 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 |