16624

ОТЧЕТ О ЛАБОРАТОРНОМ ПРАКТИКУМЕ ПО СРЕДЕ ПРОГРАММИРОВАНИЯ DELPHI

Лабораторная работа

Производство и промышленные технологии

ОТЧЕТ О ЛАБОРАТОРНОМ ПРАКТИКУМЕ ПО СРЕДЕ ПРОГРАММИРОВАНИЯ DELPHI Лабораторная работа № 1 где x = 6251; y = 0827 ; z = 25001 . unit lab1; interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls; type TForm1 = classTForm Label1: TLabel; Label2: TLabel; Label3: TLabel;

Русский

2013-06-22

297.76 KB

4 чел.

ОТЧЕТ О ЛАБОРАТОРНОМ ПРАКТИКУМЕ ПО СРЕДЕ ПРОГРАММИРОВАНИЯ DELPHI

Лабораторная  работа  № 1

где  x = -6,251 ;   y = 0,827 ;   z = 25,001 .

unit lab1;

interface

uses

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

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Edit4: TEdit;

   Edit5: TEdit;

   Button1: TButton;

   Button2: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

 a, x, y: real;

 begin

 x:=StrToFloat(Edit1.Text);

 y:=StrToFloat(Edit2.Text);

if (y<=0) or (y=1) then

                        begin ShowMessage ('Некорректное число');

                        Edit4.Text:= ('');

                        end

                 else

      begin

a:=exp(3*ln((exp(y-3)+exp(3-y))/2))+ exp(r*ln(y));;

Edit4.Text:=FloatToStr(a);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  b, x, y, z: single;

begin

  x:=StrToFloat(Edit1.Text);

  y:=StrToFloat(Edit2.Text);

  z:=StrToFloat(Edit3.Text);

    b:=(y*(arctan(z)-(PI/6)))/(abs(x)+((1)/(sqr(y)+1)));

    Edit5.Text:=FloatToStr(b);

end;

end.

Лабораторная  работа  № 2

unit lab2;

interface

uses

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

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

   x: single;

begin

   x:=exp(-0.25*ln(4))-exp((-4/3)*ln(sqrt(8)))*(sin(4)/cos(4));

   Edit1.Text:=FloatToStr(x);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

    y: single;

begin

   y:=cos(2*arctan(1/5)+arctan(1/4));

   Edit2.Text:=FloatToStr(y);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

    x, y, z: single;

begin

    x:=StrToFloat(Edit1.Text);

    y:=StrToFloat(Edit2.Text);

    if (x<5*abs(y))

    then

         z:=ln(abs(2*x-3*exp(2)*y))

    else

         z:=ln(abs(2*x*exp(2)-3*y));

    Edit3.Text:=FloatToStr(z);     

end;

end.

Лабораторная  работа  № 3

Составить циклическую программу табулирования функции:

для   1 X 10   с  шагом   X = 1   и  коэффициентами:

= 1,5 ;   b = 2,8 ;   c = 3,6 ;   d = 1,5 .

Оператор FOR

unit laboratormaia3;

interface

uses

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

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Edit4: TEdit;

   Edit5: TEdit;

   Edit6: TEdit;

   Edit7: TEdit;

   Memo1: TMemo;

   Button1: TButton;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  dx, N, i: integer;

  a, b, c, d, y, Xn, Xk, x: real;

begin

  Memo1.Clear;

    a:=StrToFloat(Edit1.Text);

    b:=StrToFloat(Edit2.Text);

    c:=StrToFloat(Edit3.Text);

    d:=StrToFloat(Edit4.Text);

    Xn:=StrToFloat(Edit5.Text);

    Xk:=StrToFloat(Edit6.Text);

    dx:=StrToInt(Edit7.Text);

       N:=Trunc((Xk-Xn)/dx+1);

       for i:=1 to N do

       begin

         x:=Xn+(i-1)*dx;

y:=((sin(d*x)+1)/(ln(2+d)))*((exp(3*ln(x))+a*sqr(x)+b)/(c*x+d))*ln(3*x);

    Memo1.Lines.Add(Format('%2d',[i])+

                    Format('     x=%6.2f',[x])+

                    Format('     f(x)=%7.3f',[y]));

                    end;

end;

