Студопедия — Interface
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Interface






 

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ExtCtrls;

 

Type

TForm1 = class(TForm)

lbl1: TLabel;

img1: TImage;

lbl2: TLabel;

lbl3: TLabel;

lbl4: TLabel;

lbl5: TLabel;

edt1: TEdit;

edt2: TEdit;

edt3: TEdit;

edt4: TEdit;

btn1: TButton;

btn2: TBitBtn;

lbl6: TLabel;

procedure btn1Click(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

end;

 

Var

Form1: TForm1;

 

Implementation

 

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

Var

a, b, x, y: real;

flag: Boolean;

Begin

a: =StrToFloat(edt1.Text);

b: =StrToFloat(edt2.Text);

x: =StrToFloat(edt3.Text);

y: =StrToFloat(edt4.Text);

flag: =False;

if x> =0 then

if x< =a then

if y> =0 then

if y< =b then

Flag: =True;

If flag then

lbl6.Caption: ='Принадлежит'

Else

lbl6.Caption: ='Не принадлежит'

end;

 

e n d.

 

Для иллюстрации применения структуры «выбор» и, следовательно, оператора case, решим следующую задачу.

Пример 3. Дана оценка по десятибалльной системе. Получите ее эквивалент по пятибалльной системе. Предполагается, что между системами имеется следующее соответствие:

10-балльная система 5-балльная система
   
1 – 3  
4 – 5  
6 – 8  
9 – 10  

Решение. Данную задачу можно решить и с помощью структуры «ветвление» (оператора if…then…else), но удобней воспользоваться структурой «выбор» (рис. 1.8).

 
 

 


Рис. 1.8. Схема алгоритма программы

 

Текст программы

 

program lr1_3_1;

{ Дана оценка по десятибалльной системе. Получить ее эквивалент по пятибалльной системе. Предполагается, что между системами имеется следующее соответствие: }

{ $APPTYPE CONSOLE }

Uses

SysUtils;

Var

oc10, oc5: byte;

Begin

write('Vvedite oc10 ');

readln(oc10);







Дата добавления: 2014-11-10; просмотров: 441. Нарушение авторских прав; Мы поможем в написании вашей работы!



Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Объект, субъект, предмет, цели и задачи управления персоналом Социальная система организации делится на две основные подсистемы: управляющую и управляемую...

Законы Генри, Дальтона, Сеченова. Применение этих законов при лечении кессонной болезни, лечении в барокамере и исследовании электролитного состава крови Закон Генри: Количество газа, растворенного при данной температуре в определенном объеме жидкости, при равновесии прямо пропорциональны давлению газа...

Ганглиоблокаторы. Классификация. Механизм действия. Фармакодинамика. Применение.Побочные эфффекты Никотинчувствительные холинорецепторы (н-холинорецепторы) в основном локализованы на постсинаптических мембранах в синапсах скелетной мускулатуры...

Трамадол (Маброн, Плазадол, Трамал, Трамалин) Групповая принадлежность · Наркотический анальгетик со смешанным механизмом действия, агонист опиоидных рецепторов...

Мелоксикам (Мовалис) Групповая принадлежность · Нестероидное противовоспалительное средство, преимущественно селективный обратимый ингибитор циклооксигеназы (ЦОГ-2)...

Менадиона натрия бисульфит (Викасол) Групповая принадлежность •Синтетический аналог витамина K, жирорастворимый, коагулянт...

Studopedia.info - Студопедия - 2014-2024 год . (0.009 сек.) русская версия | украинская версия