АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Компьютерная модель построения графика функции на языке программирования Free Pascal

Читайте также:
  1. Creating a VHDL Source (создание файла, содержащего текст программы на языке VHDL).
  2. II. Общие принципы построения и функционирования современных бизнес-структур
  3. II. Учебно-информационная модель
  4. II. Функции тахографа и требования к его конструкции
  5. III. Изучение демократического транзита в России (модель Б.А. Исаева)
  6. MS Excel.Текстовые функции, примеры использования текстовых функций.
  7. N-мерное векторное пространство действительных чисел. Компьютерная часть
  8. SCADA-система: назначение и функции
  9. Sog Pentagon, новая модель
  10. V2: Компьютерная графика.
  11. V2: Электронные таблицы. Встроенные функции.
  12. А) Рабочее место б) Функции

 

//Установка графического режима экрана, описание переменных, необходимых при //работе программы, задание функции

Uses Graph,Crt;

label 1;

var gr,gm,n,i:integer;

x,y,A,B,E,C:real;

function f(x:real): real;

begin

f:=x*x*x-sin(x);

end;

begin

gr:=0;

InitGraph (gr,gm, '');

if GraphResult < > grOk then Halt (1);

SetColor (3); //задание цвета

//построение системы координат

Line (200,100,200,400);

Line (450,270,100,270);

Line (200,100,195,105);

Line (200,100,205,105);

Line (450,270,445,265);

Line (450,270,445,275);

OutTextXY (455,270, 'x');

OutTextXY (185,100, 'y');

OutTextXY (230,280, '1');

OutTextXY (150,280, '-1');

OutTextXY (210,240, '1');

OutTextXY (210,300, '-1');

//шкала по оси Х

x:=110;

while x<450 do

begin

line (trunc(x),265,trunc(x),275);

x:=x+30

end;

//шкала по оси Y

y:=120;

while y<400 do

begin

line (195,trunc(y),205,trunc(y));

y:=y+30

end;

//построение графика

x:=-3;

while x<3 do

begin

x:=x+0.001;

y:=f(x);

PutPixel (trunc(x*30)+200,-trunc(y*30)+270,5)

end;

Для построения графика используется алгоритмическая конструкция «цикл». График строится путем построения точек с координатами (х; у) значения аргумента меняются от
-3 до 3 с шагом 0,001, а значения функции вычисляются по формуле . Полученные точки строим с помощью оператора PutPixel, в скобках указываем координаты точек, которые надо построить и номер цвета, которым будет построен график.

Координаты точек, которые строятся, должны быть целыми числами, поэтому используется функция trunc, чтобы отбросить дробную часть.

Пиксель – это очень маленькая точка экрана, поэтому для построения графика функции координаты х и y необходимо умножить на величину единичного отрезка который я взяла (т.е. на 30, тогда увеличивается масштаб). Начало компьютерной системы координат расположено в левом верхнем углу, а наша система координат смещена на 200 пикселей по оси Х и на 270 пикселей по оси Y, поэтому прибавляем 200 и 270. Ось Y на компьютере направлена сверху вниз, наша ось Y снизу вверх, поэтому еще необходим знак «минус» перед значением функции y.

График функции .

По графику функции можно сделать вывод, что рассмотренное уравнение имеет три корня, расположенные на отрезках [-1; -0,7], [-0,3, 0,3], [0,7; 1].


 

 

Далее в пунктах 2.2 – 2.5 будут рассмотрены компьютерные модели второй части программы приближенного решения уравнения.


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)