Розробка проекту «Одноальтернативні розгалуження»
Завдання. Створити проект "Світлофор". В даному проекті в основній формі повинна виводитися панель з трьома лампочками. Зліва від панелі з лампочками повинна знаходиться група, яка складається з трьох перемикачів. На кожному з них повинно бути позначено колір лампочки, який вмикає користувач. Після вибору одного з перемикачів на панелі включається лампочка з вибраним кольором і поруч з’являється малюнок, а дві інші лампочки повинні гаснути.
Під час роботи на комп’ютері дотримуйтесь правил безпеки та санітарно-гігієнічних норм.
Хід роботи
Встановити текст заголовка форми Світлофор.
Розмістіть на формі елементи управління та задайте їм властивості так, щоб це відповідало зображенню на малюнку, що нижче.
Н
а
панель потрібно вивести три об’єкта
типа shape,
які в подальшому будуть представляти
лампочки світлофора. Об’єкт shape
знаходиться в
Additional
палітри
компонентів. Щоб залити внутрішню
область об’єкта, необхідно використати
властивість Brush.
Ця властивість має: Color
— визначає колір заливки. Для властивості
shape
кожного з цих об’єктів встановити
значення stcircle,
межі кожного об’єкту намалювати чорним
кольором властивість Pen.Color.
Для кожного з об’єктів shape
потрібно надати колір такий, як і панелі
властивість Brush.color.
При включенні наступної лампочки
потрібно двом іншим повертати колір
clsilver.
Таким чином на панелі світлофора завжди
горітиме тільки одна лампочка. Для
кожної лампочки встановити свої малюнки.
Фрагмент програми для кнопки Включити лампочку.
Begin
Image1.Visible:= False;
Image2.Visible:= False;
Image3.Visible:= False; // невидимий малюнок 1, 2, 3
If RadioButton1.Checked then // вибір першої лампочки
Begin
Shape1.Brush.Color:=ClRed ; // зміна кольору круга 1 на червоний
Image1.Visible:= True; // видимий малюнок 1
Image2.Visible:= False;
Image3.Visible:= False; // невидимий малюнок 2, 3
Shape2.Brush.Color:=ClSilver ; // зміна кольору кругів 2, 3 на сірий
Shape3.Brush.Color:=ClSilver ; End; End;
Практична робота3. Розробка проекту з використанням циклів. Сума ряду чисел.
Завдання. Створити програму, яка знаходить суму всіх натуральних чисел від m до п.
Під час роботи на комп’ютері дотримуйтесь правил безпеки та санітарно-гігієнічних норм.
Хід роботи
Розмістити на формі візуальні компоненти. Встановити значення властивостей компонентів : колір, шрифт, заголовки.
Створити процедуру обробки події OnClick для кнопки «Обчислити», в яку занести зчитування даних з полів Editl та Edit2, обчислення суми та виведення в мітку Label її значення. Ввести необхідну послідовність команд у тіло процедури.
Фрагмент програми
Var
m, n, s:integer;
Begin
m:= StrToInt(Form1.Edit1.Text);
n:= StrToInt(Form1.Edit2.Text);
s:=0;
While m<=n do
Begin
s:=s+m;
m:=m+1;
End;
Form1.Label4.Caption:=' Cyмa чисел: '+IntToStr(s);
End;
Додати до форми кнопку «Закрити» для закриття програми.
Зберегти проект на диск (File/ Save project As...)
Запустити проект та перевірити правильність його виконання (Run / Run або F9).