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.


 

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

18367. Массивы. Обработка элементов 222.5 KB
  15 урок. Массивы. Обработка элементов. Дан массив из 10 элементов вывести их на экран и рассчитать квадратный корень из nэлемента n11 вводится с клавиатуры. Дан массив целых чисел выяснить является ли nэлемент n11 вводится с
18368. Массивы - поиск по условию 662 KB
  16 урок. Массивы поиск по условию. Дан массив из 20 элементовцелых. Вывести на экран первоначальное состояниет.е. сами элементы затем только нечетные и их кво. Дан массив из 10 элементов. Вывести на экран сам массив и номера вхо
18369. Массивы - изменение исходного массива 236 KB
  18 урок. Массивы изменение исходного массива. Массив из 5 элементов. Поменять местами 3 и 5 элементы. Часть а. Массив из 6 элементов. Часть б. Массив из 6 элементов. Удалить из массива 3 элемент. Т.е. 456 элеме
18370. Двумерный массив 353.5 KB
  19 урок. Двумерный массив. 1 урок Двумерный массив задается : цел таб а[1:n11:n2] Массив из целых чисел 4Х4 заполняется генератором случайных чисел. Вывести сначала все элементы построчно на экран и 3 элемент в 1 . Составить программу для вы...
18371. Литерные величины 439 KB
  20 урок. Литерные величины. Команды обработки литерныхтекстовых величин: а:=длинб результатом является число символов в текстовой переменной. Вырезка а[3:5] например: дает вырезку с 3 символа по пятый. Взятие символа а[3] выводит 3 символ
18372. Литерные величины и цикл 1.42 MB
  21 урок. Литерные величины и цикл. Введенное слово напечатать его а наоборот б четные буквы. Вариант б Получить строку состоящую из 5 символов Введено слово добавить в начале и в конце слова столько звездочек...
18373. Обработка цифр в строке 1.8 MB
  22 урок. Обработка цифр в строке. Определить сколько цифр во введенной строке. 1 способ нерациональный 2 способ рациональный. Дан текст с цифрами. Найти сумму цифр в нем. Дано трехзначное число. На...
18374. Вспомогательные алгоритмы 52 KB
  23 урок. Вспомогательные алгоритмы. Если алгоритм А вызывает алгоритм Б то алгоритм А называется основным а алгоритм Б вспомогательным. Рассмотрим пример на сложение 2 чисел и вывод результата на экран.
18375. Графика. Команды графики 82 KB
  24 урок. Графика1 занятие. Команды графики: использовать Чертежник перед алгоритмом для вызова Чертежника. установить цветкрасный устанавливает цвет рисования черный белый красный оранжевый желтый зеленый голубой синий фиолетовый О