ТЕМА: « Разработка диаграмм».

В компонент ListBox1 на форме вводится массив целых чисел. Определить количество чисел с первой цифрой =4, =7 и =1. Построить круговую диаграмму соответственно этим количествам.

unit Unit1;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var n,k1,k2,k3:byte;i:integer; t:string;

begin

k1:=0;

k2:=0;

k3:=0;

n:=StrToInt(InputBox('Ââîä','Ââåäèòå êîë ÷èñåë','0'));

for i:=0 to n-1 do begin

LB1.Items.Add(InputBox('ââîä','ââåäèòå '+IntToStr(i+1)+' ÷èñëî','0'));

t:=LB1.Items[i];

if t[1]='4' then inc(k1);

t:=LB1.Items[i];

if t[1]='7' then inc(k2);

t:=LB1.Items[i];

if t[1]='1' then inc(k3); end;

Series1.Add(k1,'1àÿ öèôðà =4',clRed);

Series1.Add(k2,'1àÿ öèôðà =7',clBlue);

Series1.Add(k3,'1àÿ öèôðà =1',clWhite);

end;

end.