Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

ЗАДАНИЕ. Напишите программу, которая вычислит доход по вкладу. Procedure TForm1.Button1Click (Sender: TObject). Procedure TForm1.Button1Click (Sender: TObject)





Напишите программу, которая вычислит доход по вкладу. Программа должна обеспечивать расчет простых и сложных процентов. Простые проценты начисляются в конце срока вклада, сложные – ежемесячно и прибавляются к первоначальной сумме вклада и в следующем месяце проценты начисляются на новую сумму. Рекомендуемый вид формы программы приведен ниже, (рис. 20).

 

Рис. 20

Решение:

{щелчок по кнопке Вычислить}

procedure TForm1.Button1Click (Sender: TObject);

var

sum: real; {сумма вклада}

pr: real; {процентная ставка}

srok: integer; {срок вклада}

dohod: real; {доход по вкладу}

buf: real;

i: integer;

begin

{получить исходные данные}

sum: =StrToFloat (Edit1.Text);

pr: = StrToFloat (Edit2.Text);

srok: = StrToInt (Edit3.Text);

if RadioButton1.Checked

then {выбран переключатель Простые проценты}

dohod: =sum*(pr/100)*(srok/360)

else {т. к. В группе два переключателя, то если не выбран RadioButton1, то выбран RadioButton2 – Сложные проценты}

begin

buf: =sum;

for i: =1to srok do

buf: =buf+buf*(pr/100);

{здесь buf – сумма в конце срока вклада}

dohod: =buf-sum;

end;

sum: =sum+dohod;

Label14.Caption: =’Доход: ’+Float-ToStrF (dohod, ffGeneral, 9, 2)+#13+’Сумма в конце срока вклада: ’+FloatToStrF (sum, ffGeneral, 9, 2);

End;

{выбор переключателя Простые проценты}

procedure TForm 1.RadioButton1Click (Sender:

TObject);

begin

Label 12. Caption: =’ Срок (дней)’;

Label 14. Caption: =’’;

end;

{выбор переключателя Сложные проценты}

procedure TForm 1.RadioButton2Click

(Sender: TObject);

begin

Label 12. Caption: =’ Срок (месяцев)’;

Label 14. Caption: =’’;

end;







Дата добавления: 2014-11-10; просмотров: 651. Нарушение авторских прав; Мы поможем в написании вашей работы!




Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...


Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...


Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...


Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

Особенности массовой коммуникации Развитие средств связи и информации привело к возникновению явления массовой коммуникации...

Тема: Изучение приспособленности организмов к среде обитания Цель:выяснить механизм образования приспособлений к среде обитания и их относительный характер, сделать вывод о том, что приспособленность – результат действия естественного отбора...

Тема: Изучение фенотипов местных сортов растений Цель: расширить знания о задачах современной селекции. Оборудование:пакетики семян различных сортов томатов...

Этапы и алгоритм решения педагогической задачи Технология решения педагогической задачи, так же как и любая другая педагогическая технология должна соответствовать критериям концептуальности, системности, эффективности и воспроизводимости...

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

Репродуктивное здоровье, как составляющая часть здоровья человека и общества   Репродуктивное здоровье – это состояние полного физического, умственного и социального благополучия при отсутствии заболеваний репродуктивной системы на всех этапах жизни человека...

Studopedia.info - Студопедия - 2014-2025 год . (0.012 сек.) русская версия | украинская версия