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

Для ввода фамилий поэтов выберем компонент 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 =100 x², если 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.