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.


 

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

67894. ПОНЯТИЕ И ВИДЫ МАТЕРИАЛЬНОЙ ОТВЕТСТВЕННОСТИ ВОЕННОСЛУЖАЩИХ 49 KB
  Грибовский ответственность должностных лиц имеет в России громадное значение ввиду чрезвычайно многочисленного класса чиновников с одной стороны и громадного их влияния на общественную и государственную жизнь с другой. Ответственность эта делится на уголовную гражданскую и дисциплинарную.
67895. НАЛОГОВЫЕ ДОГОВОРЫ ОБ ИЗМЕНЕНИИ СРОКОВ УПЛАТЫ НАЛОГОВ И СБОРОВ 86.5 KB
  Предоставление налогового кредита оформляется договором между уполномоченным на то органом и соискателем такого кредита. Жуков в экономическом аспекте данная отсрочка платежа в виде налогового кредита означает предоставление кредита.
67896. ДЕТЕРМИНИЗМ, ИНДЕТЕРМИНИЗМ ИЛИ СВОБОДА ВОЛИ? 104.5 KB
  Детерминизм (от лат. determino — определяю) — учение классической философии о закономерной универсальной взаимосвязи и взаимообусловленности явлений объективной действительности1. Понятие «детерминизм» возникло в средневековье как вид логического определения понятия, противостоящий генерализации...
67897. ПРАВО ДОЛЖНОСТНЫХ ЛИЦ ПРАВООХРАНИТЕЛЬНЫХ ОРГАНОВ НА ОЦЕНКУ СОБСТВЕННЫХ ДЕЙСТВИЙ 66 KB
  В Обращении к сотрудникам органов внутренних дел и военнослужащим внутренних войск МВД России министр внутренних дел Российской Федерации генерал-полковник милиции Р. Однако зачастую милиция может проявить свою самостоятельность и автономию применяя право милиции на оценку собственных действий...
67898. К ВОПРОСУ О ПОНЯТИИ КОРРУПЦИИ И ПУТЯХ ПРОТИВОДЕЙСТВИЯ ЕЙ 92.5 KB
  Особенности характерные для экономической преступности высокое общественное положение субъектов ее совершения изощренно интеллектуальные способы их действий огромный материальный физический и моральный ущерб ими причиняемый исключительная латентность экономических посягательств и снисходительное...
67899. ПРОБЛЕМЫ ОБЕСПЕЧЕНИЯ ЗАКОННОСТИ ПРИ ПРИМЕНЕНИИ МЕР АДМИНИСТРАТИВНОГО ПРЕСЕЧЕНИЯ 93 KB
  Исследование применения мер административного пресечения предполагает обращение к проблемам законности при осуществлении данного вида правоприменительной деятельности. К этому подвигает не только важность теоретического анализа механизма обеспечения законных прав и интересов при реализации...
67900. ПРИЧИНУ РОСТА ПРЕСТУПНОСТИ НАЗЫВАЕТ ХРИСТИАНСКАЯ АНТРОПОЛОГИЯ 130 KB
  Последние открытия генетиков и расшифровка генома человека позволили сделать вывод что почти все социальные проявления разумеется и преступное поведение человека запрограммированы. составила 296 против 345 в 1997 году безработных с другой а совсем в другом не во внешних обстоятельствах...
67901. СРАВНИТЕЛЬНЫЙ АНАЛИЗ СТАТУСА АДМИНИСТРАТИВНО-ТЕРРИТОРИАЛЬНЫХ ЕДИНИЦ В РОССИЙСКОЙ ФЕДЕРАЦИИ 81 KB
  В настоящее время административная карта Российской Федерации насчитывает 1863 района 650 городов республиканского областного краевого окружного подчинения 318 городских районов и округов более 400 городов районного подчинения около двух тысяч поселков городского типа и свыше 24 тысяч...
67902. ОСОБЕННОСТИ РЕАЛИЗАЦИИ СОВРЕМЕННОГО ЛИЦЕНЗИОННОГО ЗАКОНОДАТЕЛЬСТВА 260.5 KB
  О лицензировании отдельных видов деятельности который с одной стороны ограничил круг органов которые могут осуществлять лицензирование ст. Уменьшение числа лицензируемых видов деятельности следует связывать с появлением понимания ограничительной роли лицензионной системы и выявлением в ходе...