Форма приложения для построения графика функции. — КиберПедия 

Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...

Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...

Форма приложения для построения графика функции.

2017-12-09 148
Форма приложения для построения графика функции. 0.00 из 5.00 0 оценок
Заказать работу

Форма приложения для построения графика функции приведена на рисунке 7.

 

 

Рисунок 7 – Форма приложения для построения графика функции

 

На форме размещены следующие компоненты:

Button1, Button2 – кнопки для принятия данных и завершения работы приложения;

Image1 – компонент для построения графика.

Текст программного кода приложения для построения графика.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

Function F(x:real):real;

begin

F:=2*sin(x)*exp(x/5);

end;

Procedure Graf;

Var

x1,x2:real;

y1,y2:real;

x,y:real;

dx:real;

l,b:integer;

w,h:integer;

mx,my:real;

x0,y0:integer;

begin

l:=10;

b:=form1.image1.ClientHeight-20;

h:=form1.image1.ClientHeight-40;

w:=form1.image1.Width-40;

x1:=0;

x2:=25;

dx:=0.01;

y1:=f(x1);

y2:=f(x1);

x:=x1;

repeat

y:=f(x);

if y<y1 then y1:=y;

if y>y2 then y2:=y;

x:=x+dx;

until (x>=x2);

my:=h/abs(y2-y1);

mx:=w/abs(x2-x1);

x0:=1;

y0:=b-abs(Round(y1*my));

with form1.Image1.Canvas do

begin

MoveTo(l,b); LineTo(l,b-h);

MoveTo(x0,y0); LineTo(x0+w,y0);

TextOut(l+5,b-h,FloatToStrF(y2,ffFixed,6,3));

TextOut(l+5,b,FloatToStrF(y1,ffFixed,6,3));

x:=x1;

repeat

y:=f(x);

Pixels[x0+Round(x*mx),y0-round(y*my)]:=clRed;

x:=x+dx;

until (x>=x2);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Graf;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

end.

Описание основных операторов, процедур, функций и методов.

В процессе создания программного приложения использовались следующие процедуры, функции и методы:

FloatToStrF(V:Extended;Format:TFloatFormat;Precision,Digits:Integer):String – функция преобразования числа с плавающей точкой;

В приложении использованы методы обработки событий, происходящих на форме, код которых создан во время работы приложения

procedure Button1Click(Sender: TObject) - нажатие на кнопку Button1

procedure Button2Click(Sender: TObject) - нажатие на кнопку Button2

Graf – оператор вызова пользовательской процедуры;

При написании кода использовались следующие операторы:

1) Условный оператор

If <логическое выражение> Then <оператор1>

else <оператор2>;

Если логическое выражение истинно, то выполняется < оператор 1>, в противном случае выполняется <оператор2>.

2) Оператор повтора

Repeat

<оператор1>;

< оператор2>;

< операторN>

until <логическое выражение >;

Тело цикла выполняется пока значение логического выражения ложно.

Метод MoveTo(x,y) – перемещение текущей позиции в точку с координатами (х, y).

Метод LineTo(x,y) – вычерчивание прямой линии от текущей позиции до точки с координатами (x,y).

 

Список литературы

1. Дарахвелидзе П. Г., Марков Е. П., Delpi- среда визуального программирования: СПб.: BHV - Санкт-Петербург, 1996. - 352 с.

2. К. Сурков, Д. Сурков, А. Вальвачев, Программирование в среде DELPHI 2.0-Мн.: ООО «Попурри», 1997.- 640 с.

3. Гусак А. А- Элементы методов вычислений. Мн.; БГУ, 1982.-246с. (26 экз.)

4. Джефф Дантеманн, Джим Мишел, Дон Тейлор, Программирование в среде DELPHI-Киев: НИПФ «ДиаСофт Лтд.», 1995. – 608 с.

5. Дж. Мэтчо и др. Delphi 2. Руководство для профессионалов: пер с англ.-Спб.:ВРV-Санкт-Петербург, 1997.-784с.,ил


Приложение А

(рекомендуемое)

Таблица А1 – Номера задач для контрольной работы

 

Первая буква фамилии студента Последняя цифра в номере зачетной книжки    
                   
