МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ Національний університет «Львівська політехніка» Кафедра АСУ Звіт до лабораторної роботи №1 з курсу “Об'єктно орієнтоване програмування” Варіант 11 Бунь І.П. Мета роботи: Вивчення основних опцій та можливостей меню для створення проектів у середовищі програмування Delphi Порядок роботи: По рекомендованих літературних джерелах ознайомитися з системою меню, засобами створення та відлагодження проектів в середовищі програмування Delphi. Набрати та відлагодити текст проекту. При відлагодженні вставити точки зупинки; Відкрити вікно спостереження за змінними. Змінити поточне значення деякої змінної. Відкрити зовнішній відлагоджувач Здійснити пошук оголошень. Вставити текстову заготовку. Ознайомитись з роботою Довідника. Використати контекстну підказку. Завдання Обчислення з заданою точністю за розкладом в ряд Тейлора значення функції y=sin(x) у точці заданій з клавіатури Текст Програми unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Label1: TLabel; Edit2: TEdit; Label2: TLabel; Edit3: TEdit; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Eps:double; X: double; { Private declarations } public procedure GetSinTailor; { Public declarations } end; var Form1: TForm1; implementation procedure TForm1.GetSinTailor; var Sum:Extended; elem:Extended; v:extended; sqrX:extended; begin sqrX:=X*X; Sum:=X ; elem:=X; v:=2.0 ; while abs(elem)>Eps do begin elem:=elem*(sqrX/(v*(v+1)))*(-1); v:=v+2; sum:=sum+elem; end; Form1.Edit3.Text:=floattostr(Sum); end; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i:integer; buf:string ; begin if (Length(Form1.Edit1.Text)<>0) and (Length(Form1.Edit2.Text)<>0) then begin try buf:=Form1.Edit1.Text; for i:=1 to length(buf) do if buf[i]='.'then buf[i]:=',' ; Eps:=strtofloat(buf); buf:=Form1.Edit2.Text; for i:=1 to length(buf) do if buf[i]='.'then buf[i]:=',' ; X:=strtofloat(buf); except on E: EConvertError do ShowMessage ('Введено некоректні дані'+ #10 + 'Cghj,eqnt gjdnjhbnb ddsl'); end; GetSinTailor; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Form1.Color:=$CCFFFF; end; end. Скріншоти роботи програми: Висновок: На цій лабораторній роботі я ознайомився з основою використання візуального середовища Делфі:створення проектів, управлінням основними об’єктами палітри компонентів ,створення власних процедур та функцій з використанням властивостей компонентів.