Построение графика функции на заданном промежутке - Turbo Pascal

  1. Составить программу для построения графика функции на заданном промежутке. Функция y=ln(x)/x; промежуток - a=1; b=2; И еще одно условие-График - с точек; Координатные оси со штрихом - пунктирными линиями внутри. Помогите пожалуйста!!!!


textual

Код к задаче: «Построение графика функции на заданном промежутке - Turbo Pascal»

uses graph;
function F(x:real):real;
begin
F:=ln(x)/x;
end;
 
var a,b,max,mx,my:real;
    x:real;
    x0,y0,i:integer;
    s:string;
begin
initgraph(x0,y0,'');
a:=1;
b:=2;{интервал по Х}
max:=F(a);
x:=a;
while x<=b do
 begin
  if F(x)>max then max:=F(x);
  x:=x+1
 end;
x0:=50;
mx:=(getmaxX-x0-30)/b;{масштаб по Х}
y0:=getmaxY-50;
my:=(y0-60)/max;
line(x0,y0,getmaxX,y0);{оси}
line(x0,0,x0,y0);
setlinestyle(1,0,1);
for i:=1 to trunc(b*10)+2 do{максимальное количество засечек в одну сторону}
 begin
  line(x0,y0-round(i*my/10),getmaxX,y0-round(i*my/10));{засечки на оси У}
  {подпись оси У}
  str(i/10:0:1,s);
  outtextXY(x0-30,y0-round(i*my/10),s);{соответственно засечкам}
  if i mod 2=0 then
   begin
    line(x0+round(i*mx/10),0,x0+round(i*mx/10),y0); {засечки на оси Х}
    {подпись оси Х}
    outtextXY(x0+round(i*mx/10),y0+10,s);
   end;
 end;
{центр}
outtextXY(x0+5,y0+10,'0');
{подписи концов осей}
outtextXY(getmaxX-10,y0-10,'X');
outtextXY(x0+5,10, 'Y');
{график}
setcolor(12);
setfillstyle(1,12);
x:=a;
while x<=b do
 begin
  fillellipse(x0+round(x*mx),y0-round(F(x)*my),2,2);
  x:=x+0.02;
 end;
{название}
setcolor(12);
outtextXY(130,10,'y=lnx/x');
outtextXY(130,30,'int.[1;2]');
readln
end.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.600 из 5



Похожие ответы
  1. Помогите написать программу для решения функции заданной в виде графика (параметр r задается с клавиатуры); определить попадает ли точка в заштрихованную область.

  1. Помогите написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Заранее спасибо!

  1. Помогите написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры. Заранее спасибо! Задание:

  1. В большинстве примеров построения графиков масштабный коэффициент вычисляют по формуле ky=height/abs(y_max-y_min). Что эта формула не подходит для случаев когда y_min и y_max не симметричны относительно оси абсцисс можно убедиться на примере. w = 400, h = 640 a = - 5, b = 5 f(x) = x + 2 X0 = 200, Y0 = 320 y_min = -3, y_max = 7 kx = 400/(5 + 5) = 40 ky = 640/(3 + 7) = 64 Формулы для экранных координат: X = X0 + x·kx Y = Y0 + y·ky Получаем: X_min = 200 + 40·(-5) = 0 X_max = 200 + 40·5 = 400 Y_min = 320 - 64·(-3) = 512 Y_max = 320 - 64·7 = -128 Очевидно, что последние значения неправильны. Если вычислить ky «по бумажке», Y_min = 440 Y_max = 40, то имеем ky = 400/10 = 40 Тогда и график строится правильно. Пример неправильного и правильного (зелёный) графиков. Но вот вопрос: как узнать правильный коэффициент???

  1. Составить программу для построения объекта(круга), который движется по траекторий: y = x. Движение организовать слева направо.

  1. График функции е в степени х в паскале, выбивает вот такую вот ошибку, помогите пожалуйста

  1. Сделать систему блуждающих закрашенных многоугольников. (5 штук). Цвета - по случайному закону, координаты центров правильных многоугольников -случайны. Положение по углу - случайное. Число сторон и их длина задается в диалоге.Добавлено через 2 часа 33 минуты Еще, она должна быть выполнена с помощью объектов.

  1. 1)Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры.Добавлено через 16 часов 19 минут апп

  1. Нужно построить 2 графика в одной программе по следующим функциям 1)F(x)=\begin{cases} & \text{ if } 3x - 9 при x\leq 7 \\ & \text{ if } x= 1\({x}^{2} - 4 при x>7 \end{cases} 2)F(x) = xSinxДобавлено через 2 минуты 1) 2)F(x) =xSinx PRI=при

  1. Добрый День, помогите пожалуйста. В одномерном массиве, заполняемом целыми числами, найти участок между двумя отрицательными элементами с максимальной суммой элементов. Например, для массива 8 -9 10 -3 5 6 7 -1 3 5 0 1, ответ «5 6 7».