Построение графика функции - Pascal ABC

  1. Помогите построить график функции x*(x-1)*(x-1)*(x-1)*(x-1). Значения функции на картинке. Буду очень благодарен. Код x fun1 1.0 0.000 1.1 0.000 1.2 0.002 1.3 0.011 1.4 0.036 1.5 0.094 1.6 0.207 1.7 0.408 1.8 0.737 1.9 1.247 2.0 2.000 2.1 3.075 2.2 4.562 2.3 6.569 2.4 9.220 2.5 12.656 2.6 17.039 2.7 22.551 2.8 29.393 2.9 37.793 3.0 48.000 0.8 0.002 1.6 0.167 2.4 7.971 3.1 66.084


textual

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

Program Grafik;
Uses CRT, GRAPHABC;
const
kat='c:\Programs\Pascal\BGI';
var
g                  : string;
j,yo,r,q,v,w       : integer;
Ymax,Ymin,Xmax,x,m,h : real;
Function F(x:real):real;
Begin
F:=x*(x-1)*(x-1)*(x-1)*(x-1);
End;
 
Begin
Ymax:=66;
Ymin:=0;
Xmax:=PI;
SetWindowSize(640,480);
SetFontSize(6);
m:=460/(Ymax-Ymin);
yo:=8+Round(m*Ymax);
r:=yo-Trunc(yo/23)*23;
Line(39,yo,639,yo); textOut(632,yo-3,'>');
Line(39,468,39,0);  textOut(36,0,'^');
Line(39,468,639,468);
for q:=0 to Trunc((468-r)/23) do
begin
for j:=1 to 20 do Putpixel(39+30*j,r+23*q,14);
Str((yo-r-23*q)/m:5:2,g);
if yo=(r+23*q) then g:='    0';
TextOut(0,r+23*q-3,g);
end;
TextOut(39,472,'0');
for q:=1 to 10 do
begin
Str(q*Xmax/10:4:2,g);
TextOut(8+60*q,472,g);
TextOut(36+60*q,465,'+');
end;
 
h:=Xmax/600;
x:=0;
SetPencolor(clYellow);
for j:=1 to 600 do
begin
Line (j+38,yo-Round(F(x)*m),j+39,yo-Round(F(x+h)*m));
x:=x+h;
// Delay(500);
end;
g:=Readkey;
End.

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

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



Похожие ответы
  1. Добрый день. Прошу помочь, требуется, чтобы к программе был подключен модуль vcl, в котором создана форма и в нее вводится количество. От этого числа(которое введено), программа рисует столько графиков y=sin(x) белого цвета. И, если это возможно, то ограничить высоту для построения от 0 до 150 по y(вниз).

  1. Написать программу для построения графика функции. y=sqrt(2x+6)

  1. Помогите пожалуйста,очень срочно нужно выполнить задание.Необходимо написать программы,рисующие фигуры из прикрепленного файла с использованием команд цикла

  1. Приветствую. Нарисовал лабиринт и персонажа (красный круг), который должен дойти до выхода от старта. Так вот, персонаж может проходить через стены лабиринта. Как сделать так, чтобы персонаж не мог проходить, пересекать стены?Пожалуйста, помогите с примером хотя бы для 1 стены, дальше я сам по аналогии сделаю. Код:Код весь, просто некоторые буквы сначала прозрачные. Не знаю почему так. Выделите код и убедитесь, что он нормальный и полный.

  1. Написать программу построения графика функции y= ex Пробовал но получается как то криво.

  1. программа была набрана в турбо паскале, помогите перевести его в PascalABC

  1. Условия и данные: Уравнение: - p*x*y2 - y12 p = 0.04; y20 = 0.45 Y1' = Y2 Y' = f(x, Y1, Y2) при Y1(0) = 0; Y2(0) = Y20; Программа по методу Эйлера работает правильно:

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

  1. Нужно написать программу, изображающую два графика с указанием точек пересечения y=|x^2-5*x+6|и y=2*x Help please