Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
3 / 3 / 0
Регистрация: 03.11.2009
Сообщений: 208

Работа с переключателями (TRadioButton)

12.12.2009, 21:06. Показов 3098. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Используя 2 зависимых переключателя, решить:
В зависимости от выбора, возрастающая или убывающая последовательность из 3 чисел.


Помогите пожайлуста срочно нужен!

зарание спс.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.12.2009, 21:06
Ответы с готовыми решениями:

Создать на форме 3 переключателя (класс TRadiobutton), группу и метку Label
Создать на форме 3 переключателя (класс TRadiobutton), группу и метку Label. Текст в метке любой. В результате выбора каждого из...

Работа с переключателями
Ситуация такая: есть два переключателя, предположим А и В, и два окна диалога С и D. Если мы нажимаем переключатель А, то в диалоге С...

Работа с переключателями бд Предприятие
Задание: Отобразить на основе группы переключателей значения поля Семейное положение. БД прилагаю

5
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
12.12.2009, 21:17
Цитата Сообщение от Dron16 Посмотреть сообщение
В зависимости от выбора, возрастающая или убывающая последовательность из 3 чисел.
конкретнее...что вы вводите? три числа?
1
3 / 3 / 0
Регистрация: 03.11.2009
Сообщений: 208
12.12.2009, 21:20  [ТС]
Тамила, вводим 3 числа , и нужно узнать какая возрастающая или убывающая последовательность.
0
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
12.12.2009, 21:45
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
  Form1: TForm1;
  ch1, ch2, ch3:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
   ch1:=StrToInt(Edit1.Text);
   ch2:=StrToInt(Edit2.Text);
   ch3:=StrToInt(Edit3.Text);
 
   if (ch1<ch2)and(ch2<ch3) then Label4.Caption:='Да!'
   else label4.Caption:='Нет!';
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
   ch1:=StrToInt(Edit1.Text);
   ch2:=StrToInt(Edit2.Text);
   ch3:=StrToInt(Edit3.Text);
 
   if (ch1>ch2)and(ch2>ch3) then Label4.Caption:='Да!'
   else label4.Caption:='Нет!';
end;
 
end.
Изображения
 
1
3 / 3 / 0
Регистрация: 03.11.2009
Сообщений: 208
12.12.2009, 21:46  [ТС]
Тамила, Спасибо ты меня уже 3й раз спасаешь =)
0
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
12.12.2009, 21:47
На здоровье...))
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.12.2009, 21:47
Помогаю со студенческими работами здесь

работа с переключателями/флажками
требуется функция, которая будет анализировать некоторое поле из запроса(текстовое) и в соответствии с этим ставить определенным образом...

Работа с переключателями, нужно построить алгоритм
Вообщем, не буду тянуть, вот сама задача: Создать программу, выполняющую следующие действия: После запуска программы в окне изображается ...

Работа с переключателями БД Расчет интенсивности отказов
На рисунке переключатели подписаны, нужно написать код, чтобы в зависимости от положения переключателя строковая переменная принимала...

GetCheck is not a member of TRadioButton
Всем привет! Хочу сделать сортировку по разным полям с помощью Group Box и Radio Button Соответственно пользователь выбирает по какому...

Компоненты TListBox, TCheckBox, TRadioButton
Кто поможет с задачей? Компоненты TListBox, TCheckBox, TRadioButton Написать функцию, которая возвращает максимальное из двух целых чисел,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru