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.


 

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

15890. Что такое мироощущение опыт осмысления 381.55 KB
  В.К. Шрейбер к. филос. н. доц. Челябинский государственный университет ЧТО ТАКОЕ МИРООЩУЩЕНИЕ: ОПЫТ ОСМЫСЛЕНИЯ Мироощущение относят к феноменам мировоззренческого круга. Но что подразумевается под мироощущением Ощущение о каких бы его типах не говорить...
15891. Механизмы интерпретации классического текста в «Чайке» Б. Акунина 44.5 KB
  Механизмы интерпретации классического текста в Чайке Б. Акунина Н. А. Кузьмина Омский государственный университет Интерпретация вторичный текст римейк прототекст Summary. The article deals with the specific genre of postmodernistic fiction remake and peculiarities of interpretation classic literary prototexts. Аксиомой...
15892. ПРИМЕРНЫЕ СХЕМЫ АНАЛИЗА ЛИТЕРАТУРНЫХ ПРОИЗВЕДЕНИЙ 83 KB
  ПРИМЕРНЫЕ СХЕМЫ АНАЛИЗА ЛИТЕРАТУРНЫХ ПРОИЗВЕДЕНИЙ Анализ художественного произведения Анализ прозаического литературного произведения Концептуальный уровень художественного произведения Уровень организации произведения как художественного целого Урове...
15893. «СВОЕ» И «ЧУЖОЕ» В ЭПИЧЕСКОМ ТЕКСТЕ К вопросу о «родовых» структурных признаках 86 KB
  Н.Д.ТАМАРЧЕНКО СВОЕ И ЧУЖОЕ В ЭПИЧЕСКОМ ТЕКСТЕ К вопросу о родовых структурных признаках Слово эпос в русской культурной традиции обозначает и литературный род и один из жанров относимых к этому роду эпопею иногда в этом случае употребляется термин
15894. Структура художественного произведения и ее анализ 48.5 KB
  Структура художественного произведения и ее анализ Художественное произведение сложноорганизованное целое. Необходимо познать его внутреннюю структуру то есть выделить отдельные его составляющие и осознать связи между ними. В современном литературоведении с
15895. Бахтин как парадигма мышления 71.5 KB
  В.И. Тюпа Бахтин как парадигма мышления To the 100 birth anniversary of Michael Bakhtin we publish Valery Tjupa's paper Bakhtin as a Paradigm of Mentality with the author`s attempt to reconstruct the axiomatics of Bakhtin discourses of scientific and philosophical nature. Three axiomatic complexes discovered by the author: personalism eventfulness responsibility can be subdivided into three more special axioms. Бахтин теперь моден....
15896. Эстетический анализ художественного текста (Часть первая: Сюжет Фаталиста М.Лермонтова) 73.5 KB
  В.И. Тюпа Эстетический анализ художественного текста Часть первая: Сюжет Фаталиста М.Лермонтова Конечная цель преподавания литературы в школе формирование культуры художественного восприятия. В этом собственно говоря и состоит общественное назначение литератур...
15897. Природа художественной целостности комедий А.П. Чехова Чайка и Вишнёвый сад 87 KB
  О.С. Рощина Природа художественной целостности комедий А.П. Чехова Чайка и Вишнёвый сад Olga Roschina in her work The Nature of Artistic Integrity of Chekhov`s Comedies Seagull and Cherry Orchard treats them from the point of aesthetic analises of the text. The ironical nature of Chekhov`s texts is proved which are often interpreted in a pseudoChekhov`s elegical way. В чеховедении доста