Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Серый © (2006-09-24 14:39:00)
Как сделать так ,чтобы у вещественных переменных оставалась только дробная целая часть,а дробная отбрасывалась?

Anatoly Podgoretsky (2006-09-24 20:20:00) [1]

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

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

EvS (2006-09-24 15:22:00) [2]
>
[1] PrXaos © (24.09.06 14:49)
[6] PrXaos © (24.09.06 15:11)

Нормальные герои всегда идут в обход(с)?

SergP (2006-09-24 15:16:00) [3]
> [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;

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

PrXaos (2006-09-24 15:14:00) [4]
Да! Послушай MBo и используй ф-цию Trunc!!!!

PrXaos (2006-09-24 15:11:00) [5]
А луцце вот так:

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;

MBo (2006-09-24 15:09:00) [6]
Round Trunc Ceil Floor - округляют до целого
Int - взятие целой части (по направлению к нулю), результат вещественный

PrXaos (2006-09-24 14:58:00) [7]
currtostr - переводит из вещественного типа в стринг

Серый (2006-09-24 14:53:00) [8]
А что делает функция currtostr?
И нельзя ли воспользоваться функцией Int(n).Если да,то как.

Zeqfreed (2006-09-24 14:52:00) [9]
А для чего это надо? Если для вывода в строковом представлении, тогда следует использовать правильное форматирование при выводе. Иначе это не имеет смысла и должно быть решено другим путем.

PrXaos (2006-09-24 14:49:00) [10]
Можна вот так:

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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »