Замечание. Переменная r должна быть описана типом Word

Переменная r должна быть описана типом Word.

Практика

Задача

Дано: гипотенуза и прилежащий к гипотенузе угол прямоугольного треугольника. Составить программу для вычисления катета, противолежащего заданному углу. Формула из тригонометрии: a=c*sin A.

Компоненты

Имя компонента	Свойства компонента	Значение	Назначение
Form1	Caption	Катет прямоугольного треугольника	Заголовок формы
Label1	Caption     WordWrap	Программа вычисляет катет прямоугольного треугольника по гипотенузе и противолежащему углу   True	Справочная информация для пользователя программы   Перенос не уместившихся слов на новую строку
Label2	Caption	Гипотенуза=	Подсказка пользователю
Edit1	Text		Поле для ввода значения гипотенузы
Label3	Caption	Противолежащий угол (гр., мин., сек.)=	Подсказка пользователю
Edit2	Text		Поле для ввода градусов
Edit3	Text		Поле для ввода минут
Edit4	Text		Поле для ввода секунд
Label4	Caption		Поле для вывода результата
Button1	Caption	ВЫЧИСЛИТЬ	Кнопка вычисления катета
Button2	Caption	ОЧИСТИТЬ	Кнопка для очищения полей для ввода новых данных
Button3	Caption	ВЫХОД	Кнопка прекращения выполнения программы и закрытия формы

Переменные

Обозначение в программе	Содержание	Тип
a	Определяемый катет прямоугольного треугольника	Вещественный
c	Гипотенуза	Вещественный
G	Градусы противолежащего определяемому катету угла	Целый
M	Минуты противолежащего определяемому катету угла	Целый
S	Секунды противолежащего определяемому катету угла	Вещественный

Проект формы

Текст модуля

unit Unit1; ………………….. var Form1: TForm1; a:Real;// катет прямоугольного треугольника c:Real;// гипотенуза прямоугольного треугольника G,M:Integer; S:Real; Rad:Real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin c:=StrToFloat(Edit1.Text); G:=StrToInt(Edit2.Text); M:=StrToInt(Edit3.Text); S:=StrToFloat(Edit4.Text); Rad:=(G+(M+S/60)/60)*PI/180; a:=c*sin(Rad); Label4.Caption:='Катет прямоугольного треугольника= '+FloatToStr(a); end; //процедура для очистки полей формы для новых данных procedure TForm1.Button2Click(Sender: TObject); begin Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Label4.Caption:= ' ' end; procedure TForm1.Button3Click(Sender: TObject); begin Form1.Close end; end.

Результаты работы программы

Задача

Составить программу, определяющую сколько дней прожил пользователь программы.

Компоненты

Имя компонента	Свойства компонента	Значение	Назначение
Form1	Caption	Сколько дней прожил пользователь программы	Заголовок формы
Label1	Caption     WordWrap	Программа подсчитывает, сколько дней прожил пользователь программы   True	Справочная информация для пользователя программы   Перенос не уместившихся слов на новую строку
Label2	Caption	Введите дату вашего рождения	Подсказка пользователю
Edit1	Text		Поле для ввода даты рождения
Label3	Caption	Сегодня	Подсказка пользователю
Edit2	Text		Поле, в которое выводится дата, установленная на компьютере
Label4	Caption		Поле для вывода результата
Button1	Caption	ВЫЧИСЛИТЬ	Кнопка вычисления количества дней
Button2	Caption	ВЫХОД	Кнопка прекращения выполнения программы и закрытия формы
Button3	Caption	ОЧИСТИТЬ	Кнопка для очищения полей для ввода новых данных

Переменные

Обозначение в программе	Содержание	Тип
USER_DAT	Дата рождения пользователя программы	TDateTime
USER_DAY	Количество дней, прожитых пользователем программы	Длинный целый

Проект формы

Текст модуля

unit Unit1;

………………..

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var USER_DAT:TDateTime;

USER_DAY:INT64;

begin

Edit2.Text:=DateToStr(Date());

Label4.Caption:='ВЫ ПРОЖИЛИ '+

FloatToStr(DaySpan(Date(),StrToDate(Edit1.Text)))+' дней'

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Edit1.Clear;

Label4.Caption:=' ';

end;

end.

Результаты работы программы

Задача

Составить программу для решения прямой и обратной геодезических задач.

Прямая геодезическая задача состоит в том, что по координатам одного конца А (X_А, Y_А) линии АВ, по дирекционному углу этой линии α_АВ и ее горизонтальному проложению S_АВ вычисляют координаты другого конца В этой линии (X_В , Y_В).

X_B=X_A+S_ABcos α_АВ,

Y_B=Y_A+S_ABsin α_АВ.

Обратная геодезическая задача состоит в том, что по координатам концов линии АВ вычисляют дирекционный угол и горизонтальное проложение этой линии. То есть известны X_A, Y_A, X_B, Y_B. Надо вычислить α_АВ и S_АВ.

,

.

Компоненты

Имя компонента	Свойства компонента	Значение	Назначение
Form1	Caption	Прямая и обратная геодезические задачи	Заголовок формы
Label1	Caption     Visible	Обратная геодезическая задача — вычисление по координатам двух точек горизонтального проложения линии между ними и дирекционного угла   False	Справочная информация для пользователя программы   Невидимый
Label2	Caption   Visible	XA   False	Подсказка пользователю Невидимый
Label3	Caption   Visible	YA   False	Подсказка пользователю Невидимый
Label4	Caption   Visible	XB   False	Подсказка пользователю Невидимый
Label5	Caption   Visible	YB   False	Подсказка пользователю Невидимый
Label6	Caption     Visible	Горизонтальное проложение линии АВ в метрах   False	Подсказка пользователю   Невидимый
Label7	Caption   Visible	False	Поле для вывода горизонтального проложения   Невидимый
Label8	Caption     Visible	Дирекционный угол (гр. мин. сек.)   False	Подсказка пользователю   Невидимый
Label9	Caption   Visible	False	Поле для вывода дирекционного угла (градусы)   Невидимый
Label10	Caption   Visible	False	Поле для вывода дирекционного угла (минуты)   Невидимый
Label11	Caption   Visible	False	Поле для вывода дирекционного угла (секунды)   Невидимый
Edit1	Text   Visible	…..   False	Поле для ввода координаты XА Невидимый
Edit2	Text   Visible	…..   False	Поле для ввода координаты YА Невидимый
Edit3	Text   Visible	…..   False	Поле для ввода координаты XB Невидимый
Edit4	Text   Visible	…..   False	Поле для ввода координаты YB Невидимый
Button1	Caption	ПРЯМАЯ ГЕОДЕЗИЧЕСКАЯ ЗАДАЧА	Кнопка запускает на выполнение прямую геодезическую задачу
Button2	Caption	ОБРАТНАЯ ГЕОДЕЗИЧЕСКАЯ ЗАДАЧА	Кнопка делает видимыми поля для решения обратной геодезической задачи
Button3	Caption	ВЫХОД	Кнопка закрытия формы и выхода из программы
Button4	Caption   Visible	Вычислить   False	Кнопка вычисления обратной геодезической задачи Невидимый

Переменные