end.

 Оператор REPEAT UNTIL

unit laboratormaia3b;

interface

uses

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

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Edit4: TEdit;

   Edit5: TEdit;

   Edit6: TEdit;

   Edit7: TEdit;

   Memo1: TMemo;

   Button1: TButton;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  dx: integer;

  a, b, c, d, y, Xn, Xk, x: real;

begin

  Memo1.Clear;

    a:=StrToFloat(Edit1.Text);

    b:=StrToFloat(Edit2.Text);

    c:=StrToFloat(Edit3.Text);

    d:=StrToFloat(Edit4.Text);

    Xn:=StrToFloat(Edit5.Text);

    Xk:=StrToFloat(Edit6.Text);

    dx:=StrToInt(Edit7.Text);

       repeat

y:=((sin(d*x)+1)/(ln(2+d)))*((exp(3*ln(x))+a*sqr(x)+b)/(c*x+d))*ln(3*x);

    Memo1.Lines.Add(   Format('     x=%6.2f',[x])+

                    Format('     f(x)=%7.3f',[y]));

         x:=x+dx;

       until (x>Xk) ;           

end;

end.

Оператор WHILE

unit laboratormaia3b;

interface

uses

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

 Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Edit4: TEdit;

   Edit5: TEdit;

   Edit6: TEdit;

   Edit7: TEdit;

   Memo1: TMemo;

   Button1: TButton;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  dx: integer;

  a, b, c, d, y, Xn, Xk, x: real;

begin

  Memo1.Clear;

    a:=StrToFloat(Edit1.Text);

    b:=StrToFloat(Edit2.Text);

    c:=StrToFloat(Edit3.Text);

    d:=StrToFloat(Edit4.Text);

    Xn:=StrToFloat(Edit5.Text);

    Xk:=StrToFloat(Edit6.Text);

    dx:=StrToInt(Edit7.Text);

    while (x<Xk) do begin

y:=((sin(d*x)+1)/(ln(2+d)))*((exp(3*ln(x))+a*sqr(x)+b)/(c*x+d))*ln(3*x);

    Memo1.Lines.Add(   Format('     x=%6.2f',[x])+

                    Format('     f(x)=%7.3f',[y]));

         x:=x+dx;

         end ;           

end;

end.

Лабораторная  работа  № 4

Составить  программу  вычисления  функции:

 

Значения  c ,  d,  x   и  массив  Bi ( i  )  вводятся с клавиатуры.

unit lab4;

interface

uses

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

 Dialogs, StdCtrls, Grids;

type

 TForm1 = class(TForm)

   StringGrid1: TStringGrid;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Label5: TLabel;

   Button1: TButton;

   Edit4: TEdit;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

A: Array [1..12] of real;

c, d, x, sum: real;

i: integer;

begin

for i:=i to 12 do

begin

if length (StringGrid1.Cells[i-1,0])<>0

Then A[i]:=StrToFloat(StringGrid1.Cells[i-1,0])

Else A[i]:=0;

end;

sum:=0;

if x>=0.75 then

          begin for i:=1 to 12 do

                sum:=A[i]-x;

                end

         else   sum:=sqr(c)*sqr(x)+d;

Edit4.Text:=FloatToStr(sum);

end;

end.

Лабораторная  работа  № 5

Дана  матрица  cij ( i   ;   j   ).   

Найти   сумму   всех   отрицательных   элементов   и   сумму   элементов   по  главной  диагонали  ( т. е.   ,   если   i j ).

Вывести  на  печать  исходную  матрицу  и  результаты.

unit lab005;

interface

uses

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

 Dialogs, Grids, StdCtrls;

type

 TForm2 = class(TForm)

   Label1: TLabel;

   StringGrid1: TStringGrid;

   Label2: TLabel;

   Label3: TLabel;

   Button1: TButton;

   Edit1: TEdit;

   Edit2: TEdit;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

var

C: array [1..4,1..4] of real;

i,j     :integer;

Sotr,Sdiag: real;

begin

for i:=1 to 4 do

    For j:=1 to 4 do

 C[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1]);

Sotr:=0;

Sdiag:=0;

for i:=1 to 4 do

for j:=1 to 4 do

if (C[i,j]<0)

           then Sotr:=Sotr+C[i,j]

           else Sotr:=Sotr+0;

