0 / 0 / 0
Регистрация: 24.11.2013
Сообщений: 18
1

Определить четность числа. Если оно четное - окрасить в зеленый цвет, в противном случае - в лиловый

05.02.2014, 11:02. Показов 1338. Ответов 5
Метки нет (Все метки)

помогите пожалуйста нужно записать массив в лист бокс " вводим число нужно определить четное или не четное . если оно четное окрашивает в зеленый цвет, в противном случае в лиловый "
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
begin
case   listBox1.ItemIndex of
0: Label2.Caption:= 'нечетный';
1: Label2.Caption:='четный' ;
2: Label2.Caption:='нечетный' ;
3: Label2.Caption:='четный' ;
4: Label2.Caption:= 'нечетный';
5: Label2.Caption:='четный';
6: Label2.Caption:='нечетный';
7: Label2.Caption:= 'четный';
8: Label2.Caption:= 'нечетный';
9 : Label2.Caption:= 'четный';
 
  end;
end;
все что смог сделать
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.02.2014, 11:02
Ответы с готовыми решениями:

Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае
помогите решить задачу на ветвление с программой. Текст таков:Даны 2 действительных числа a,b....

Задано три целых числа. Наибольшее число проверить на четность и если оно четное, то наименьшее из них заменить на квадрат третьего, а если нет, то ср
Задано три целых числа. Наибольшее число проверить на четность и если оно четное, то наименьшее из...

Задано три целых числа. Наибольшее число проверить на четность и если оно четное, то наименьшее из них заменить на квадрат третьего, а если нет, то ср
Задано три целых числа. Наибольшее число проверить на четность и если оно четное, то наименьшее из...

Если число отрицательное и четное, то уменьшить его на 17, в противном случае увеличить на 5
Если число отрицательное и четное, то уменьшить его на 17, в противном случае увеличить на 5.

5
Модератор
3487 / 2610 / 741
Регистрация: 19.09.2012
Сообщений: 7,971
05.02.2014, 11:12 2
Как этот код связан с массивом и записью его в ЛистБокс?
0
droider
05.02.2014, 11:27
  #3

Не по теме:

Цитата Сообщение от Rustam_00 Посмотреть сообщение
записать массив в лист бокс
вчера был ComboBox

0
Модератор
3487 / 2610 / 741
Регистрация: 19.09.2012
Сообщений: 7,971
05.02.2014, 12:01 4
Цитата Сообщение от droider Посмотреть сообщение

Не по теме:


вчера был ComboBox

Не по теме:

c ComboBox'ом не получилось :D

0
Эксперт Pascal/Delphi
4880 / 2753 / 848
Регистрация: 04.10.2012
Сообщений: 10,039
05.02.2014, 15:58 5
Rustam_00, разместите на форме TListBox, TEdit. Свойство формы KeyPriView выставите Тrue.
Свойство Style ListBox выставите lbOwnerDrawFixed.
Для новых версий Delphi: выставите свойство NumbersOnly у Edit в True (только ввод чисел).
Далее обрабатываем события OnKeyDown TEdit и OnDrawItem TListBox.
Разбирайтесь
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
29
30
31
procedure TForm1.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=VK_RETURN then //Если нажата клавиша Enter
if lst1.Items.Count>=5 then ShowMessage('Превышено допустимое количество элементов!')
else
begin
//и кол-во элем-в не больше 5
lst1.Items.Add(edt1.Text); //добавляем в список значение
edt1.Clear; //очищаем текстовое поле после добавления
 end;
 
end;
 
procedure TForm1.lst1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
with TListBox(Control) do
begin
  if Odd(StrToInt(Items[Index]))then  //если число - нечетное
   Canvas.font.Color :=clPurple //окрашиваем шрифт  в лиловый цвет
  else
   Canvas.Font.Color:=clGreen; //иначе в зеленый
   Canvas.FillRect(rect);
   Canvas.TextOut(rect.Left,rect.Top,Items[Index]);
 
 end;
 
end;
 
end.
P.S. вдруг еще кому-нибудь пригодится
Миниатюры
Определить четность числа. Если оно четное - окрасить в зеленый цвет, в противном случае - в лиловый  
0
droider
05.02.2014, 16:14     Определить четность числа. Если оно четное - окрасить в зеленый цвет, в противном случае - в лиловый
  #6

Не по теме:

KeyPreview

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.02.2014, 16:14

Ветвление: если число отрицательное и четное, то уменьшить его на 16, в противном случае увеличить на 4
Ввести число в ручную и если число отрицательное и четное, то уменьшить его на 16, в противном...

Дано вещественное число. Если оно отрицательно, то вычислить модуль этого числа и возвести его в куб, в противном случае возвести число в квадрат.
Помогите пожалуйста, через 2 часа сдавать. Дано вещественное число. Если оно отрицательно, то...

Рекурсия: выдать синоним слова a, если оно находится в словаре синонимов x, и nil в противном случае
(SINONIM a x) выдает синоним слова a, если находит его в словаре синонимов x, и nil в противном...

[Эмулятор KP580] Заменить число нулем, если оно отрицательное, увеличить на единицу в противном случае
Даны два числа (регистры В и С). Заменить число нулем, если оно отрицательное, увеличить на единицу...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru