Руководство к выполнению практической работы
«Создание приложения по переводу двоичного числа в десятичное»
1. Перед созданием нового проекта нужно создать в папке Документы папку под именем
ФИ_класс_ПР2, затем запустить программу Lazarus и закрыть все другие проекты, для
этого выполните команду Файл Закрыть все.
2. Создайте новый проект с помощью команды Проект Создать проект Приложение.
3. Измените цвет формы с помощью свойства Color.
14. Установите на форме объект Метка (Label1) и измените его свойство Caption.
Метка
(Label)
5. Настройте значения свойства Шрифт (Font) для объекта Label1.
6. Установите на форме объект Метка (Label2) и измените его свойство Caption и
настройте значения свойства Шрифт (Font) для этого объекта.
27. Установите на форме объект Текстовое поле (Edit1), измените его свойство Text и
3настройте значения свойства Шрифт (Font) для этого объекта.
Текстовое
поле (Edit)
8. Установите на форме объект Текстовое поле (Edit2), измените его свойство Text и
настройте значения свойства Шрифт (Font) для этого объекта.
49. Установите на форме объект Командная кнопка (Button1), измените его свойство Color.
5Командная
кнопка
(Button)
10. Измените свойство Caption для Командной кнопки (Button).
611. Задайте процедуру для события Clik на командной кнопке Button1.
procedure TForm1.Button1Click(Sender: TObject);
VAR x, xi, i, step, rez : integer; st: string;
begin
st:= edit1.Text; step := 1; rez:= strtoint (st[length(st)]);
for i:= length (st)1 downto 1 do
begin
xi:= strtoint(st[i]);
step:= step * 2;
rez := rez + xi*step;
end;
edit2.Text:= inttostr(rez);
end;
12. Запустите программу на исполнение (выбрав один из предложенных вариантов)
→
→ Run)
1) Выбрать команду Запуск
Run
2) Нажать клавишу F9
3) Нажать кнопку на панели инструментов
Запуск (
13. Сохраните проект и модуль в созданной Вами папке.
7Разработка учителя информатики
ГБОУ СШ № 4 им. В.П. Глушко города Байконур
Казаковой Альбины Викторовны
8