русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Interface


Дата додавання: 2014-11-27; переглядів: 899.


 

Uses

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

StdCtrls;

 

Type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Memo1: TMemo;

Button1: ТВutton;

procedureFormCreate(Sender: TObject);

procedureButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

Var

Form1: TForm1;

 

Implementation

 

{$R *.DFM}

// Процедура обробки події створення Форми:

procedureTForm1.FormCreate(Sender: TObject);

Begin

Edit1.Text:='0.4'; // початкове значення X

Edit2.Text:='8.75e-2'; // початкове значення Y

Edit3.Text:='-19.63'; // початкове значення Z

Memo1.Clear; // очищення Memo1

//Виведення рядка в Memo1:

Memo1.Lines.Add('Лабораторна робота №1 - Лінійний алгоритм');

end;

// Процедура обробки події натиснення кнопки Button1:

procedureTForm1.Button1Click(Sender: TObject);

Var

x,y,z,a,b,c,u : extended; // оголошення локальних змінних

Begin

x:=StrToFloat(Edit1.Text); // X привласнюється вміст Edit1

y:=StrToFloat(Edit2.Text); // Біля привласнюється вміст Edit2

z:=StrToFloat(Edit3.Text); // Z привласнюється вміст Edit3

// Обчислюється вираз

а:=sqrt(x)-y*y*y;

b:=sin(a)/cos(a);

з:=Exp(5*Ln(b));

u:=c+exp(у/z)*sin(z*z);

Memo1.Lines.Add('X= '+Edit1.Text+' Y = '+Edit2.Text+ ' Z = '+Edit3.Text); // контрольний вивід X, Y, Z в Memo1

//Виеедення результату в Memo1:

Memo1.Lines.Add(' U = '+FloatToStrF(u,ffFixed,8,3));

end;

 

End.

Дані, з якими працюють компоненти Edit і Memo, мають тип String. Тому в процедурі TForm1.Button1Click при привласненні вмісту полів Edit1,Edit2,Edit3 змінним X,Y,Z за допомогою функції StrToFloat здійснюється перетворення даних типа String в дійсні значення з плаваючою точкою типа Extended. Якщо необхідно працювати з даними цілого типу, використовується функція StrToInt.

При виведення даних в Memo1 використовується метод Addвластивості Lines, причому для перетворення даних з дійсного значення в рядкове і управління формою представлення результату, що виводиться, використовується функція FloatToStrF.

 


<== попередня лекція | наступна лекція ==>
Написання процедури обробки події натиснення кнопки Button1 (Button1Click). | Робота з консольним додатком.


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн