Конструирование формыДля ввода фамилий поэтов выберем компонент 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.
Рекомендуемые страницы: ![]() |