37713

Ознайомлення з інструментальним середовищем Lazarus

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

Информатика, кибернетика и программирование

Ознайомитись із середовищем програмування Lazarus. Написати програму яка забезпечує обчислення радіуса вписаного в трикутник кола за його сторонами.

Украинкский

2013-09-25

306.24 KB

16 чел.

Міністерство освіти і науки України

Хмельницький Національний Університет

Кафедра комп’ютерних систем та мереж

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

Структури даних і алгоритмів

Ознайомлення з інструментальним середовищем

Lazarus

Виконав:

Гика В. А.

Перевірив:

Лисенко С. М.

Хмельницький 2011

Мета роботи:

Ознайомитись із середовищем програмування Lazarus.

Завдання:

Написати програму яка забезпечує обчислення радіуса вписаного в трикутник кола за його сторонами.

Лістинг програми:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

 StdCtrls, ExtCtrls;

type

 { TForm1 }

 TForm1 = class(TForm)

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Image1: TImage;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

 private

   { private declarations }

 public

   { public declarations }

 end;

var

 Form1: TForm1;

 a,b,c,s,p,r:real;

implementation

{ TForm1 }

procedure TForm1.Button2Click(Sender: TObject);

begin

 close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 Edit1.Text:='';

 Edit2.Text:='';

 Edit3.Text:='';

 Label1.Caption:='Результат:';

end;

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c,s,p,r:real;

   begin

 a:=strtofloat(edit1.text);

 b:=strtofloat(edit2.Text);

 c:=strtofloat(edit3.Text);

 p:=(a+b+c)/2;

 s:=sqrt(p*(p-a)*(p-b)*(p-c));

 r:=S/P;

 label1.Caption:='Результат: r='+ floattostr(r)+ ' см.';

end;

initialization

 {$I unit1.lrs}

end.

Результати роботи програми:

Висновок: в даній роботі я ознайомився з середовищі Lazarus.


 

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

5068. Память. Факторы забывания и нарушения памяти 64.5 KB
  Впечатления, которые человек получает об окружающем мире, оставляют определенный след, сохраняются, закрепляются, а при необходимости и возможности - воспроизводятся. Эти процессы называются памятью. Без памяти, - писал С.Л. Рубинштейн...
5069. Боевые действия русского флота на Балтийском море в 1914-1917 гг 208.5 KB
  Русский флот в первую мировую войну вел боевые действия на Балтийском, Черном и Баренцевом морях, а отдельные корабли — в Средиземном море и на океанских театрах. Наиболее напряженная борьба шла на Балтийском и Черном морях. К началу войны русс...
5070. Маркетингові комунікації 621.5 KB
  В умовах насиченого ринку недостатньо розробити новий якісний товар, встановити на нього оптимальну ціну і вибрати ефективні канали розподілу. Все більшої ваги в управлінні підприємством набуває така складова комплексу маркетингу, як методи пр...
5071. Национальный доход: его производство, распределение и использование. Макроэкономический анализ совокупного спроса и совокупного предложения 1.97 MB
  Производство товаров и услуг. Объем производства товаров и услуг в экономике-ВНП-зависит от двух параметров: факторов производства и производственной функции.Рассмотрим каждый из них по очереди. Факторы производств...
5072. Математика в современных условиях. Конспект 486.5 KB
  Математика. Роль математики в современном мире. Основные этапы становления математики. Аксиоматический метод построения научной теории. Начала Евклида – образец научного метода. История создания неевклидовой геометрии. Тема...
5073. Рыночные структуры в условиях несовершенной конкуренции: монополия, олигополия, монополистическая конкуренция 391 KB
  Конкуренция, которая в той или иной степени связана с заметным ограничением свободного предпринимательства, называется несовершенной. Для этого вида конкуренции характерно незначительное количество фирм в каждой сфере предпринимательской де...
5074. Проектирование приспособления для контроля межцентрового расстояния 90.5 KB
  Проектирование приспособления для контроля межцентрового расстояния Для контроля межцентровых расстояний проектируется специальное контрольное приспособление, оснащенное индикатором часового типа. В базовом техпроцессе измерение межцентрового...
5075. Анализ монополий 157 KB
  Любой рынок, независимо от его конкретного вида, базируется на трех основных элементах: цене, спросе и предложении, конкуренции. Известно, что наиболее эффективно рыночный механизм действует в условиях свободной, или совершенной конкуренции...
5076. Вологодская область 430.5 KB
  Внешняя торговля Истоки внешней торговли вологжан затеряны в глубине веков. Однако подлинными воротами в Поморье Вологда стала после появления в ней англичан из экспедиции Ричарда Ченслера. Следовавшие в Москву с Белого моря британцы вполне оценил...