Складання та виконання алгоритмів з розгалуженням

 З простих умов за допомогою логічних операторів: and — "логічне І", or - "логічне АБО" і not - "заперечення" можна будувати складні умови.

Наприклад:

(key = '0') and (key

(day = 7) or (day = 6)

Команда розгалуження if.

Інструкція if дозволяє вибрати один з двох можливих варіантів виконання програми. Вибір здійснюється залежно від виконання умови.

В загальному вигляді інструкція if записується так:

if умова then

begin

// тут вказівки, які треба виконати, якщо умова істинна.

end

else

begin

// тут вказівки, які треба виконати, якщо умова хибна.

end;

Якщо яка-небудь дія повинна бути виконана тільки при виконанні певної умови і пропущена, якщо ця умова не виконується, то інструкція if може бути записаний так:

if умова then

begin

{ інструкції, які треба виконати, якщо умова виконується, істинна } 

end;

Проект1. «Значення функції»

Задача 1. Обчислити значення функції:

1. Розмістіть на формі потрібні компоненти та задайте потрібні властивості за зразком.

1. Код процедури для кнопки “Обчислити” буде такий:

procedure TForm1.Button1Click(Sender: TObject);

var x,y:real;// змінні

begin

x:=StrToFloat(Edit1.Text);

if x=0 then y:=4*x+1

else y:=sqr(x)-2;

Edit2.Text:=FloatToStrf(y,ffNumber,6,2);

end;

1. Код процедури для кнопки “Очистити” буде такий:

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:=' ';

Edit2.Text:=' ';

end;

1. Зберігаємо проект у своїй папці і запускаємо на виконання. При наявності помилок редагуємо текст програмного коду.

Задача 2. Обчислити значення функції:

Задача 3. Скласти програму розрахунку за формулою (a, b, x задає користувач). Працюємо по варіантам.

Використання “перемикачів” та "радіокнопок"

Проект 1. "Проект для обчислення опору електричного кола"

Задача. Розробити проект для обчислення опору електричного кола, який складається з двох провідників, що ввімкнені послідовно або паралельно.

При введенні R1=0 та R2=0, вивести вікно-повідомлення "Потрібно задати величину хоча б одного опору".

1. Доповнити наведену форму об’єктами RadioGroup та BitBtn

Форма повинна мати такий вигляд:

1. Вставте на форму об’єкт RadioGroup (Група перемикачів), який знаходиться на вкладці Standard

1. Для нього змінити властивості

1. Вставте на форму об’єкт BitBtn (Кнопка з піктограмою), який знаходиться на вкладці Additional

1. Вставити піктограму на кнопку можна за допомогою двох властивостей об’єкта BitBtn. Оберіть на свій смак вигляд кнопки.

1. Код процедури для кнопки “Обчислити” буде такий:

procedure TForm1.Button1Click(Sender: TObject);

var R1,R2,R:Real;

begin

R1:=StrToFloat(Edit1.Text);

R2:=StrToFloat(Edit2.Text);

if(R1=0) and (R2=0) then

begin

ShowMessage('Потрібно задати величину хоча б одного опору');

end;

if RadioGroup1.Itemindex=-1 then ShowMessage('Потрібно вказати тип з’єднання')

else if RadioGroup1.Itemindex=0 then R:=R1+R2

else R:=(R1*R2)/(R1+R2);

Edit3.Text:=FloatToStrF(R,ffNumber,6,2);

end;

1. Зберігаємо проект у своїй папці і запускаємо на виконання. При наявності помилок редагуємо текст програмного коду.

Проект 2. "Тест з інформатики"

Задача. Розробити проект для зразка тестування. Використати компонент “CheckBox”.

 Форма повинна мати такий вигляд:

1. Розмістіть на формі потрібні компоненти за зразком, а саме 3 компоненти Label, 4 компоненти CheckBox, кнопку Button: Результат.

1. Код для кнопки результат може бути такий:

procedure TForm1.Button1Click(Sender: TObject);

begin

if CheckBox1.Checked and CheckBox3.Checked and CheckBox3.Checked

Then Label3.Caption:='Вірно!'

else Label3.Caption:='Не вірно!';

end;

1. Зберігаємо проект у своїй папці і запускаємо на виконання. При наявності помилок редагуємо текст програмного коду.

Завдання для самостійного виконання:

Об’єкт Форма

Назва – Form

Властивості:

• Caption – текст у заголовку (не змінюється користувачем)

• Color – колір фону

• Font – шрифт об’єктів, розміщених на формі

• Width – ширина форми

• Height – висота форми

• Left – відстань форми від лівого краю екрану

• Тор – відстань від верхнього краю екрану

• AutoSize – дозволяє чи забороняє автоматично змінювати розміри форми у залежності від розмірів та положення інших об’єктів та формі

• Hint – текст спливаючої підказки

• ShowHint – встановлює дозвіл на демонстрацію спливаючої підказки

Об’єкт Мітка  

Назва – Label

Палітра компонентів – Standard

Властивості:

• Caption – текст у мітці (не змінюється користувачем)

• Font – шрифт

• Color – колір фону

• Width, Height – розміри

• Left, Top – положення мітки

• AutoSize – автоматична зміна розміру в залежності від вмісту

• Hint, ShowHint – відображення спливаючої підказки

• WordWrap – відповідає за дозвіл на перенесення слів у наступний рядок

• Visible – відповідає за видимість мітки на формі

• Transparent – відповідає за прозорість фону мітки