Подпрограммы

function gradus_radian ( gradus, minuta, secunda : byte ) : real;

procedure radian_gradus ( radian : real;
		var gradus, minuta, secunda : byte );

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class (TForm)
Button1 : TButton;
Label1 : TLabel;
RadioButton1 : TRadioButton;
RadioButton2 : TRadioButton;
Edit1 : TEdit;
Button2 : TButton;
Label2 : TLabel;
Edit2 : TEdit;
Edit3 : TEdit;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Edit4 : TEdit;
Button3 : TButton;
procedure Button1Click ( Sender : TObject );
procedure RadioButton1Click ( Sender : TObject );
procedure RadioButton2Click ( Sender : TObject );
procedure FormCreate ( Sender : TObject );
procedure Button2Click ( Sender : TObject );
procedure Button3Click ( Sender : TObject );
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1 : TForm1;
implementation
{$R *.dfm}
//Щелчок по кнопке ВЫЧИСЛИТЬ.
procedure TForm1. Button1Click ( Sender : TObject );
	//Функция перевода данных из градусов в радианы.
	function gradus_radian ( gradus, minuta, secunda : byte ) : real;
	begin
		gradus_radian :=
		gradus * p i /180+minuta * p i /180/60+ secunda * p i /180/60/60;
	end;
	//Процедура перевода из радиан в градусы.
	procedure radian_gradus ( radian : real;
		var gradus, minuta, secunda : byte );
	begin
		gradus := trunc ( radian * 180/ pi );
		minuta := trunc ( ( radian * 180/ pi -gradus ) * 60 );
		secunda := trunc ( ( ( radian * 180/ pi -gradus )*60 - minuta ) * 60 );
	end;
var //Описание переменных.
grad, min, sec : byte; //Градусная мера угла.
rad : real; //Радианная мера угла.
kod_g, kod_m, kod_s, kod_r : integer; //Контроль ввода.
begin
if RadioButton1. Checked then //Если первый переключатель вкл.
begin
	Val ( Edit1. Text, grad, kod_g ); //Ввод градусов.
	Val ( Edit2. Text, min, kod_m ); //Ввод минут.
	Val ( Edit3. Text, sec, kod_s ); //Ввод секунд.
	//Если ошибки при вводе не было, то
	if ( kod_g=0) and (kod_m=0) and ( kod_s=0) then
	begin
	Label2. Visible := true; //сделать видимым компонент Label2
	//и вывести туда результат вычислений.
	//Вызов функции gradus_radian перевода из градусов в радианы.
	Label2. Caption := ’Величина угла  ’ +chr ( 13 )
		+FloatToStrF ( gradus_radian ( grad, min, sec ), ffFixed, 8, 6 )
			+ ’  радиан ’;
	end
	else //Иначе выдать сообщение об ошибке при вводе.
	MessageDlg ( ’Ошибка_при_вводе_данных ! ’, MtWarning, [ mbOk ], 0 );
end;
if RadioButton2. Checked then //Если второй переключатель вкл.
begin
	Val ( Edit4. Text, rad, kod_r ); //Ввод радианной меры угла.
	if ( kod_r=0) then //Если нет ошибок при вводе, то
	begin
	Label2. Visible := true; //сделать видимым компонент Label2
	//и вывести туда результат вычислений.
	//Вызов процедуры перевода из радиан в градусы.
	radian_gradus ( rad, grad, min, sec );
	Label2. Caption := ’Величина_угла ’ +chr ( 1 3 )
		+IntToStr ( grad)+ ’ _г_ ’+IntToStr ( min )
			+ ’  м  ’+IntToStr ( sec )+ ’  с ’;
	end
	else //Иначе выдать сообщение об ошибке при вводе.
	MessageDlg ( ’Ошибка при вводе данных ! ’, MtWarning, [ mbOk ], 0 );
end;
end;
//Щелчок по кнопке ВЫХОД.
procedure TForm1. Button2Click ( Sender : TObject );
begin
	close;
end;
//Щелчок по кнопке ОЧИСТИТЬ.
procedure TForm1. Button3Click ( Sender : TObject );
begin
	//Установка свойств компонентов в первоначальное состояние.
	Edit1. Text := ’ 00 ’;
	Edit2. Text := ’ 00 ’;
	Edit3. Text := ’ 00 ’;
	Edit4. Text := ’ 00.000 ’;
	Label1. Caption := ’Введите_значение ’;
	Label1. Font. Size := 10;
	Label3. Caption := ’Градусы ’;
	Label4. Caption := ’Минуты ’;
	Label5. Caption := ’Секунды ’;
	Button1. Caption := ’ВЫЧИСЛИТЬ ’;
	Button2. Caption := ’ВЫХОД ’;
	Button3. Caption := ’ОЧИСТИТЬ ’;
	Edit4. Enabled := false;
	Label2. Visible := false;
	RadioButton1. Checked := true;
	RadioButton2. Checked := false;
end;
//Обработка события открытие формы.
procedure TForm1. FormCreate ( Sender : TObject );
begin
	//Установка свойств компонентов.
	Edit1. Text := ’ 00 ’;
	Edit2. Text := ’ 00 ’;
	Edit3. Text := ’ 00 ’;
	Edit4. Text := ’ 00.000 ’;
	Label1. Caption := ’Введите_значение ’;
	Label1. Font. Size := 10;
	Label3. Caption := ’Градусы ’;
	Label4. Caption := ’Минуты ’;
	Label5. Caption := ’Секунды ’;
	Button1. Caption := ’ВЫЧИСЛИТЬ ’;
	Button2. Caption := ’ВЫХОД ’;
	Button3. Caption := ’ОЧИСТИТЬ ’;
	Edit4. Enabled := false;
	Label2. Visible := false;
	RadioButton1. Checked := true;
	RadioButton2. Checked := false;
end;
//Обработка события щелчок по переключателю RadioButton1.
procedure TForm1. RadioButton1Click ( Sender : TObject );
begin
	if RadioButton1. Checked then
	begin
		Edit1. Enabled := true;
		Edit2. Enabled := true;
		Edit3. Enabled := true;
		Label5. Enabled := true;
		Label3. Enabled := true;
		Label4. Enabled := true;
		Edit4. Enabled := false;
	end;
end;
//Обработка события щелчок по переключателю RadioButton2.
procedure TForm1. RadioButton2Click ( Sender : TObject );
	begin
	if RadioButton2. Checked then
	begin
		Edit4. Enabled := true;
		Button1. Enabled := true;
		Edit1. Enabled := false;
		Edit2. Enabled := false;
		Edit3. Enabled := false;
		Label3. Enabled := false;
		Label4. Enabled := false;
		Label5. Enabled := false;
	end;
end; end.