У вас вопросы?
У нас ответы:) SamZan.net

По теме- Создание приложения с использованием операторов разветвления Выполнил-

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

АВТОТРАКТОРНЫЙ ФАКУЛЬТЕТ

КАФЕДРА:  ТРАКТОРЫ

Отчёт о лабораторной работе №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.

Вывод:

Выполнив эту лабораторную работы мы научились пользоваться операторами разветвления.




1. Парадоксы и магия денег
2. Тема Геометрические векторы
3. Von
4. Солнышко п Рассвет Аксайского района Развитие речи детей младшего возраста 2 4 года
5. темах Тема 2 Цифрові методи формування модуляції і демодуляції сигналів
6. . Початок Місяцьрік Кінець місяцьрік Назва підприємстваорганізації де працювали Поса
7. Тушнова В
8. Х Объектом нашего исследования стал коллектив ТОО Х
9. а а поглощающая гораздо больше поглощается слоем алюминия толщиной примерно 2 мм чем у альфачастиц
10. по теме- Гражданское право