Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
АВТОТРАКТОРНЫЙ ФАКУЛЬТЕТ
КАФЕДРА: ТРАКТОРЫ
Отчёт о лабораторной работе №6 по информатике
По теме: «Создание приложения с использованием операторов разветвления»
Выполнил: студент группы №101091-12
Стреж Евгений Александрович
Принял: доцент кафедры тракторы
Коваль Виталий Александрович
Минск-2013
Цель: Научиться пользоваться стандартными компонентами организации переключений (CheckBox, RadioGroup и др.). Используя компоненты организации переключений разработать интерфейс и программу для заданного разветвляющегося алгоритма.
Ход работы:
Создаём интерфейс приложения, для этого используем элементы Edit, CheckBox, RadioGroup, Button. Интерфейс приложения представлен нп рисунке 1.
Рисунок 1 – Интерфейс приложения
Чтобы кнопка «Рассчитать» работала, необходимо ввести следующий код:
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, XPMan;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox;
RadioGroup1: TRadioGroup;
XPManifest1: TXPManifest;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:extended;
begin
x:=strtofloat(LabeledEdit1.Text);
if CheckBox1.Checked
then x:=x*pi/180;
if RadioGroup1.ItemIndex=0
then y:=sin(x)
else y:=cos(x);
LabeledEdit2.Text:=floattostrF(y,fffixed,7,3);
end;
end.
Вывод:
Выполнив эту лабораторную работы мы научились пользоваться операторами разветвления.