Посты автора adm

adm

Николай Александрович

https://my.mail.ru/mail/koliyr/

Массив строк в Lazarus

Опубликовано: 19.10.2016

Рассмотрим много строчные компоненты Memo, ListBox, ComboBox.
Первый из них много строчный текст (с массивом Lines), следующие списки (с массивом Items).

Операторы div и mod

Опубликовано: 03.10.2016

Материал, включающий презентацию, приложение и задание.

Двигающаяся кнопка

Опубликовано: 29.09.2016

На основе 6 практической, нами были рассмотрены задачи по передвижению кнопки. В задаче используются два компонента (кнопка и таймер).

1. подгруппа — случайное передвижение с отскоком от края формы

В разделе глобальных переменных добавили 2-е переменные, которые будут задавать шаг сдвига кнопки

var

Form1: TForm1;

l,t:integer;

Показать
Свернуть

Нажатие кнопки позволяет включить\отключить таймер через свойство Enabled, предопределение переменных.

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=not timer1.Enabled ;

t:=5;

l:=5;

end;

Показать
Свернуть

Процедура таймера перемещает кнопку на расстояние переменных.

В процедуре используются 4-ре условия, обрабатывающие соприкосновение с краями формы.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if button1.Left<5 then l:=5;

if button1.Top<5 then t:=5;

if button1.left>form1.Width-button1.Width-5 then l:=-5;

if button1.top>form1.height-button1.height-5 then t:=-5;

button1.Left:=button1.Left+l;

button1.top:=button1.top+t;

end;

Показать
Свернуть

Задание:
Перестроить алгоритм, сократив количество условий до двух.
Используя процедуру Random() сделать переменные сдвига случайными при каждом касании края формы.

2. подгруппа — передвижение кнопки параллельно краям формы по кругу

Используем те же переменные.

Нажатие кнопки отличается, предопределением переменных.

procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.Enabled:=not timer1.Enabled ;

t:=-5;

l:=0;

end;

Показать
Свернуть

Процедура таймера перемещает кнопку на расстояние переменных.

В процедуре используются 4-ре условия, обрабатывающие положение кнопки в 4-рех углах.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if button1.top<5 then begin

t:=0;

l:=5;

end;

…

button1.Left:=button1.Left+l;

button1.top:=button1.top+t;

end;

Показать
Свернуть

Задание: Дописать три отсутствующих  условия для выполнения задания.

Внимание! За написание такой программы бонус.

Алгебра-логика

Опубликовано: 27.09.2016

Достаточно сложный раздел, имеющий группу задач с высказываниями.

Осваиваем свойства компонентов

Опубликовано: 26.09.2016

Form, Label, Button и Edit

Это основные компоненты ООП, которые наиболее часто используются на начальных этапах программирования.

Графы

Опубликовано: 25.09.2016

Материал на основе заданий ЕГЭ