Delphi7. Задача - Дана сумма вклада, процентная ставка, вычислить процент прибыли и общая сумма через заданный срок

[NeedPro]

Помогите кто может у меня через 3 дня экзамен мне дали билет заранее в нем задача по Delphi 7 практическая работа я ваще не бум бум в делфи помогите решить((((

"Практическая часть: Сумма вклада - S руб., процентная ставка - P % годовых, вычислить процент прибыли и общая сумма к снятию через введенный пользователем срок."

Мне тока листинг полный нужен я распечатаю и решу на экзамене xDDD

Как она объясняла мне внешний вид должен быть такой:
Сумма влкада(Lable) (Edit) руб(Lable)
Процент(Lable) (Edit) %(Lable)
Срок(Lable) (Edit) месяц(Lable)
Процент прибыли(Lable) Пустой(Lable) руб(Lable)
Сумма к снятию(Lable) Пустой(Lable) руб(Lable)
даже формулу дала:
S * Срок/12 * % / 100

[Hacker19_90]

ну что же
за определённую

Сумма вклада - S руб.,

вы возможно получите то что хотите

через введенный пользователем срок."

Так что стучите!

[NeedPro]

"ну что же
за определённую плату"
блин на чужом горе нажиться хотят(((

[s-andriano]

Чужого горя здесь нет.
Есть нерадивый студент, который хочет кого-то обмануть.
По-честному, делать что-то за таких студентов - себе же вредить, т.к. станет одним неучем с дипломом больше. Но т.к. как показывает практика, неуч все равно найдет другой способ обмана, бездействие в данной ситуации неконструктивно.

[knopkodaf]

что-бы написать такую програмку, человеку который "вообще не бум бум", достаточно 1час почитать любой самоучитель, скажем первые 20-30 страниц, попробуй !!

[NeedPro]

Сообщение от knopkodaf

что-бы написать такую програмку достаточно 1час почитать любой самоучитель, скажем первые 20-30 страниц, попробуй !!

я вообще не бум бум)

[NeedPro]

unit Unit1;

 interface

 uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

 type
 TForm1 = class(TForm)
 Label1: TLabel;
 Label2: TLabel;
 Label3: TLabel;
 Label4: TLabel;
 Label5: TLabel;
 Label6: TLabel;
 Edit1: TEdit;
 Edit2: TEdit;
 Edit3: TEdit;
 Label7: TLabel;
 Label8: TLabel;
 Label9: TLabel;
 Label10: TLabel;
 Label11: TLabel;
 Label12: TLabel;
 Button1: TButton;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

 var
 Form1: TForm1;

 implementation

 {$R *.dfm}




 procedure TForm1.Button1Click(Sender: TObject);
 var
 S, Sum, Percent, Profit : Extended;
 i, Period : Integer;
 begin
 //Годовой процент начислений по вкладу.
 Percent := StrToFloat(Edit1.Text);
 //Начальная сумма по вкладу.
 S := StrToFloat(Edit2.Text);
 //Срок вклада в днях.
 Period := StrToInt(Edit3.Text);

 //Процент в виде долей от целой величины.
 Percent := Percent / 100;
 //Сумма с учётом начислений по полным годам.
 Sum := S;
 for i := 1 to Period div 365 do
 Sum := Sum + Sum * Percent;
 //Сумма с учётом остатка периода (с учётом оставшегося неполного года).
 Sum := Sum + Sum * Percent * (Period mod 365) / 365;
 //Прибыль.
 Profit := Sum - S;
 Edit4.Text := FloatToStr(Profit);
 //Сумма на конец периода.
 Edit5.Text := FloatToStr(Sum);
 end;

вот так я вбил в Form запускаю программу ошибка "The FormCreate method referenced by Form1. OnCreate does not exist. Remove the reference"
внешний вид выглядит вот так:





________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[BDA]

Ну вот, уже что-то.
Дельфи спрашивает, удалить ли описание метода, которого не существует.
Соглашайтесь