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.


 

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

54442. ЦВІТИ І СМІЙСЯ, РІДНЕ СЛОВО! У СЕРЦІ ЩИРОМУ ЗВУЧИ! 66 KB
  Нам стежку в світ дано топтати Поки в нас рідна мова є Учениця І як гуртом не поодинці Почнемо в світ її нести То й доти будем – українці Поміж народів сміло йти Учень А знехтуємо рідне слово – Земля цього нам не простить То ж сяй над світом рідна мово Тобі в віках судилось жить Учениця Цвіти і смійся рідне слово У серці щирому звучи Моя чарівна рідна мово Лети над світом не мовчи Звучить музика Ведучий. Ведучий. Ведучий. Ведучий.
54443. Соловїна, барвінкова, українська рідна мова 205 KB
  Мета: навчальна поглибити знання учнів про рідну мову її символи традиції впроваджувати елементи естетичного виховання культури спілкування; розвивальна – розвивати українське мовлення культуру поведінки; виховна – виховувати любов і повагу до своєї Батьківщини України її символів традицій обрядів почуття глибокої поваги до предків своїх рідних і близьких творчу самостійність і відповідальність уміння самоорганізовуватись вміння...
54444. Мово моя рідна, не мовчи! 522.5 KB
  А вчителька мовила що якби ваші словасуржики перетворились і справді на страшні дерева та ще на страшніших звірів я б побачила які ви герої Іванко. Багато віків люди засмічували рідну мову то модним словечком яке нічого спільного з рідною мовою не мало то вживали надмірно російські слова на український лад бо свого ліньки було підшукати а рідним словом нехтували цуралися його. Це не просто деревця це ті слова які ви щоденно говорите. А ви щодня сієте словазернятка і не задумуєтеся на тим що з того виросте.
54445. О рідна мовонько, о мово! В тобі від Бога кожне слово 115.5 KB
  Вчити учнів застосовувати набуті знання на практиці; Розвивати командний дух швидкість реакції прагнення перемоги вміння працювати в команді толерантне ставлення до думок інших Виховувати любов до рідної мови гордість за свою Батьківщину прагнення до самовдосконалення ХІД ЗАХОДУ Слово учителя Моя прекрасна українська мово Найкраща пісня в...
54446. Мова, наша мова ― пісня стоголоса! 1.51 MB
  Приспів: Калинова соловїна Вишиванками рясна Наша рідна Україна Розцвіте немов весна У нас на всіх одна надія Одна і радість і біда Ми землю мудрістю засієм Розквітне мова золота. Ви самі побачите яка чудова наша українська мова Багато тисяч літ тому жила в Україні прекрасна дівчина. А називалася ця красуня УКРАЇНСЬКА МОВА.
54447. Розквітай же, рідна українська мово! 183 KB
  А мова українська мов причастя Теплом своїм торкається грудей. ВЕДУЧА Мова це той інструмент який єднає націю народ в єдине ціле. ВЕДУЧИЙ Найбільше і найдорожче добро в кожного народу це його мова ота багата скарбниця в яку народ складає і своє давнє життя і свої сподіванки розум досвід почування писав Панас Мирний. Кожна мова неповторна.
54448. Гра-подорож у царство рідної мови 156 KB
  Українська мова Вчитель. Ця мова наче пташка свiтанкова IЦо гордо лине в свiй стрiмкий політ. Велична щедра і прекрасна мова Прозора й чиста як гірська вода. Це Українська мова барвінкова Така багата й вiчно молода.
54449. Journée Européenne des langues 494.5 KB
  Sensibiliser le public à limportance de lapprentissage des langues et de la diversification des diverses langues apprises afin de favoriser le plurilinguisme et la compréhension interculturelle; Promouvoir la riche diversité culturelle et linguistique de l'Europe, qui doit être maintenue et cultivée;
54450. Лунай, прекрасна наша мово! 582 KB
  Тип уроку: урок-свято Обладнання: вислови про мову фонограми пісень рушники верба речі з українського побуту тин штучна зелень квіти українські костюми збірки віршів українських письменників словники. На дошці та партах вислови про мову рушники квіти. Сьогодні ми зібрались щоб сказати теплі та ніжні слова про нашу рідну українську мову торкнутися сторінок її минулого сучасного...