Программирование в среде Delphi. Часть 2. Создание оконных приложений. Садовская О.Б. - 32 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

32
его в список ListBox1 щелчком по кнопке Ввод поле Edit1 снова бу-
дет активным (там будет мигать курсор).
Выделим кнопку Решение. На вкладке Events окна Object Inspector
сделаем двойной щелчок в поле имени события OnClick и в появив-
шейся заготовке процедуры впечатаем необходимые инструкции:
procedure TForm1.Button2Click(Sender: TObject);
var k : integer;
begin
max:=a[1]; imax:=1; min:=a[1]; imin:=1;
for k:=2 to 10 do
begin
if max<a[k] then begin max:=a[k]; imax:=k end;
if min>a[k] then begin min:=a[k]; imin:=k end;
end;
a[imax]:=min; a[imin]:=max;
for k:=1 to 10 do ListBox2.Items.Add(IntToStr(a[k]));
end;
Задачи
15. Заполнить одномерный целочисленный массив из 10 элементов
числами Фибоначчи. Для отображения массива в форме использовать
компонент ListBox.
16. Дан одномерный целочисленный массив a из 10 элементов. Все
элементы этого массива , предшествующие первому по порядку эле-
менту со значением max(a
1
,… ,a
10
) домножить на max (a
1
,… ,a
10
). Для
отображения массивов в форме использовать компонент ListBox. 
                                             32
его в список ListBox1 щелчком по кн опке В вод поле Edit1 сн ова б у -
д ет а кт ивн ым (т а м б у д ет м ига т ь ку рсор).
      В ыд елим кн опку Решени е. Н а вкла д ке Events окн а Object Inspector
сд ела ем д войн ой щелчок в поле им ен и соб ыт ия OnClick и в поя вив-
ш ейся за готовке процед у ры впеча т а ем н еоб ход им ые ин ст ру кции:
      procedure TForm1.Button2Click(Sender: TObject);
      var k : integer;
      begin
        max:=a[1]; imax:=1; min:=a[1]; imin:=1;
       for k:=2 to 10 do
         begin
              if maxa[k] then begin min:=a[k]; imin:=k end;
         end;
       a[imax]:=min; a[imin]:=max;
       for k:=1 to 10 do ListBox2.Items.Add(IntToStr(a[k]));
      end;


                                    Задачи
15. З а полн ит ь од н ом ерн ый целочислен н ый м а ссив из 10 э    лем ен тов
числа м и Ф иб он а ччи. Д ля отоб ра ж ен ия м а ссива в ф орм е использова т ь
ком пон ен т ListBox.




16. Д а н од н ом ерн ый целочислен н ый м а ссив a из 10 э       лем ен тов. В се
элем ен т ы э  т ого м а ссива , пред ш ест ву ю щие первом у по поря д ку э   ле-
м ен т у со зн а чен ием max(a1,… ,a10) д ом н ож ит ь н а max (a1,… ,a10 ). Д ля
от об ра ж ен ия м а ссивов в ф орм е использова т ь ком пон ен т ListBox.

Страницы