Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Зертханалық жұмыс. Тақырыбы: Delphi бағдарламалау ортасымен танысу

Тақырыбы: Delphi бағдарламалау ортасымен танысу. Сызықты құрылымды бағдарлама құру.

Мақсаты:Delphi бағдарламалау ортасымен танысып, онда қарапайым бағдарлама құруды үйрену. Стандартты компоненеттермен танысу.

 

Бастапқы берілгендер:

а) Z=lg(x)/ln(y)×ex/y

 

б) C=8,36•103,5+2sin2(3,14+z)-3+ - ctg =-0,17; z=3,81

 

 

а)

 

 

 

 

 

б) unit Unit1;

 

interface

 

uses

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

Dialogs, ExtCtrls, StdCtrls;

 

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

GroupBox1: TGroupBox;

Image1: TImage;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

var x,z:real;

c:real;

begin

x:=strtofloat(edit1.text);

z:=strtofloat(edit2.text);

c:=8.36*exp(3.5*ln(10))+2*sin(exp((-3)*ln(3.14+z)))*sin(exp((-3)*ln(3.14+z)))+exp(ln(abs(x))/2)*(sin(sqr(x)))/(x+exp(x))-(cos(abs(x/2)))/(sin(abs(x/2)));

edit3.Text:=('c= '+FLOATTOSTR(c));

end;

 

end.

 

 

 

 

Бақылау сұрақтарына жауаптар:

<== предыдущая лекция | следующая лекция ==>
Роль жертвы в механизме преступного поведения.Виктимогенные факторы. | Зертханалық жұмыс.

mylektsii.su - Мои Лекции - 2015-2021 год. (0.008 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал