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.


 

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

81495. Биосинтез мочевины. Связь орнитинового цикла с ЦТК. Происхождение атомов азота мочевины. Нарушения синтеза и выведения мочевины. Гипераммонемии 382.01 KB
  Мочевина - основной конечный продукт азотистого обмена, в составе которого из организма выделяется до 90% всего выводимого азота. Экскреция мочевины в норме составляет 25 г/сут. При повышении количества потребляемых с пищей белков экскреция мочевины увеличивается.
81496. Обмен безазотистого остатка аминокислот. Гликогенные и кетогенные аминокислоты. Синтез глюкозы из аминокислот. Синтез аминокислот из глюкозы 162.72 KB
  В ходе катаболизма аминокислот происходит отщепление аминогруппы и выделение аммиака. Другим продуктом дезаминирования аминокислот служит их безазотистый остаток в виде α-кетокислот. Катаболизм аминокислот происходит практически постоянно. За сутки в норме в организме человека распадается примерно 100 г аминокислот, и такое же количество должно поступать в составе белков пищи.
81497. Трансметилирование. Метионин и S-аденозилметионин. Синтез креатина, адреналина и фосфатидилхолинов 166.74 KB
  Метальная группа метионина мобильный одноуглеродный фрагмент используемый для синтеза ряда соединений. Перенос метильной группы метионина на соответствующий акцептор называют реакцией трансметилирования имеющей важное метаболическое значение. Метальная группа в молекуле метионина прочно связана с атомом серы поэтому непосредственным донором этого одноутлеродного фрагмента служит активная форма аминокислоты. Реакция активация метионина Активной формой метионина является Sаденозилметионин SM сульфониевая форма аминокислоты...
81498. Метилирование ДНК. Представление о метилировании чужеродных и лекарственных соединений 108.02 KB
  Метилирование ДНК это модификация молекулы ДНК без изменения самой нуклеотидной последовательности ДНК что можно рассматривать как часть эпигенетическойсоставляющей генома. Метилирование ДНК заключается в присоединении метильной группы к цитозину в позиции С5 цитозинового кольца. У человека за процесс метилирования ДНК отвечают три фермента называемые ДНКметилтрансферазами 1 3 и 3b DNMT1 DNMT3 DNMT3b соответственно.
81499. Источники и образование одноуглеродных групп. Тетрагидрофолиевая кислота и цианкобаламин и их роль в процессах трансметилирования 168.87 KB
  Образование и использование одноуглеродных фрагментов. Ещё один источник формального и формиминофрагментов гистидин. Все образующиеся производные Н4фолата играют роль промежуточных переносчиков и служат донорами одноуглеродных фрагментов при синтезе некоторых соединений: пуриновых оснований и тимидиловой кислоты необходимых для синтеза ДНК и РНК регенерации метионина синтезе различных формиминопроизводных формиминоглицина и т. Перенос одноуглеродных фрагментов к акцептору необходим не только для синтеза ряда соединений но и для...
81500. Антивитамины фолиевой кислоты. Механизм действия сульфаниламидных препаратов 104.02 KB
  В медицинской практике в частности в онкологии нашли применение некоторые синтетические аналоги антагонисты фолиевой кислоты. Аминоптерин является наиболее активным цитостатикомантагонистом фолиевой кислоты; отличается высокой токсичностью вследствие чего показан лишь при тяжёлых формах псориаза. ПАБК необходима микроорганизмам для синтеза фолиевой кислоты которая превращается в фолиниевую кислоту участвующую в синтезе нуклеиновых кислот.
81501. Обмен фенилаланина и тирозина. Фенилкетонурия; биохимический дефект, проявление болезни, методы предупреждения, диагностика и лечение 261.77 KB
  Тирозин условно заменимая аминокислота поскольку образуется из фенилаланина. Метаболизм феиилаланина Основное количество фенилаланина расходуется по 2 путям: включается в белки; превращается в тирозин. Превращение фенилаланина в тирозин прежде всего необходимо для удаления избытка фенилаланина так как высокие концентрации его токсичны для клеток.
81502. Алкаптонурия и альбинизм: биохимические дефекты, при которых они развиваются. Нарушение синтеза дофамина, паркинсонизм 403.53 KB
  Нарушение синтеза дофамина паркинсонизм. Заболевание развивается при недостаточности дофамина в чёрной субстанции мозга. Для лечения паркинсонизма предлагаются следующие принципы: заместительная терапия препаратамипредшественниками дофамина производными ДОФА леводопа мадопар наком и др. подавление инактивации дофамина ингибиторами МАО депренил ниаламид пиразидол и др.
81503. Декарбоксилирование аминокислот. Структура биогенных аминов (гистамин, серотонин, γ-аминомасляная кислота, катехоламины). Функции биогенных аминов 239.46 KB
  Процесс отщепления карбоксильной группы аминокислот в виде СО2 получил название декарбоксилирования. В живых организмах открыты 4 типа декарбоксилирования аминокислот. αДекарбоксилирование характерное для тканей животных при котором от аминокислот отщепляется карбоксильная группа стоящая по соседству с αуглеродным атомом.