А, Б 1,1, 14,20, 21,1 2,2, 13,19, 22,2 3,3 12,18, 23,3 4,4, 11,17, 24,4 5,5, 10,16, 25,5 6,6, 9,15, 26,6 7,7, 8,14, 27,7 8,8, 7,13, 28,8 9,9, 6,12, 29,9 10,10, 5,11, 30,10
В, Г 11,11, 4,10, 31,11 12,12, 3,9, 32,12 13,13, 2,8, 33,13 14,14, 1,7, 34,14 15,15, 14,6, 35,15 16,16, 13,5, 36,16 17,17 12,4, 37,17 18,18 11,3, 37,18 19,19, 10,2, 35,20 20,20 9,1, 36,19
Д, Е 21,21, 8,20, 34,19 22,22, 7,19, 33,18 23,23, 6,18, 32,17 24,24, 5,17, 31,16 25,22 4,16, 30,15 26,1, 3,15, 29,14 27,2, 2,14, 28,13 28,3, 1,13. 27,12 29,4, 14,12, 26,11 30,5, 13,11, 25,10
Ж, З, И 1,6, 12,10, 24,9 2,7, 11,9, 23,8 3,8, 10,8, 22,7 4,9, 9,7, 21,6 5,10, 8,6, 30,5 6,11, 7,5, 31,4 7,12, 6,4, 32,3 8,13, 5,3, 33,2 9,14, 4,2, 34,1 10,15, 3,1, 35,11
К, Л 11,16, 2,20, 36,12 12,17, 1,19, 37,13 13,18, 14,18, 21,14 14,19, 13,17, 22,15 15,20, 12,16, 23,16 16,21, 11,15, 24,17 17,22, 10,14, 25,18 18,23, 9,13, 26,20 19,24, 8,12, 27,1 20,2, 7,11, 28,2
М, Н, О 21,1, 6,10, 29,3 22,2, 5,9, 21,4 23,3, 4,8, 22,5 24,4, 3,7, 23,6 25,5, 2,6, 24,7 26,6, 1,5, 25,8 27,7, 14,4, 26,9 28,8, 13,3, 27,10 29,9, 12,2, 28,1 3,10, 11,1, 29,2
П, Р, С 1,11, 10,20, 30,3 2,12, 9,19, 31,4 3,13, 8,18, 32,5 4,14, 7,17, 33,6 5,15, 6,16, 34,7 6,16, 5,15, 35,8 7,17, 4,14, 36,9 8,18, 3,13, 37,10 9,19, 2,12, 25,11 10,20, 1,11, 26,12
Т, У, Ф 11,21, 14,10, 27,13 12,22, 13,9, 28,14 13,23, 12,8, 29,15 14,24, 11,7, 30,16 15,5, 10,6, 31,17 16,1, 9,5, 32,18 17,2, 8,4, 33,19 18,3, 7,3, 34,20 19,4, 6,2, 35,15 20,5, 5,1, 36,16
Ч, Ц, Х 21,6, 4,20, 37,17 22,7, 3,19, 35,1 23,8, 2,18, 33,4 24,9, 1,17, 31,7 25,10, 14,16, 29,10 26,11, 13,15, 27,13 27,12, 12,14, 25,16 28,13, 11,13, 23,19 29,14, 10,12, 21,2 30,15, 9,11, 24,4
Ш, Щ 1,16, 8,10, 27,6 2,17, 7,9, 30,8 3,18, 6,8, 33,10 4,19, 5,7, 36,12 5,20, 4,6, 37,14 6,21, 3,5, 33,16 7,22, 2,4, 29,18 8,23, 1,3, 25,20 9,24, 14,2, 21,15 1,20 13,1, 23,10
Э, Ю, Я 11,1, 12,20, 28,5 12,2, 11,19, 33,1 13,3, 10,18, 37,4 14,4, 9,17, 31,7 15,5, 8,16, 26,10 16,6, 7,15, 21,13 17,7, 6,14, 22,16 18,8, 5,13, 29,19 19,9, 4,12, 30,17 11,10, 3,11, 37,14

 


Приложение Б

(рекомендуемое)

 

Список теоретических вопросов к контрольной работе.

1 Устройства компьютера: процессор, ОЗУ, ПЗУ, внешние запоминающие устройства и их характеристики.

2 Понятие информации. Представление информации в компьютере.

3 Программное обеспечение ПЭВМ. (Системное, служебное и прикладное программное обеспечение).

4 Файловая структура ПЭВМ: файл, папка, диск.

5 Операционная система Windows. Назначение, принципы использования и возможности операционной системы Windows.

6 Операционная система Windows. Требования к техническим средствам.

7 Операционная система Windows. Интерфейсные элементы управления работы Windows. Окна приложений, документов и диалоговые окна

8 Операционная система Windows. Интерфейсные элементы управления работы Windows. Меню. Соглашения по командам меню.

