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.


 

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

84721. Положение о Посольстве Российской Федерации и Чрезвычайном и Полномочном После Российской Федерации 18.16 KB
  Положение о Посольстве Российской Федерации и Чрезвычайном и Полномочном После Российской Федерации. Посольство высший класс зарубежного государственного органа внешних сношений осуществляющий представительство Российской Федерации в стране пребывания. Указанный статус определяет уровень реализации внешнеполитического курса Российской Федерации в стране пребывания; защиту национальных и имущественных интересов своей страны прав и интересов российских граждан и юридических лиц; ведение переговоров с правительством государства пребывания;...
84722. Задачи и функции российских диппредставительств 14.84 KB
  Защита в государстве пребывания интересов аккредитующего государства и его граждан в пределах допускаемых международным правом; ведение переговоров с правительством государства пребывания; выяснение всеми законными средствами условий и событий в государстве пребывания и сообщение о них правительству аккредитующего государства; поощрение дружественных отношений между государствами конструктивное развитие их...
84723. Ремонт Рессоры ГАЗ - 53 1.21 MB
  Рессоры предназначены для смягчения толчков при наезде на неровности на дороге. При наезде автомобиля на какую-нибудь неровность рессоры прогибаются и смягчают толчок. Кроме этого, через них передается автомобилю толкающее усилие от ведущих колес и усилие при их торможении.
84724. Разработка автоматизированного участка изготовления детали Вал 5 499 KB
  Автоматизация производственных процессов на основе внедрения роботизированных технологических комплексов РТК и гибких производственных модулей ГПМ вспомогательного оборудования транспортно-накопительных и контрольно-измерительных устройств объединенных в гибкие...
84725. Технологічний процес обробки деталі Лабіринт 492 KB
  Відповідно до особливостей деталей, характеру між операційних зв’язків і форм організаційно-виробничого процесу, необхідно обирати підйомно-транспортні засоби і розрахувати потребу у них. При виборі підйомно-транспортних засобів необхідно суворе дотримання зв’язку їхньої роботи і загального ритму виробництва. Як підйомно-транспортні засоби в механічних цехах з потоковим виробництвом деталей середньої маси доцільно використовувати монорейки
84726. Оцінка цілісного майнового комплексу автомобілебудівельного заводу 169.25 KB
  Провести аналіз інвестиційної привабливості піприємства; Окреслити теоретичні аспекти дослідження вартості піприємства як майнового комплексу; Дослідити методичні підходи до оцінки вартості підприємства як майнового комплексу; Провести практичну роботу з оцінки цілісного майнового комплексу.
84727. МИНИСТЕРСТВО ФИНАНСОВ РЕСПУБЛИКИ БЕЛАРУСЬ КАК ОРГАН ФИНАНСОВОГО КОНТРОЛЯ 178 KB
  Важнейшей функцией любого государства является контрольная функция, предполагающая контроль со стороны государства за соблюдением хозяйствующими субъектами экономических и правовых правил и норм в процессе их хозяйственной деятельности, а также контроль за исполнительной властью.
84729. Разработка рекомендаций для ООО «Тюменьмебелькомплект» по продвижению продукции на целевой рынок 93.16 KB
  Цель данной работы – изучить различные подходы, методы и принципы сегментирования рынка. Для достижения поставленной цели, необходимо выполнить следующие задачи: Определить основные понятия, признаки и критерии сегментирования рынка Выбрать целевой сегмент и позиционирование товара...