Построить график функции f(x)=-T(xln(x)+(1-x)*ln(x)

@Quarris · Регистрация: 19.11.2013

Студворк — интернет-сервис помощи студентам

Нужно написать программу в Pascal ABC, которая построит график функции f(x)=-T*(x*ln(x)+(1-x)*ln(x)), x лежит в пределах от 0 до 1.

У самого что-то не получается. В паскале я более менее разбираюсь и смогу понять где что находится в коде, но если не сложно, то подпишите основные моменты. Спасибо)

@Puporev · 24.05.2014, 17:40

А чему равно Т?

@Quarris · 24.05.2014, 17:42 **[ТС]**

Извиняюсь, забыл, T=1.

@Puporev · 24.05.2014, 18:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
uses graphABC;
function F(x,t:real):real;
begin
F:=-t*(x*ln(x)+(1-x)*ln(x))
end;
var t,xn,xk,x,mx,my,dx:real;
    x0,y0,i:integer;
    s:string;
begin
x0:=50;//начало координат на экране
y0:=windowheight-50;
t:=1;
xn:=0;
xk:=1;//интервал по Х
mx:=(windowwidth-x0-30)/xk;//масштаб по Х
my:=(y0-40)/F(0.001,t);//по У
line(0,y0,windowwidth,y0);//оси
line(x0,0,x0,windowheight);
for i:=1 to 10 do//максимальное количество засечек в одну сторону
 begin
  line(x0+round(i*mx/10),y0-3,x0+round(i*mx/10),y0+3); //засечки на оси Х
  str(i/10:0:1,s); //подпись оси Х
  textout(x0+round(i*mx/10),y0+10,s);
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my)); //засечки на оси Y
  str(i,s);//подпись оси Y
  textout(x0-20,y0-round(i*my),s);
 end;
//центр
textout(x0+5,y0+10,'0');
//подписи концов осей
textout(windowwidth-20,y0-20,'X');
textout(x0+10,10, 'Y');
//график
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  if x>0 then setpixel(x0+round(x*mx),y0-round(F(x,t)*my),clRed);
  x:=x+dx; //наращиваем х
 end;
end.

@Quarris · 24.05.2014, 18:52 **[ТС]**

Спасибо)

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Quarris 0 / 0 / 0 Регистрация: 19.11.2013 Сообщений: 22

	Построить график функции f(x)=-T(xln(x)+(1-x)ln(x) 24.05.2014, 17:27. Показов* 1470. Ответов 4 Метки нет (Все метки) Нужно написать программу в Pascal ABC, которая построит график функции f(x)=-T(xln(x)+(1-x)*ln(x)), x лежит в пределах от 0 до 1. У самого что-то не получается. В паскале я более менее разбираюсь и смогу понять где что находится в коде, но если не сложно, то подпишите основные моменты. Спасибо) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.05.2014, 17:40
	А чему равно Т? 0

@Quarris 0 / 0 / 0 Регистрация: 19.11.2013 Сообщений: 22
	24.05.2014, 17:42 [ТС]
	Извиняюсь, забыл, T=1. 0

@Quarris 0 / 0 / 0 Регистрация: 19.11.2013 Сообщений: 22
	24.05.2014, 18:52 [ТС]
	Спасибо) 0

Построить график функции f(x)=-T*(x*ln(x)+(1-x)*ln(x)

Решение

Построить график функции f(x)=-T(xln(x)+(1-x)*ln(x)