Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2024
Тип роботи:
Звіт
Предмет:
Об’єктно-орієнтоване програмування
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет «Львівська політехніка»
Кафедра АСУ
Звіт
до лабораторної роботи №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.
Скріншоти роботи програми:
Висновок: На цій лабораторній роботі я ознайомився з основою використання візуального середовища Делфі:створення проектів, управлінням основними об’єктами палітри компонентів ,створення власних процедур та функцій з використанням властивостей компонентів.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора