Lb1_Линейная программа
.pdf
2 Изменим некоторые свойства компонент.
Для компонента Label1
Caption=Величина угла в градусной мере
Left=30
Top=25
Для компонента Label2
Caption=градусы Left=100 Top=70
Для компонента Label3
Caption=минуты Left=100 Top=120
Для компонента Label4
Caption= Величина угла в радианной мере = Left=30
Top=184
Для компонента Edit1
Text=’’ {пустая строка} Left=165
Top=65
Width=80
Для компонента Edit2
Text=’’ {пустая строка} Left=165
Top=115
Width=80
Для компонента Button1
Caption=Вычислить
Left=60
Top=225
Для компонента Button2
Caption=Выход Left=200 Top=225
3 Интерфейс готов. После проделанных изменений форма будет выглядеть так:
PDF created with pdfFactory trial version www.pdffactory.com
IV. Написание программного кода
1Займемся вычислительной частью задачи. Для этого создадим для кнопки Button1 обработчик события onClick. Для обработки этого события достаточно произвести двойной щелчок левой клавишей мыши по кнопке Button1. В
появившейся процедуре введем следующий программный код: procedure TForm1.Button1Click(Sender: TObject);
Var gradus,minuta:Integer; radian:real;
begin
gradus:=StrToInt(Edit1.Text); {перевод строковых данных в число} minuta:=StrToInt(Edit2.Text); radian:=gradus*pi/180+minuta*pi/(180*60);
Label4.Caption:='Величина угла в радианной мере ='+FloatToStr(radian); end;
2 Аналогично обработаем событие onClick для кнопки Button2. Кнопка должна закрывать программу и осуществлять выход.
procedure TForm1.Button2Click(Sender: TObject); begin
Close {закрытие текущей формы} end;
3 Сохраните программу. Для этого выполните команду File\Save All.
V.Выполнение программы
1Наша программа готова и может быть откомпилирована и запущена на выполнение. Процесс компиляции представляет собой перевод программы с языка программирования в машинные коды. Для компиляции нужно выполнить команду Project\Compile Project1 или Ctrl+F9. Кроме этого компиляция выполняется и при запуске программы на выполнения (F9). Во время компиляции проверяется наличие синтаксических ошибок. В случае их обнаружения компиляция прерывается. Строка с ошибкой выделяется цветом, а под окном редактора появляется ее описание (см. рис.).
В данном примере указано отсутствие двоеточия в знаке присваивания.
2Запустите программу на выполнение, введите какие-либо исходные данные и нажмите на кнопку Вычислить. На рисунке показан результат работы программы.
PDF created with pdfFactory trial version www.pdffactory.com
Для завершения работы программы нажмите на кнопку Выход.
3Обратите внимание, что ошибки могут возникать и после программы на выполнение. Например, в нашей программе исходные данные – целые числа. Если ввести дробное число, то появится аварийное сообщение (см. рис.).
В этой ситуации следует прервать выполнения программы командой
Run/Program Reset или Ctrl+F2.
4.На заключительном этапе необходимо выполнить окончательную настройку проекта: определить название приложения и значок, соответствующий файлу приложения. Команда главного меню Project/Options открывает одноименное диалоговое окно (см. рис.), в котором следует выбрать вкладку Application. В этом окне в поле Title указывают название приложения, а с помощью кнопки Load Icon выбирают из списка файлов с расширением *.ico подходящий значок.
5 По аналогии выполните задание согласно своему варианту.
PDF created with pdfFactory trial version www.pdffactory.com
VI. Варианты заданий
1.Заданы два катета прямоугольного треугольника. Найти гипотенузу и углы треугольника.
2.Известна гипотенуза с и прилежащий угол а прямоугольного треугольника. Найти площадь треугольника.
3.Известна диагональ квадрата d. Вычислить площадь S и периметр Р квадрата.
4.Известна диагональ прямоугольника d и угол α между диагональю и большей
стороной. Вычислить площадь S прямоугольника.
5.Треугольник задан величинами своих сторон – а, b, с. Найти углы треугольника.
6.Тело имеет форму параллелепипеда с высотой h. Прямоугольник в основании имеет диагональ d. Известно, что диагонали основания пересекаются под углом α. Найти
объем тела V и площадь поверхности S.
7.В треугольнике известен катет а и площадь S. Найти величину гипотенузы с, второго катета b и углов α и β.
8.Известна площадь квадрата S. Вычислить сторону квадрата а, диагональ d и площадь S1 описанного вокруг квадрата круга.
9.В равнобедренном треугольнике известно основание с и угол при нем α. Найти площадь треугольника S и величину боковой стороны а.
10.Известны координаты вершин прямоугольника ABCD: А(х1,у1), В(х2,у2) и С(х3,у3). Найти его площадь и периметр.
11.Заданы два катета прямоугольного треугольника. Вычислить его площадь и периметр.
12.Известна гипотенуза с и угол β прямоугольного треугольника. Найти периметр
треугольника.
13.Известны диагонали ромба d1 и d2. Вычислить его площадь S и периметр Р.
14.Известна длина диагоналей прямоугольника d и угол α между ними. Вычислить
площадь S прямоугольника.
15.В прямоугольном треугольнике известен катет b и площадь S. Вычислить периметр треугольника.
16.Известны координаты вершин квадрата ABCD: A(x1,y1) и С(х2,у2). Найти его площадь и периметр.
17.В прямоугольном треугольнике известен катет b и площадь S. Найти величину гипотенузы с, второго катета а и углов α и β.
18.Известно значение периметра Р равностороннего треугольника. Вычислить его площадь.
19.Задан периметр квадрата Р. Вычислить сторону квадрата а, диагональ d и площадь S.
20.В равнобедренном треугольнике известно основание с и высота h. Найти площадь треугольника S и периметр Р.
21.Известны координаты вершин треугольника ABC: А(х1,у1), В(х2,у2) и С(х3,у3). Найти его площадь и периметр.
22.Металлический слиток имеет форму цилиндра, площадь поверхности S, высота h, плотность ρ. Вычислить массу m слитка.
23.Вычислить сумму n членов арифметической прогрессии и значение n-го члена.
24.Вычислить сумму n членов геометрической прогрессии и значение n-го члена.
25.Тело падает с высоты h. Какова его скорость в момент соприкосновения с землей и когда это произойдет.
PDF created with pdfFactory trial version www.pdffactory.com