Форма приложения для построения графика функции.
Форма приложения для построения графика функции приведена на рисунке 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.