Скачать: CL | DM;

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

← →
Серый ©   (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!!!!

---

← →
SergP ©   (2006-09-24 15:16) [8]

> [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;


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

---

← →
EvS ©   (2006-09-24 15:22) [9]

>
[1] PrXaos ©   (24.09.06 14:49)
[6] PrXaos ©   (24.09.06 15:11)


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

---

← →
Anatoly Podgoretsky ©   (2006-09-24 20:20) [10]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c