Ім'я файлу: Практична робота обчислення відсотків.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. Запустіть проект на виконання. Перевірте правильність роботи програми. |