@sokramento

Скажите пожалуйста почему не строится график(как правильно вывести) и правильно ли написан цикл(как будет более правильно его написать)?! Код программы и скрин формы при запуски приложен ниже.

procedure TForm1.Button1Click(Sender: TObject);
var
F_max : integer;
F, t, t_n, t_z : real;
begin
Series1.Clear;
F_max := StrToInt(Edit1.text);
t_n := StrToFloat(Edit2.text);
t_z := StrToFloat(Edit3.text);
t := StrToFloat(Edit4.text);
if t<=t_z then begin
F:=0; // первый уровень
Series1.AddXY(t, F);
if (t_z<t) and (t<=t_z+t_n) then // второй уровень
begin
F:= F_max*Sin(((t-t_z)/t_n)*(PI/2));
Series1.AddXY(t, F);
if t>t_z+t_n then // третий уровень
begin
F:=F_max;
Series1.AddXY(t, F);
end;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Chart1.Print;
end;
end.

Миниатюры

 

0