9 Рабочий стол Windows. Значки, ярлыки и папки. Панель задач. Главное меню.

10 Настройка Windows. Изменение свойств экрана дисплея. Создание ярлыков для наиболее часто используемых файлов. Настройка главного меню

11 Работа с папками и файлами. (Создание папок. Копирование, удаление, перенос, переименование папок и файлов).

12 Операционная система Windows. Запуск прикладных программ на выполнение.

13 Назначение текстового процессора Word. Структура окна.

14 WORD. Создание, открытие, сохранение и печать документа.

15 WORD. Ввод и редактирование текста.

16 WORD. Установка параметров страниц.

17 WORD. Таблицы. Создание и редактирование таблиц.

18 WORD. Ввод и редактирование формул.

19 WORD. Форматирование текста (параметры шрифта; форматирование абзаца)

20 WORD. Панели инструментов. Управление панелями инструментов.

21 Табличные процессор MS Еxcel. Назначение табличного процессора Excel.

22 Табличные процессор MS Еxcel. Рабочие книги и рабочие листы.

23 Табличные процессор MS Еxcel. Операции с рабочими листами.

24 Табличные процессор MS Еxcel. Ячейки и диапазоны. Выделение диапазонов.

25 Табличные процессор MS Еxcel. Ввод и правка данных.

26 Табличные процессор MS Еxcel. Ввод расчетных формул. Ссылки на ячейки.

27 Табличные процессор MS Еxcel. Имена ячеек и их изменение.

28 Табличные процессор MS Еxcel. Типы ошибок в формулах.

29 Табличные процессор MS Еxcel. Защита данных

30 Табличные процессор MS Еxcel. Графическое представление табличных данных. Виды диаграмм.


Приложение В

(рекомендуемое)

1 . 13 .
2 . 14 .
3 . 15 .
4 . 16 .
5 . 17 .
6 . 18 .
7 . 19 .
8 . 20 .
9 . 21 .
10 . 22 .
11 . 23 .
12 . 24 .

 


Приложение Г

(рекомендуемое)

1 y=sin(x)*e-2x для xÎ[0,2], hx=0,2;

2 y=3*sin(x)-cos2(x) для xÎ[0,2], hx=0,2

3 y=2*Ln(1+x2) для xÎ[0,2], hx=0,2

4 y=2*cos(x)*e-2x для xÎ[0,2], hx=0,2

5 y=2*sin(x)*cos(x) для xÎ[-2,2], hx=0,2

6 y=cos2(2px)-2sin(px) для xÎ[-2,2], hx=0,2

7 y=3sin(2px)cos(px)-cos2(3px) для xÎ[-2,2], hx=0,2

8 y=5sin(px)-cos(3px)sin(px) для xÎ[-2,2], hx=0,2

9 y=5x2cos2(x)-2 cos2(x) для xÎ[-2,2], hx=0,2

10 y=cos(3px)sin(px)+2sin(3px)cos(2px) для xÎ[0,2], hx=0,2

11 y=2sin(2px)cos(px)+ sin(3px) для xÎ[0,2], hx=0,2

12 y=cos(2px)sin2(px)-cos(4px) для xÎ[0,2], hx=0,2

13 y=cos2(px)-cos(3px) для xÎ[0,2], hx=0,2

14 y=cos(px)-cos(3px)sin2(px) для xÎ[0,2], hx=0,2

 


Приложение Д

(рекомендуемое)

1 .

Исходные данные: x,y.

 

2 .

Исходные данные: c,x,y.

 

3 .

Исходные данные: b,x,y.

 

4 .

Исходные данные: x,y,z.

 

5 .

Исходные данные: x,y,z.

 

6 .

Исходные данные: x,y,z.

 

7 .

Исходные данные: x,y.

 

8 .

Исходные данные: x,y,z.

 

9 .

Исходные данные: x,y,z.

 

10 .

Исходные данные: x,y,z.


11 .

Исходные данные: x,y,z.

 

12 .

Исходные данные: x,y.

 

13 .

Исходные данные: x,y.

 

14 .

Исходные данные: x,y.

 

15 .

Исходные данные: x,y.

 

16 .

Исходные данные: x,z.

 

17 .

Исходные данные: x,y.

 

18 .

Исходные данные: x,y,z.

 

19 .

Исходные данные: x,y,z.

 

20 .

Исходные данные: x,y,z.


Приложение Е

(рекомендуемое)

 

1 Вычислить значения и построить график функции

для а=2; z=-0.75; 1.5<=x<=20; hx=0.8

 

2 Найти корень уравнения еx –2x –10=0 методом деления отрезка пополам для хÎ[1,3] с точностью e=10-2 и построить график функции еx –2x –10 на заданном интервале.

 

3 Вычислить значения и построить график функции

при 2.3<=х<=5.5 и hx=0.3

 

4 Найти корень уравнения 0.1ex-sin2x+0.5=0 методом деления отрезка пополам для хÎ[-5,-2 ] с точностью e=10-2 и построить график функции

0.1ex-sin2x+0.5=0 на заданном интервале.

 

5 Вычислить значение z по формуле

при b=0.2; y=0.54; 2<=x<=50; hx=2 и построить график функции.

6 Найти корень уравнения методом деления отрезка пополам для хÎ[-2,-0,5 ] с точностью e=10-2 и построить график функции на заданном интервале.

 

7 Вычислить значения функции

для х=4.5,5.0,5.5,…,50 и а=1.0,1.1,1.2,…,10 и построить график вычисленной функции при a=1.1 и для хÎ[4.5;50]

 

8 Найти корень уравнения e0.724x+0.3-2.831x=0 методом деления отрезка пополам для хÎ[-1,5;3,5]с точностью e=10-2 и построить график функции y=e0.724x+0.3-2.831x на заданном интервале.

 

9 Вычислить значения функции

для х=1.8,2.2,2.6,…,20 и b=0.3,0.6,0.9,…,4.8 и построить график при b=1.1 и для хÎ[1,8;20]

10 Найти корень уравнения x+0.5x sinx+1=0 методом деления отрезка пополам для хÎ[-2,5;-1]с точностью e=10-3 и построить график функции

y= x+0.5x sinx+1 на заданном интервале.

 

11 Вычислить

где

для -1<=х<=5 и hx=0,5 и построить график.

 

12 Найти корень уравнения 1.4x-x=0 методом деления отрезка пополам для хÎ[1;3]с точностью e=10-2 и построить график функции y= 1.4x-x на заданном интервале.

 

13 Вычислить значения функции

если х изменяется с шагом hx=0.1 в области -0.5<=х<=1, и построить график функции.

 

14 Найти корень уравнения 0.5x-ln½x½=0 методом деления отрезка пополам для хÎ[-1;-0,2]с точностью e=10-4 и построить график функции

y= 0.5x-ln½x½на заданном интервале.

 

15Вычислить значения функции

6<=х<=8, шаг hx=0.1

 

16 Найти корень уравнения x3+sinx-3.5x+1=0 методом деления отрезка пополам для хÎ[0;1]с точностью e=10-3 и построить график функции y= x3+sinx-3.5x+1 на заданном интервале.

 

17 Найти корень уравнения методом деления отрезка пополам для хÎ[-0,7;0,7]с точностью e=10-2 и построить график функции

y= на заданном интервале.

 

18Вычислить значения функции

и построить график функции на заданном интервале.

 

19 Найти корень уравнения методом деления отрезка пополам для хÎ[-2;0]с точностью e=10-2 и построить график функции

y= на заданном интервале.

 

20 Найти корень уравнения 2x-sin2x-0.25=0 методом деления отрезка пополам для хÎ[-1;1]с точностью e=10-2 и построить график функции y= 2x-sin2x-0.25 на заданном интервале.

 

21 Задана матрица А=(аik) и вектор В=(bi), (i=1,2,3,4; k=1,2,3,4). Вычислить значения элементов вектора D по формуле

.

22 Упорядочить по убыванию массив, содержащий 12 вещественных чисел.

23 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.

 

24 Упорядочить по убыванию массив, содержащий 25 вещественных чисел.

25 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.

 

26 Задана матрица А=(аij), (i=1,2,…,5; j=1,2,…5). Вычислить значение матрицы В=(bij), где bij=aij,, если i=j и bij=0, если i¹j.

 

27 Упорядочить по возрастанию массив, содержащий 15 вещественных чисел

28 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.

 

29 Заданы два одномерных массива xn и yn (n=6). Вычислить значение элементов массива s по формуле

 

30 Упорядочить по убыванию массив, содержащий 10 целых чисел.

31 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.

32 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.

 

33 Упорядочить по возрастанию массив, содержащий 20 целых чисел

34 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.

35 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.

36 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.

37 Вычислить сумму ряда, общий член которого равен с точностью e =0,001.


Поделиться с друзьями:

Индивидуальные и групповые автопоилки: для животных. Схемы и конструкции...

Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьше­ния длины пробега и улучшения маневрирования ВС при...

Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...

Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...



© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!

0.157 с.