перевод дробных чисел в Delphi

14.03.2012, 16:18. **Показов** 984. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Здравствуте, помогите пожалуйства исправить ошибку

Pascal

var
N, M: single;
Bin: string;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
N:= StrToFloat(Edit1.Text);
Label3.Caption:= '0.';
Bin:= ' ';
while N > 0 Do
begin
M := N * 16;
N := Frac(M);
Bin := Bin + FloatToStr(Int(M));
If M > 9
then Case Int(M) of
10: Bin := 'A' + Bin;
11: Bin := 'B' + Bin;
12: Bin := 'C' + Bin;
13: Bin := 'D' + Bin;
14: Bin := 'E' + Bin;
15: Bin := 'F' + Bin;
end
Else Bin:= Bin + FloatToStr(Int(M));
end;
Label3.Caption := Bin;
End;
 
end.

@Puporev · 14.03.2012, 17:23

Введи все данные на форме, в график так

Delphi

1	Cht1.Series[0].AddXY(t,y(a,t,n,K),'',clRed);

	14.03.2012, 17:23

перевод дробных чисел в Delphi

Решение