Вещественные переменные

← →
Серый © (2006-09-24 14:39) [0]

Как сделать так ,чтобы у вещественных переменных оставалась только дробная целая часть,а дробная отбрасывалась?

← →
PrXaos © (2006-09-24 14:49) [1]

Можна вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
a:real;i:integer;s:string;
begin
a:=62.88888; i:=1;
while currtostr(a)[i]<>"," do begin
s:=s+currtostr(a)[i];
inc(i);
end;
end;

← →
Zeqfreed © (2006-09-24 14:52) [2]

А для чего это надо? Если для вывода в строковом представлении, тогда следует использовать правильное форматирование при выводе. Иначе это не имеет смысла и должно быть решено другим путем.

← →
Серый © (2006-09-24 14:53) [3]

А что делает функция currtostr?
И нельзя ли воспользоваться функцией Int(n).Если да,то как.

← →
PrXaos © (2006-09-24 14:58) [4]

currtostr - переводит из вещественного типа в стринг

← →
MBo © (2006-09-24 15:09) [5]

Round Trunc Ceil Floor - округляют до целого
Int - взятие целой части (по направлению к нулю), результат вещественный

← →
PrXaos © (2006-09-24 15:11) [6]

А луцце вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
a:real;i,code:integer;s:string;
begin
a:=62.88888;
s:=currtostr(a);
val(s,i,code);//перевод из текстового типа в целочисленный
// i=[a]
end;

← →
PrXaos © (2006-09-24 15:14) [7]

Да! Послушай MBo и используй ф-цию Trunc!!!!

> [1] PrXaos © (24.09.06 14:49)
> Можна вот так:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> a:real;i:integer;s:string;
> begin
> a:=62.88888; i:=1;
> while currtostr(a)[i]<>"," do begin
> s:=s+currtostr(a)[i];
> inc(i);
> end;
> end;

Можна... Но это через жо...

> только дробная целая часть

А что это такое? Дробная целая часть

Вещественные переменные Найти похожие ветки