Ім'я файлу: Практична робота обчислення відсотків.docx
Розширення: docx
Розмір: 99кб.
Дата: 19.03.2024
скачати
Пов'язані файли:

Практична робота № 7

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

Мета: навчитися застосовувати різні типи змінних при автоматичних розрахунках та використовувати перемикачі/групи перемикачів 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. Запустіть проект на виконання. Перевірте правильність роботи програми.
скачати

© Усі права захищені
написати до нас