Завдання 1. Обчислення виразів. Використання стандартних функцій. Робота з графікою
Мета завдання:
Вивчення порядку дій при обчисленні вираженні.
Вивчення способів введення даних з клавіатури.
Створення графічних областей.
Обробка повідомлень про становище миші і введенні точок з її допомогою в графічній області.
Постановка завдання.
На формі відтворити формулу для обчислення, передбачити введення з клавіатури будь-якого значення Х і виведення результатів розрахунку за формулою.
Організувати на формі область, в якій намалювати графіки згідно з наведеним варіанту.
Користувач може вводити координати точки з клавіатури і/або клікнути по малюнку з областями, вказавши точку, щодо координат якої провести перевірку приналежності точки даної області.
Кольором в галузі графіки та коментарями на формі зробити висновок про приналежність вказаної точки областям.
Варіант завдання:
В
1) при Х = -0.7129
2) координати досліджуваної точки: (-0.5; -0.9)
Код програми:
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, TeEngine, Series, TeeProcs, Chart, StdCtrls, ExtCtrls, TeeFunci,; = class (TForm): TPanel;: TEdit;: TLabel;: TLabel;: TButton;: TChart;: TLineSeries;: TLabel;: TPanel;: TChart;: TShape;: TChartShape;: TEdit;: TLabel;: TEdit;: TLabel;: TButton;: TLabel; btn1Click (Sender: TObject); FormCreate (Sender: TObject); btn2Click (Sender: TObject); cht2Click (Sender: TObject); Y (const x: real): Real; SetDot (const x, y: Real);
{Public declarations};: TForm1;
{$ R *. dfm} TForm1.Y (const x: real): Real;: = Sin (arctan (x));; TForm1.btn1Click (Sender: TObject); = 4; = 0.1;: Real;. Caption: = FloatToStr (Y (StrToFloat (edt1.Text)));. Clear;: =-Range; x 0 ) and (y <- x + 1)) then.Brush.Color: = clWhite; 6.Caption: = 'Точка преналежить області';
end.Brush.Color: = clRed; 6.Caption: = 'Крапка не преналежить області';
end; TForm1.btn2Click (Sender: TObject); (StrToFloat (edt2.Text), StrToFloat (edt3.Text));; TForm1.cht2Click (Sender: TOb...
