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

3 чел.

ОТЧЕТ О ЛАБОРАТОРНОМ ПРАКТИКУМЕ ПО СРЕДЕ ПРОГРАММИРОВАНИЯ 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.


 

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

55573. Додавання і віднімання раціональних чисел 54 KB
  Мета: удосконалити вміння застосовувати правила додавання та віднімання дробів до розв’язування вправ і задач; розвивати пізнавальний інтерес, математичну мову; виховувати відповідальне відношення до навчання
55574. Квадратный километр и квадратный миллиметр 46.5 KB
  Цели : познакомить с новыми единицами измерения площади: квадратный километр и квадратный миллиметр; научить детей заменять одни единицы площади другими; развивать умение использовать в работе изученные квадратные и линейные единицы измерения...
55575. АЛГОРИТМ ИДЕАЛЬНОГО РАЗУМА 139.5 KB
  В статье раскрыты моменты: функции обработки информации доминанты функций обработки информации единицы измерения естественного и искусственного интеллектов моделирование функций обработки информации тестирование работы искусственного интеллекта.
55576. Развитие речи на уроках русского языка 86 KB
  Если например на уроках русского языка ученики осознают структуру текста типа рассуждения и научатся создавать такие тексты они смогут более доказательно и четко отвечать на вопросы которые начинаются словом...
55577. Буквы о и а в корне –кос- - -кас- 114 KB
  Оборудование: Доска презентация по теме словообразование презентация Сказка о двух братьях Кос и Кас раздаточный материал. Назовите основные способы образования слов в русском языке с примерами.
55578. Читання як спосіб іншомовної комунікації 38 KB
  Враховуючи ці особливості формування компетенції в читанні та той факт що читання поряд з усним мовленням є найбільш розповсюдженим способом іншомовної комунікації пропоную у якості домашнього читання для учнів...
55579. РІЗНОМАНІТНІСТЬ УРОКІВ ЧИТАННЯ ЯК ШЛЯХ ПІДВИЩЕННЯ ЯКОСТІ ЧИТАННЯ В ПОЧАТКОВИХ КЛАСАХ 105.5 KB
  Всім давно відомо що знання фантазія логіка думки і міркувань любов до рідної мови уміння зв’язно логічно і образно розповідати виховуються читанням. Від учителя початкових класів в значній мірі залежить чи полюблять діти читання...
55580. Шляхи формування самостійного читача в системі позакласного читання 135 KB
  З читання як самостійної діяльності дитини у світі книг починається її самоосвіта самовиховання формування високих художніх смаків розвиток духовних сил. Читання практична діяльність.
55581. READING 104.5 KB
  God blessed the monastery when Ukraine became independent. In 1993 it was opened by the efforts of many people. Mother Superior Vira and nuns of the abode accepted the responsibility to restore the old monastery.