Старша школа

“Створення програми Lazarus "Кіт"

"Створення програми Lazarus " Світлофор"

“Створення програми для обчислення відсоткової ставки”

    

Мета: навчитися застосовувати різні типи змінних при автоматичних розрахунках та використовувати перемикачі/групи перемикачів Lazarus (компоненти RadioGroup, RadioButton).

          Завдання. Необхідно створити програму, яка допоможе визначити дохід по вкладу з урахуванням обраної відсоткової ставки. Прості відсотки нараховуються після закінчення терміну вкладу, складні відсотки нараховуються щомісяця і додаються до суми вкладу.

          Технологія виконання завдання.

1. Запустіть програму Lazarus, створіть новий проект та збережіть його до окремої папки.        

2. Розмістіть на формі такі елементи: чотири написи (Label), три поля (Edit), одну кнопку (Button), а також компонент RadioGroup*, в якому будуть два перемикачі: RadioButton1 та RadioButton2. Розташуйте їх за зразком:

*Компонент RadioGroup знаходиться на вкладці Standart:

Оберіть його та розташуйте на формі, після чого знайдіть перемикач RadioButton:

Обравши перемикач, розмістіть його в тому місці на формі, де знаходиться RadioGroup, розташований раніше, просто клацнувши на ньому. Повторіть дію двічі, адже нам необхідно, щоб було саме два перемикача:

3. Змініть для вказаних компонентів такі значення властивостей:

• Label1: властивість Caption — значення “Сума”;
• Label2: властивість Caption — значення “Термін (місяці)”;
• Label3: властивість Caption — значення “% (річних)”;
• Label4: властивість Caption — видаліть значення;
• Edit1, Edit2, Edit3: властивість Text — видаліть значення;
• RadioGroup1: властивість Caption — значення “Схема нарахувань”;
• RadioButton1: властивість Caption — значення “прості відсотки”;
• RadioButton2: властивість Caption — значення “складні відсотки”;
• Button1: властивість Caption — значення “Обчислити”.

Отримаємо такий результат:

4. Подвійним клацанням лівої кнопки миші відкрийте Редактор тексту для кнопки “Обчислити” та додайте такий код:

procedure TForm1.Button1Click(Sender: TObject);

var

   sum:real;                  

   pr: real;                  

   period: integer;          

   profit: real;              

   sum2: real;            

   i: integer;

begin

   sum:=StrToFloat(Edit1.text);

   pr:=StrToFloat(Edit2.text);

   period:=StrToInt(Edit3.text);

   if RadioGroup1.ItemIndex=0 then

     // Вибрано перемикач Прості відсотки

     profit:=sum*(pr/100/12)*period

else

    // Вибрано перемикач Складні відсотки

   begin

      sum2:=sum;

      for i:=1 to period do

         sum2:= sum2+sum2*(pr/100/12);

      profit:=sum2-sum;

   end;

   sum:=sum+profit;

   Label4.Visible:=True;

   Label4.Caption:='Дохід: '+FloatToStrF(profit,ffFixed,8,2)

   +#13+'Сума в кінці терміну вкладу: '+FloatToStrF(sum, ffFixed,8,2);

end;

5. Запустіть проект на виконання. Перевірте правильність роботи програми.

Додаткове завдання. Внесіть зміни до напису Label1, щоб він мав такий вигляд: “Сума (грн.)”. Відредагуйте текст коду таким чином, щоб результати обчислення також були в гривнях.

“Реалізація умовних конструкцій у cередовищі Lazarus”

          Мета: навчитися використовувати умовний оператор у cередовищі Lazarus та додавати до проекту компонент TEdit

          Завдання. Створити логічну гру, в якій комп’ютер буде загадувати число, а користувач програми пробувати його відгадати. Після кожної спроби програма буде підтверджувати правильність вибору або повідомляти, що загадане число більше (менше) від запропонованої відповіді.

          Технологія виконання завдання.

