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

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

Конструирование формы




Для ввода фамилий поэтов выберем компонент RadioGroup (группа зависимых переключателей).

Items этого компонента – список (зададим заголовки переключателей: (А.С. Пушкин, М.Ю. Лермонтов, С. Есенин, А. Блок, В. Маяковский).

ItemIndex указывает, какой из списка выбран переключатель: -1 – выбран никакой, 0 – первый и т. д.).

Добавить компонент Panel2 для вывода результата и метку. Label2 с заголовком Caption – Произведения известных поэтов.

Для запуска программы выберем компоненту Button и поместим ее на Panel1 в верхней части формы. Свойство Caption у кнопки зададим – Выполнить (рис. 3).

Все выбранные компоненты находятся на странице Standard.

Рисунок 3 – Форма с размещенными объектами

 

Для установки обработчика события выберем компоненту Button1.

Двойной щелчок на этой компоненте и мы попадаем в редактор кода программы. В процедуре для получения результата используется оператор множественного выбора case of.

Результат зависит от месторасположения поэта.

procedure Tform1.Button1Click(Sender:Tobject);

Var

c:string;

begin

case RadioGroup1.ItemIndex of

0: c:='Поэмы: Руслан и Людмила, Бахчисарайский фонтан';

1: c:='Поэмы: Мцыри, Демон';

2: c:='Поэмы: Анна Снегина, Пугачев';

3: c:='Стихи О прекрасной даме';

4: c:='Поэмы: Хорошо, Облако в штанах';

end;

Panel2.Caption:=c;

end;

 

Так как в процедуре нет никаких вычислений и результат символьный (тип string), то и нет никаких преобразований данных в отличие от предыдущего примера. Полный текст модуля будет иметь вид:

unit Unitradio1;

 

interface

 

uses

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

Dialogs, StdCtrls, ExtCtrls;

 

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

RadioGroup1: TRadioGroup;

Button1: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

Var

c:string;

begin

case RadioGroup1.ItemIndex of

0: c:='Поэмы: Руслан и Людмила, Бахчисарайский фонтан';

1: c:='Поэмы: Мцыри, Демон';

2: c:='Поэмы: Анна Снегина, Пугачев';

3: c:='Стихи О прекрасной даме';

4: c:='Поэмы: Хорошо, Облако в штанах';

end;

Panel2.Caption:=c;

end;

 

end.

 

Варианты заданий

Задание 1. Создать форму и процедуру обработки процесса выбора по заданному варианту.

1. Вычислить площадь прямоугольника, если его стороны положительные.

2. Вычислить S=x-x3/6,если 0.1<=x<=1, иначе y=sin(x).

3. Произвести расчет по формуле z=a2+b2+(a-b)2, если a – положительное, b – отрицательное, иначе расчет не выполнять.

4. Даны числа a, b, c. Найти наибольшее из них.

5. Вычислит S=x- x3/6 +x5/120, если 0.1<=x<=1, иначе y=e2x.

6. Вычислить значение функции:

y=sin(x), если x>0;

y=x2/4, если x<=0.

7. Написать программу, которая определяет, принадлежит ли число N заданному интервалу [k,m].

8. Среди чисел A и B, найти большие 20 и вывести их на экран.

9. Заданы числа x и y. Если их сумма положительна, вывести на экран эти числа, иначе вывести на экран их разность.

10. Задать значения переменным C и D. Если они имеют отрицательные значения, вывести на экран сумму квадратов этих чисел, иначе квадрат суммы.

11. Задать значения переменным целочисленного типа X и Y. Если X<Y вывести остаток от деления X на Y, иначе вывести на экран целую часть от деления X на Y.

12. Задать значения для целочисленной переменной X и для вещественной переменной Y. Найти сумму этих чисел, если X>0, в противном случае, найти результат от деления X на Y и поместить его в целую переменную Z.

13. Среди заданных чисел X и Y, найти отрицательные и вывести на экран модули этих чисел.

14. Вывести на экран целую часть вещественного числа x вычисляемого с помощью выражения x=у +20у, если значение у отрицательное.

15. Среди чисел x и у, вводимых оператором ввода, найти положительные и вывести на экран целую и дробную части вещественных чисел х и у отдельно.

Задание 2. Создать форму и процедуру обработки процесса множественного выбора по заданному варианту.

1. Вычислить y, если

0<x<1 y=x+0.2+x2 ;

1<=x<2 y=x+1/x2 ;

x>=2 y=0;

Для выбора использовать условия задачи, а для задания значения х однострочный текстовый редактор Edit.

2. Составить программу для вычисления площади одной из фигур: квадрата, круга или прямоугольника по значению x, интерпретируемому как сторона квадрата, радиуса или основание прямоугольника, высота прямоугольника превышает основание в 2 раза. Для задания х использовать однострочный текстовый редактор Edit.

3. Для заданного x вычислить y

y=100, если x=2;

y=100x2, если x>2;

y=100-x2, если x<2;

Для выбора использовать условия задачи, а для задания х однострочный текстовый редактор Edit.

4. Определить знак функции

y=-1, если x<0;

y=0, если x=0;

y=1, если x>0.

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

6. В зависимости от выбора вывести на экран название двух фруктов, двух трав, двух овощей.

7. Вывести в форму в зависимости от выбора фамилии двух известных писателей, двух поэтов или двух художников.

8. Для заданных значений радиусов 10, 20, 40, 80 вычислить площадь круга и вывести в форму в зависимости от выбранного значения.

9. Вывести в форму в зависимости от выбора произведения четырех русских писателей.

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

11. В зависимости от выбора вывести в форму: радиус, длину окружности, площадь круга. Величину радиуса задать с помощью однострочного текстового редактора Edit.

12. Вывести в форму значения единиц информации: 1-го байта, 1-го Кбайта, 1-го Мбайта в битах.

13. Вывести в форму назначение основных этапов решения задач на ЭВМ. Этап выбрать с помощью RadioGroup.

14. Вывести в форму названия основных логических операций: И, ИЛИ, НЕ.

15. Вывести на экран тип файла: MS Word, MS Excel, MS Access, Borland Pascal.

 







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


Рекомендуемые страницы:


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