[udachnik2]

Всем здравия! Така проблема.. чтоб её! Делаю калькулятор. Цель: научить его подсчитывать сложный процент, это если кому не понятно, объясню на деньгах. Есть 1000руб. Положить их в банк под сложный процент, допустим под 40%. Каждый месяц к моей 1000руб. будет прибавляться 40%. Это после первого месяца к ней прибавится 400руб. После второго месяца сумма будет отсчитываться уже от имеющейся. То есть 40% от 1400 это 560руб. Вот так примерно выглядит моя программа:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var bd,c:Integer;
a,b,d:Real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
bd:=StrToInt(Edit3.Text);
for c:=1 to bd do
begin
d:=a/100*b;
Label1.Caption:=d;//вот здесь начинается проблема. не получается вывести результат на метку.
end;
end;

end.

[PhoeniX]

FloatToStr

[udachnik2]

Спасибо! Стало работать. Теперь остается поработать над логической частью программы.

[udachnik2]

Я попробовал переделать прогу. И после переделки выдает ошибку

[Error] Unit1.pas(41): Incompatible types: 'Integer' and 'Extended'

а изменил я вот что:

procedure TForm1.Button1Click(Sender: TObject);
var bd,c,a,b,d,v:Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
bd:=StrToInt(Edit3.Text);
v:=100;
for c:=1 to bd do
begin
d:=a/v*b;//здесь поменял выражение и теперь пишет что типы не совместимы
a:=a+d;
Label3.Caption:=FloatToStr(d);
end;
end;

[AND_REY]

Замени StrToInt на StrToFloat там где а, b и тип в разделе var с, bd: integer остальное Real.
Нужно внимательней выбирать тип целый, дробный ...

[PhoeniX]

Андрей, почитай первый пост темы, у него так и было.

А топикстартеру советую открыть любую современную книжку по Delphi и внимательно прочитать хотя бы первую половину.

[dr. F.I.N.]

To DJ PhoeniX, [offTop]Опа-на! Какие люди! С возвращением что-ли? [/offTop]