![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Задание 2. 8. Создайте форму, скорректировав текст надписей и положение окон TEdit.
Ввести три числа - x, y, z. Вычислить по усмотрению u=sin(x), u=cos(x) или u=tg(x). Найти по выбору максимальное из трех чисел: max(u, y, z). Cоздать форму, представленную на рис. 2., и написать соответствующую программу. Рис. 3 8. Создайте форму, скорректировав текст надписей и положение окон TEdit. 9. Выберите в меню компонентов Standard кмпонент ТCheckBox и поместите его в нужное место формы. С помощью инспектора объектов измените заголовок (Caption) на maxabs. В зависимости от того, нажата или нет кнопка, булева переменная CheckBox1.Checked будет принимать значение true или false. 10. Выберите в меню компонентов Standard пиктограмму и поместите ее в нужное место формы. На форме появится окаймленный линией чистый прямоугольник с заголовком RadioGroup1. Замените заголовок (Caption) на U(x). Для того, чтобы разместить на компоненте кнопки, необходимо свойство Columns установить равным единице (кнопки размещаются в одном столбце). Дважды щелкните по правой части свойства Items мышью, появится строчный редактор списка заголовков кнопок. Наберите три строки с именами: в первой строке - cos(x), во второй - sin(x), в третьей - tg(x), нажмите ОК. После этого на форме внутри окаймления появится три кнопки- переключателя с введенными надписями. Обратите внимание на то, что в тексте программы появится переменная RadioGroup1 типа TRadioGroup. Теперь при нажатии одной из кнопок группы в переменной целого типа RadioGroup1− > ItemIndex будет находиться номер нажатой клавиши (отсчитывается от нуля), что используется в тексте приведенной программы. void __fastcall TForm1:: FormCreate(TObject *Sender) { Edit1-> Text=" 0, 1"; Edit2-> Text=" 0, 356"; Edit3-> Text=" 0"; Memo1-> Clear(); Memo1-> Lines-> Add(" Рез-ты ст. гр.920201 Петрова И.И."); } //----------------------------------------------------- void __fastcall TForm1:: Button1Click(TObject *Sender) { double x, y, z, u, ma; // Ввод исходных данных и вывод в окно Memo1 x=StrToFloat(Edit1-> Text); Memo1-> Lines-> Add(" x=" +Edit1-> Text); y=StrToFloat(Edit2-> Text); Memo1-> Lines-> Add(" y=" +Edit2-> Text); z=StrToFloat(Edit3-> Text); Memo1-> Lines-> Add(" z=" +Edit3-z=StrToFloat(Edit3-> Text); Memo1-> Lines-> Add(" z=" +Edit3-> Text); // Проверка номера нажатой кнопки и выбор //соответствующей ей функции switch(RadioGroup1-> ItemIndex) { case 0: u=cos(x); break; case 1: u=sin(x); break; case 2: u=tan(x); break; } if (CheckBox1-> Checked) // Проверка состояния //кнопки CheckBox1 { u=fabs(u); y=fabs(y); z=fabs(z); } // Нахождение максимального из трех чисел if (u> y) ma=u; else ma=y; if (z> ma) ma=z; if (CheckBox1-> Checked) Memo1-> Lines-> Add(" maxabc=" + FloatToStrF(ma, ffFixed, 8, 6)); else Memo1-> Lines-> Add(" max=" + FloatToStrF(ma, ffFixed, 8, 6)); }
|