Общие сведения о языке программирования Free Pascal

procedure TForm1. Button1Click ( Sender : TObject );
begin
end;

procedure TForm1. Button1Click ( Sender : TObject );
//Описание переменных:
// a, b, с - стороны треугольника;
// alfa, beta, gamma - углы треугольника;
// S - площадь треугольника;
// r - полупериметр треугольника
//Все переменные вещественного типа.
var a, b, c, alfa, beta, gamma, S, r : real;
begin
//Из полей ввода Edit1, Edit2, Edit3 считываются введенные строки,
//с помощью функции StrToFloat(х) преобразовываются
//в вещественные числа и записываются в переменные а, b, c.
a:= StrToFloat ( Edit1. Text );
b:= StrToFloat ( Edit2. Text );
c := StrToFloat ( Edit3. Text );
//Вычисление значения полупериметра.
r :=( a+b+c ) / 2;
//Вычисление значения площади,
//для вычисления применяется функция:
// sqrt(х) - корень квадратный из х.
S:= sqrt ( r * ( r - a ) * ( r - b ) * ( r - c ) );
//Вычисление значения угла alfa в радианах.
//Для вычисления применяем функции:
// acos(х) - арккосинус x;
// sqr(х) - возведение х в квадрат.
alfa := arccos ( ( sqr ( b)+ sqr ( c)-sqr ( a ) ) / 2 / b/ c );
//Вычисление значения угла beta в радианах.
//Для вычисления применяем функции:
// asin(х) - арксинус x;
beta := arcsin ( b/a * sin ( a l f a ) );
//Вычисление значения угла gamma в радианах.
//Математическая постоянная определена функцией без аргумента pi.
gamma:= pi -( alfa+beta );
//Перевод из радиан в градусы.
alfa := alfa * 180/ p i;
beta := beta * 180/ p i;
gamma:=gamma * 180/ p i;
//Для вывода результатов вычислений используем
//операцию слияния строк "+" и функцию FloatToStrF(х),
//которая преобразовывает вещественную переменную х в строку
//и выводит ее в указанном формате, в нашем случае
//под переменную отводится три позиции, включая точку
//и ноль позиций после точки.
//Величины углов в градусах выводятся на форму
//в соответствующие объекты типа надпись.
Label6. Caption := ’ alfa= ’+FloatToStrF ( alfa, ffFixed, 3, 0 );
Label7. Caption := ’ beta= ’+FloatToStrF ( beta, ffFixed, 3, 0 );
Label8. Caption := ’gamma= ’+FloatToStrF (gamma, ffFixed, 3, 0 );
//Используем функцию FloatToStrF(х) для форматированного
//вывода, в нашем случае под все число отводится пять позиции,
//включая точку, и две позиций после точки.
//Значения площади и периметра выводятся на форму.
Label9. Caption := ’Периметр P= ’+FloatToStrF (2 * r, ffFixed, 5, 2 );
Label10. Caption := ’Площадь S= ’+FloatToStrF ( S, ffFixed, 5, 2 );
end;

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics,
Dialogs, StdCtrls, Math;
type
	{ TForm1 }
	TForm1 = class (TForm)
		Button1 : TButton;
		Edit1 : TEdit;
		Edit2 : TEdit;
		Edit3 : TEdit;
		Label1 : TLabel;
		Label10 : TLabel;
		Label2 : TLabel;
		Label3 : TLabel;
		Label4 : TLabel;
		Label5 : TLabel;
		Label6 : TLabel;
		Label7 : TLabel;
		Label8 : TLabel;
		Label9 : TLabel;
procedure Button1Click ( Sender : TObject );
private
	{ private declarations }
public
	{ public declarations }
end;
var
	Form1 : TForm1;
implementation
{ TForm1 }
procedure TForm1. Button1Click ( Sender : TObject );
	var a, b, c, alfa, beta, gamma, S, r : real;
	begin
		a:= StrToFloat ( Edit1. Text );
		b:= StrToFloat ( Edit2. Text );
		c := StrToFloat ( Edit3. Text );
		r :=( a+b+c ) / 2;
		S:= sqrt ( r * ( r - a ) * ( r - b ) * ( r - c ) );
		alfa := arccos ( ( sqr ( b)+ sqr ( c)-sqr ( a ) ) / 2 / b/ c );
		beta := arcsin ( b/a * sin ( alfa ) );
		gamma:= pi -( alfa+beta );
		alfa := alfa * 180/ p i;
		beta := beta * 180/ p i;
		gamma:=gamma * 180/ p i;
		Label6. Caption := ’ a l f a= ’+FloatToStrF ( alfa, ffFixed, 3, 0 );
		Label7. Caption := ’ beta= ’+FloatToStrF ( beta, ffFixed, 3, 0 );
		Label8. Caption := ’gamma= ’+FloatToStrF (gamma, ffFixed, 3, 0 );
		Label9. Caption := ’Периметр P= ’+
			FloatToStrF (2 * r, ffFixed, 5, 2 );
		Label10. Caption := ’Площадь S= ’+FloatToStrF ( S, ffFixed, 5, 2 );
	end;
initialization
	{$I unit1.lrs}
end.

program pr3;
//Подключение модуля для работы с математическими функциями,
//см. табл. 2.6.
uses math;
//Описание всех используемых переменных.
var a, b, c, r, s, alfa, beta, gamma : real;
begin
//Ввод сторон трегольника.
writeln ( ’Введите стороны треугольника ’ );
readln ( a, b, c );
//Вычисление значения полупериметра.
R:=( a+b+c ) / 2;
//Вычисление значения площади,
//для вычисления применяется функция:
// sqrt(х) — корень квадратный из х.
S:= sqrt ( r * ( r - a ) * ( r - b ) * ( r - c ) );
//Вычисление значения угла alfa в радианах.
//Для вычисления применяем функции:
// acos(х) - арккосинус x;
// sqr(х) — возведение х в квадрат.
alfa := arccos ( ( sqr ( b)+ sqr ( c) - sqr ( a ) ) / 2 / b/ c );
//Вычисление значения угла beta в радианах.
//Для вычисления применяем функции:
// asin(х) - арксинус x;
beta := arcsin ( b/a * sin ( alfa ) );
//Вычисление значения угла gamma в радианах.
//Математическая постоянная определена
//функцией без аргумента pi.
gamma:= pi - ( alfa+beta );
//Перевод из радиан в градусы.
alfa := alfa * 180/ p i;
beta := beta * 180/ p i;
gamma:=gamma * 180/ p i;
//Вывод площади и сторон треугольника.
writeln ( ’Площадь треугольника = ’, S : 6 : 2 );
writeln ( ’ alf= ’, alfa : 6 : 2, ’  bet= ’, beta : 6 : 2, ’ gam= ’,gamma : 6 : 2 );
end.