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.


 

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

36140. Подрезание и заострение зуба 491 KB
  Согласно свойствам эвольвентного зацепления прямолинейная, т. е. эвольвентная, часть ИПК и эвольвентная часть профиля зуба колеса располагаются касательно друг к другу только на линии станочного зацепления, начинающейся в точке N.
36141. Анатомия. Ответы к экзамену 1.83 MB
  Мышцы производящие эти движения их кровоснабжение и иннервация. Движения мышцы действующие на суставы их кровоснабжение и иннервация. Движения ребер мышцы производящие эти движения их кровоснабжение и иннервация. Ребра ограничивающие нижнюю апертуру образуют реберную дугу Мышцы груди Мышцы груди разделяются на мышцы начинающиеся на поверхности грудной клетки и на собственные аутохтонные мышцы груди входящие в состав стенок грудной полости.
36142. Нервная система. Классификация нервной системы 586 KB
  мозг делится на ствол мозга полушария большого мозга и мозжечок. В коре полушарий головного мозга осуществляется анализ и синтез различных раздражений внешнего мира. К таким эфферентным нейронам можно отнести нейроны различных отделов мозга посылающие аксоны идущие в составе длинных нисходящих трактов к спинному мозгу. На головном конце животного который при движении вперед соприкасается с различными предметами окружающего мира развиваются органы чувств в связи с чем головные узлы развиваются сильнее остальных являясь прообразом...
36143. Опорно-двигательный аппарат 432.5 KB
  Макроскопически кость состоит из расположенного по периферии компактного вещества substanfia compacta и губчатого вещества siibsianlia spongiosa массы костных перекладин в середине кости. Зтк перекладины расположены не беспорядочно а соответствен ко линиям сжатия и растяжения которые действуют на определенные участки кости. Костномозговая полость находящаяся в толще трубчатой кости выстлана соединительнотканной оболочкой эндостомом endostemn Ячейки губчатого вещества и костномозговая полость в трубчатых костях...
36145. Анатомия. Общие вопросы 1.84 MB
  Знание морфофункциональных особенностей организма ребенка особенно важно так как именно как в период его становления при неправильной организации условий жизни и обучения особенно быстро возникают различные патологические нарушения функций нервной системы опорнодвигательного аппарата сердечно сосудистой системы и др. В образовании каждого органа участвуют различные ткани но одна из них является главной ведущей рабочей мозг нервная ткань. Аристотель различал у животных сухожилия и нервы кости и хрящи. Клавдий Гален описал 7 пар из...
36146. Сердечно-сосудистая система. Шпора 279.5 KB
  Артерии располагаются по ходу нервной трубки и нервов. Кроме того артерии первоначально закладываются в связи с главными нервами: например на верхней конечности в связи с n. Соответственно делению организма на органы растительной и животной жизни артерии делятся на париетальные к стенкам полостей тела и висцеральные к содержимому их т. Артерии туловища сохраняют сегментарное строение: aa.
36147. Внутренние органы 373.5 KB
  Нижняя поверхность языка свободна только в передней части; задняя часть занята мышцами. Три части: pars nasalis pars oralis и pars laryngea. В шейной части пищевода мышцы поперечнополосатые в верхнем отделе грудной части они смешанного типа нижней трети гладкие. Топография 3 части: 1шейную; 2грудную; 3брюшную.
36148. Железы внутренней секреции 61.5 KB
  Эндокринными железами endo внутрь crino выделяю или железами внутренней секреции называются такие железы которые не имеют выводного протока беспроточные железы glandulae sine ductibus и свой секрет выделяют непосредственно в кровеносную систему в противоположность железам внешней секреции секрет или экскрет которых изливается на поверхность кожи потовые сальные железы или слизистых оболочек слюнные железы печень и т. Так как выделение секрета совершается в кровеносную систему то эндокринные железы обладают широко развитой...