1. Запустіть програму Lazarus, створіть новий проект та збережіть його до окремої папки.        

2. Натисніть на пусту форму Form1. В Інспекторі об’єктів перейдіть до меню Властивості та змініть такі значення:

• Сaption — “Відгадай”;
• Color — clSilver;
• Height — 240;
• Left — 350;
• Top — 220;
• Width — 320.

3. Розташуйте на формі такі об’єкти: дві кнопки (Button1, Button2), два написи (Label1, Label2) та поле (Edit1). Як додати кнопку і напис ми дізналися в попередніх роботах. Компонент TEdit також знаходиться на вкладці Standart та має такий вигляд:

4. Використовуючи Інспектор об'єктів, змініть властивості створених об'єктів:

·         для кнопки Button1 встановіть властивість Caption — “Загадай число”, інші властивості — довільні;

·         для кнопки Button2 встановіть властивість Caption — “Я вгадав число?”, інші властивості — довільні;

·         для поля Edit1 видаліть значення властивості Text, інші властивості — довільні;

·         для напису Label1 встановіть властивість Caption — “ввести число”, інші властивості — довільні;

·         для напису Label2 видаліть значення властивості Caption, інші властивості — довільні.

5. Розмістіть компоненти форми так, як показано на малюнку:

(напис Label2 невидимий, тому що ми видалили значення Caption для нього).

6. Виділіть кнопку з написом “Загадай число”. У вікні Інспектора об'єктів перейдіть на закладку Події, знайдіть подію OnClick і двічі клацніть у пустому полі справа.

7. Одразу ж відкриється Редактор тексту. В тому місці, де з’явився курсор введіть код процедури:

kol:=0;   randomize;

ch:=random(100);

Примітка. У цій процедурі: randomize — процедура запуску генератора випадкових чисел; random(n) — функція вибору випадкового цілого числа у межах від 0 (включно) до n (не включаючи); ch — змінна (загадане число); kol — змінна (кількість спроб відгадування). Також у редакторі тексту напівжирним шрифтом автоматично виділяються зарезервовані слова, а червоним — знаки пунктуації.

8. Виділіть кнопку з написом “Я вгадав число?”. Аналогічно оберіть подію OnClick і двічі клацніть у порожньому полі справа. У вікні Редактора тексту в місці, де з’явився курсор  введіть наступний код процедури:

ck:=strtoint(edit1.text);

    kol:=kol+1;

      if ch>ck then 

          begin

              label2.Caption:='моє число більше';

              form1.Color:=claqua;

         end

     else

       if ch<ck then   

         begin

             label2.Caption:='моє число менше' ;

             form1.Color:=clyellow;

         end

       else 

         begin

           form1.Color:=clolive;

           label2.Caption:='ви вгадали за '+inttostr(kol)+ ' спроб';

         end;

Примітка. У процедурі використано функцію strtoint — перетворення рядка тексту в ціле число — та передбачено зміну кольору форми залежно від взаємного розташування відповіді й задуманого числа. Кольори можна вибрати іншими.

9. Знайдіть в Редакторі тексту такі рядки:

var

      Form1:  TForm1;

   implementation

Між словами TForm1 та implementation введіть такий код:

ch,{число комп'ютера}

    ck,{число користувача}

    kol{кількість спроб}:

    integer; {тип даних - цілі числа}

10. Запустіть проект на виконання, натиснувши клавішу F9. 

Перевірте принцип його роботи: спочатку необхідно натиснути на кнопку “Загадай число”, 

щоб комп’ютер обрав число від 0 до 100, яке ми не бачимо. 

Потім ввести довільне число в пусте поле. При натисканні на кнопку “Я вгадав число?” 

програма дає підказку, щодо величини загаданого числа.

Додаткове завдання. Відредагуйте код програми так, щоб діапазон вибору випадкового числа змінився на “0..50”.