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

Для ввода фамилий поэтов выберем компонент 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-x³/6,если 0.1<=x<=1, иначе y=sin(x).

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

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

5. Вычислит S=x- x³/6 +x⁵/120, если 0.1<=x<=1, иначе y=e^2x.

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

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

y=x²/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+x² ;

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

x>=2 y=0;

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

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

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

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

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

y=100-x², если 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.