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

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

ЗАДАНИЕ. Напишите программу, которая вычислит доход по вкладу. 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 оперирует с двумя категориями...

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

Тема: Кинематика поступательного и вращательного движения. 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью, проекция которой изменяется со временем 1. Твердое тело начинает вращаться вокруг оси Z с угловой скоростью...

Условия приобретения статуса индивидуального предпринимателя. В соответствии с п. 1 ст. 23 ГК РФ гражданин вправе заниматься предпринимательской деятельностью без образования юридического лица с момента государственной регистрации в качестве индивидуального предпринимателя. Каковы же условия такой регистрации и...

Менадиона натрия бисульфит (Викасол) Групповая принадлежность •Синтетический аналог витамина K, жирорастворимый, коагулянт...

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

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

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