У вас вопросы?
У нас ответы:) 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. Детский сад общеразвивающего вида 11 Интегрированная НОД для детей старше
2. Контрольная работа- Определение технической возможности предотвращения ДТП водителем
3. Тема 11. Общие положения об обязательствах План занятия Понятие и содержание обязательства.html
4. П Королева научный исследовательский университет СГАУ Факультет инженеров воздушного транспорта Ка
5. Эволюционные изменения атмосферы Земли
6. От решения задач к механизмам трансляции деятельности
7. на тему- Здоровьесберегающие технологии на уроках иностранного языка подготовила- учит
8. Организация рабочего времени менеджера мебельного салона
9. метод обучения сущность которого рассматривалась в главе 9 характеризует внутреннюю содержательнопроце
10. статья След статья Преобразование в сфере занятости населения являются одним из условий рыночной трансфо