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