Edit1.Text:=FloatToStr(Sotr);

for i:=1 to 4

do

for j:=1 to 4 do

if (i=j)then Sdiag:=Sdiag+C[i,j]

       else Sdiag:=Sdiag+0;

Edit2.Text:=FloatToStr(Sdiag);

end;

end.


 

А также другие работы, которые могут Вас заинтересовать

46611. Офіційно-діловий стиль сучасної української літературної мови. Підстилі й жанри офіційно-ділового стилю. Їхня характеристика 22 KB
  Офіційноділовий стиль сучасної української літературної мови. Підстилі й жанри офіційноділового стилю. В українській літературній мові виділяють п'ять основних функціональних стилів: публіцистичний розмовний науковий художній офіційноділовий. Офіційноділовий функціональний стиль літературної мови що використовують у сфері офіційноділових відносин.
46612. Поняття термін, термінологія, терміносистема. Проблеми кодифікації та стандартизації сучасної економічної терміносистеми 22 KB
  Термінологія це сукупність термінів певної галузі або мови або розділ лексикології вивчає терміни різних галузей знань. Терміносистема це система термінів у певній галузі підгалузі наукового знання що обслуговує певну наукову концепцію або теорію. Кодифікація це систематизація термінів у словниках та довідниках. Стандартизація це вироблення еталонів термінів унормування термінології певної галузі.
46613. Поняття граматична норма. Стилістичні можливості граматичних форм у різностильових текстах 22 KB
  Стилістичні можливості граматичних форм у різностильових текстах. Вони передбачають правильне вживання граматичних форм слів узгодження керування прилягання морфологічні та правильне утворення словосполучень і речень синтаксичні. Граматична форма слова це засіб вираження граматичного значення показник граматичних значень. Прикладами граматичних форм можуть бути закінчення афікси наголос службові слова суплетивні форми порядок слів у реченні чергування звуків чи взагалі контекст.
46614. Синтаксична норма. Складні випадки керування 22 KB
  Складні випадки керування. Вони передбачають правильне вживання граматичних форм слів узгодження керування прилягання морфологічні та правильне утворення словосполучень і речень синтаксичні. Керування вид підрядного зв'язку коли головне слово вимагає від залежного конкретної граматичної форми яка зберігається при зміні форми головного слова читати книгу читаю книгу. Складні випадки керування: близькі за значенням слова вимагають різних відмінків оволодіти англійською мовою опанувати англійську мову; слова пароніми окрім...
46615. Усна форма літературної мови. Орфоепічні норми як компонент формування мовної компетенції фахівця 22 KB
  Усна форма літературної мови. Усна форма мови це мова яка використовується у спілкуванні. Важливим елементом усної мови є інтонація від якої залежить зміст вислову. Мовна норма сукупність найтісніших усталених елементів мови які в процесі історичного розвитку відібрала і закріпила мовна практика певного суспільства; вони зафіксовані у правописі граматиках і словниках.
46616. Мовний етикет 22 KB
  Він є одним із показників культури мови. Культура мови ознака літературної мови параметр за яким встановлюються авторитетні загальновизнані стандарти реалізовані в нормах писемного й усного спілкування. З культурою мови насамперед пов'язують уміння правильно говорити й писати дотримуватися всіх норм літературної мови.
46617. Типи економічних словників. Їхня характеристика 22 KB
  Також існують ще й спеціальні словники тобто такі в яких набір слів стосується певної галузі знань. Одними з таких є економічні словники. Економічні словники можна класифікувати порізному. Словники відіграють надзвичайно важливу роль у житті кожної людини а спеціальні у житті професіонала.
46619. Общие требования к уроку изобразительного искусства. Традиционный урок его структура и особенности 22.37 KB
  опыт; развивающий характер занятий; реализация дидактических принципов в оптимальных соотнощениях; обеспечение надлежащих условий для продуктивнопознавательной деятти с учетом особенностей интересов; установление межпредметных связей; связь с ранее изученным преемственность; активизация познавательных процессов мотивации; логичность и эмоциональность педагогического процесса; эффективное использование педагогических средств; связь с жизнью; формирование ЗУНОВ;формирование умения учиться; ориентировка на зону ближайшего...