OlegNovikov212
30.09.2022 23:45

Изменение свойств компонентов c# 1 изменить свойства указанного компонента с других компонентов. при этом использовать значения следующих свойств. для значения свойства text необходимо использовать текст, содержащий порядковые номера (первый, второй, третий, четвертый, пятый); для значения свойств font.size – 8, 10, 12, 14, 16; для значения свойств font.name – arial, courier new, times new roman, tahoma, lucida console; для значения свойства– size.height 20, 30, 40, 50, 60; для значения свойства size.width – 80, 100, 120, 140, 160; для значения свойств items.count, lines.count – 4, 6, 8, 10, 12. многострочные компоненты listbox, combobox – заполняйте 5-ю повторениями заданного текста. 5 combobox checkbox combobox textbox radiobutton listbox например,необходимо изменить свойства компонента combobox: – items с checkbox, который будет содержать перечисление: первый, второй, третий, четвертый, пятый, отмеченные элементы перечисления должны попасть в checkbox; – font.size с radiobutton, который будет содержать список размеров шрифтов: 8, 10, 12, 14, 16, при выборе элемента списка должно измениться свойство font.size; – font.name с textbox, в который будет введено одно из названий шрифтов: arial, courier new, times new roman, tahoma, lucida console, при нажатии на кнопку «изменить» должно измениться свойство font.name; – size.height с combobox, в который будет содержать количество элементов списка combobox: 4, 6, 8, 10, 12, выбор одного из этих элементов должен изменить количество элементов в списке combobox – свойство items.count; (добавить или удалить элементы из списка: первый, второй, третий, четвертый, пятый). 2. для всех используемых компонентов 1 укажите описание используемого свойства и события. 3. для компонента listbox (нечетные варианты) и компонента combobox (четные варианты) разработать проект с кнопками «добавить», «удалить», «вставить», «очистить», «найти», которые соответственно: - добавляют элемент введенный в текстовое поле; - удаляет выделенный элемент списка; - вставляет элемент перед выделенным элементов в список (если нет выделенного вставляет его на первое место – в начало списка), значение которого берется из текстового поля; - удаляет все элементы списка; - ищет номер элемента, введенного в текстовое поле и возвращает его с messagebox.show. кнопки «удалить», «вставить», «очистить», «найти» должны быть недоступны для пустого списка (enabled=false). 4. для всех используемых компонентов 3 укажите описание используемого свойства и события.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
akerkinjanel47
10.12.2021 00:48
Program aaa;
type   
   t=array[1..30] of integer;
var   
   a:t;   
   i,h,max,max1,y:integer;   
   q,c:real;
procedure chet(a:t);   
   var     
      i,z:integer;   
   begin     
      z:=0;     
      for i:=1 to 30 do         
      if(odd(a[i])=false) then inc(z);     
      writeln(z);   
   end;
begin   
   for i:=1 to 30 do     
      read(a[i]);   
   //1   
   chet(a);   
   //2   
   h:=0;   
   c:=0;   
   for i:=1 to 30 do     
      if((a[i] mod 3 = 0) and (a[i] mod 9 <> 0) and (a[i]>9) and (a[i]<100)) then begin                 inc(h);     
         c:=c+a[i];   
      end;   
   if(h=0) then writeln(-1)     
    else writeln(c/h);   
   //3   
   h:=0;   
   max:=0;   
   for i:=1 to 30 do begin     
      if((odd(a[i])=false) and (y=0)) then begin           
         h:=i;           
         y:=1;           
         continue;     
      end;     
      if((y>0) and ((odd(a[i])=false))) then          
         inc(y)       
       else         
        if(y>max) then begin           
           max:=y;           
           max1:=h;           
           y:=0;         
       end           
        else y:=0;   
   end;   
   for i:=max1 to max+max1-1 do     
      write(a[i],' ');   
   writeln;   
   //4   
   readln(h);   
   y:=a[h];   
   for  i:=h to 29 do     
      a[i]:=a[i+1];   
   for i:=1 to 29 do     
      write(a[i],' ');   
   for i:=29 downto h do     
      a[i+1]:=a[i];   
   a[h]:=y;   
   writeln;   
   //5   
   max:=0;   
   max1:=0;   
   for i:=1 to 30 do begin     
      if(a[i]>max) then begin         
         max1:=max;         
         max:=a[i];     
      end;     
      if((a[i]>max1) and (a[i]<max)) then          
         max1:=a[i];   
   end;   
   writeln(max1);
end.
0,0(0 оценок)
Ответ:
liyakhakimova
10.12.2021 00:48
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(30);
  Writeln('1. Количество четных ',a.Where(t->t.IsEven).Count);
  var s:=a.Where(t->(t mod 3=0) and (t mod 9<>0) and t.Between(10,99));
  Write('2. Мудреное среднее арифметическое ');
  if s.Count=0 then Writeln(-1) else Writeln(s.Average);
  Write('3. Наибольшая длина цепочки четных элементов ');
  var (l,l1):=(-1,0);
  foreach var t in a do
    if t.IsEven then l1+=1
    else begin
      l:=Max(l,l1);
      l1:=0
      end;
  Writeln(l);
  var k:=ReadInteger('4. Номер удаляемого элемента (1-30):')-1;
  Writeln('Массив после удаления элемента');
  a:=a?[:k]+a?[k+1:]; a.Println;
  Write('5. Второй максимум ');
  a.OrderByDescending(t->t).Skip(1).Take(1).Println
end.

Пример
40 -116 91 -47 14 -10 -88 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
1. Количество четных 19
2. Мудреное среднее арифметическое 54
3. Наибольшая длина цепочки четных элементов 9
4. Номер удаляемого элемента (1-30): 7
Массив после удаления элемента
40 -116 91 -47 14 -10 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49
5. Второй максимум 133
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота