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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

25
begin
an:=an + d;
memo1.Lines.Add(inttostr(an))
end;
end;
Процедура обработки события щелчка по кнопке Очистить:
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Clear;
end;
Задачи
7. Заполнить одномерный целочисленный массив a числами,
введёнными с клавиатуры в поле Memo1. Получить новый массив b,
удвоив нечётные элементы массива a, чётные оставить без изменения .
Полученный массив b отобразить в поле Memo2. Окно работающего
приложения :
8. Создать оконное приложение, позволяющее вводить с клавиатуры
список строк в поле редактора Memo, а затем , используя процедуру
Exchange, переставить строки в обратном порядке. Окно работающего
приложения : 
                                        25
     begin
     an:=an + d;
     memo1.Lines.Add(inttostr(an))
     end;
     end;

Процед у ра об ра б отки соб ыт ия щелчка по кн опке О чи ст и т ь:
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    memo1.Lines.Clear;
    end;


                                     Задачи
7. З а полн ить од н ом ерн ый целочислен н ый м а ссив            a    числа м и,
введ ён н ым и с кла виа т у ры в поле Memo1. Полу чит ь н овый м а ссив b,
у д воив н ечёт н ые э
                     лем ен ты м а ссива a, чёт н ые ост а вит ь б ез изм ен ен ия .
Полу чен н ый м а ссив b отоб ра зит ь в поле Memo2. Окн о ра б от а ю щего
прилож ен ия :




8. Созд а т ь окон н ое прилож ен ие, позволя ю щее ввод ит ь с кла виа т у ры
список строк в поле ред а кт ора Memo, а за т ем , использу я процед у ру
Exchange, перест а вит ь ст роки в об ра тн ом поря д ке. Окн о ра б от а ю щего
прилож ен ия :

Страницы