close

Вход

Забыли?

вход по аккаунту

?

Проект - "Вклад"

код для вставкиСкачать
Программа Вклад.
С помощью данного проекта вкладчик, положивший деньги в банк, сможет рассчитать, какую сумму он должен получить по окончании срока действия договора с банком, если по условиям договора вклад положен в банк на определенное количество лет под определенный процент, который не должен изменяться до окончания срока действия договора.
1) Создаем интерфейс программы. Примерно он будет выглядеть вот так:
На форме у нас есть 1) 5 TEdit. - Находиться на Вкладке Standart
2) 6 Tlabel - Находиться на Вкладке Standart
3) 3 Tbottom - Находиться на Вкладке Standart
4) 1 TImage - Находиться на Вкладке Adittional.
Для загрузки изображения необходимо создать рисунок и загрузить его через Вкладка Свойства - Picture - Загрузить изображение.
ДАЛЕЕ......
2) Для кнопки пишем следующий код. (предварительно нажав на нее два раза левой клавишей)
procedure TForml.ButtonlClick(Sender: TObject);
var i, srok, grn, kop: integer;
vkl, pro, drb, drbl: real;
begin
vkl:=StrtoFloat(Editl.Text); {- вводим сумму вклада}
srok:=StrtoInt(Edit2.Text); {- вводим срок действия договора}
pro:=StrtoFloat(Edit3.Text); {- вводим процент по вкладу}
for i:=l to srok do {- цикл от 1 до срока действия договора}
vkl:=vkl+vkl*pro/100; {- подсчет суммы + проценты}
grn:=trunc(vkl);{- обнуляем гривны}
Edit4.Text:=InttoStr(grn);{- выводим гривны}
drb:=vkl-grn;{- сколько копеек}
drbl:=drb*100;
kop:=round(drbl) ;
Edit5.Text:=InttoStr(kop){- выводим копейки}
end;
3) Код для кнопки ВЫХОД:
procedure TForml.Button2Click(Sender: TObject);
begin
close
end;
4) Код для кнопки СБРОС:
procedure TForml.Button3Click(Sender: TObject);
begin
Editl.Text:=' ';
Edit2.Text:=' ';
Edit3.Text:=' ';
Edit4.Text:=' ';
Edit5.Text:=' ';
end;
Автор
georg88
Документ
Категория
Без категории
Просмотров
37
Размер файла
162 Кб
Теги
вклад, проэкт
1/--страниц
Пожаловаться на содержимое документа