Разработка практического занятия по программированию в 10 классе

Руководство к выполнению практической работы  «Создание приложения по переводу двоичного числа в десятичное» 1. Перед созданием нового проекта нужно создать в папке  Документы  папку под именем ФИ_класс_ПР2, затем запустить программу  Lazarus и закрыть все другие проекты, для этого выполните команду Файл Закрыть все. 2. Создайте новый проект с помощью команды Проект  Создать проект  Приложение. 3. Измените цвет формы с помощью свойства Color. 1 4. Установите на форме объект Метка (Label1) и измените его свойство Caption. Метка (Label) 5. Настройте значения свойства Шрифт (Font) для объекта Label1. 6. Установите на форме объект Метка (Label2) и измените его свойство Caption и  настройте значения свойства Шрифт (Font) для этого объекта. 2 7. Установите на форме объект Текстовое поле (Edit1),   измените его свойство Text и  3 настройте значения свойства Шрифт (Font) для этого объекта. Текстовое поле (Edit) 8. Установите на форме объект Текстовое поле (Edit2),  измените его свойство Text и  настройте значения свойства Шрифт (Font) для этого объекта. 4 9. Установите на форме объект Командная кнопка (Button1),  измените его свойство Color. 5 Командная кнопка (Button) 10. Измените свойство Caption для Командной кнопки (Button). 6 11.  Задайте процедуру для события 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