Как в программе отсеч лишние знаки после запятой?

[egor088]

http://www.ozon.ru/?context=search&text=Delphi&sort=ra te[/url]

И какую выбрать?

[drknn]

library basic;

uses
  SysUtils,
  Windows,
  Classes;

{$R *.res}

// --------- Отброс дробной части ---------
function OtbrosDrobnChasti(ext_DobleVar:Double):Integer; stdcall;
  // Функция Int возвращает целочисленную часть числа с плавающей точкой, как
  // число с плавающей точкой.
  // Функция Trunc делает то же самое, но возвращает целое число в формате Integer.

  begin
    DecimalSeparator:='.';
    OtbrosDrobnChasti:=Trunc(ext_DobleVar);
  end;

exports OtbrosDrobnChasti;

begin
end.

Так устроит?

[Stilet]

Как в программе отсеч лишние знаки после запятой?

Кроме представленных выше есть еще "медленный" вариант:

var a,b,c,d,e,f,i,s:double;k,n:integer; ss:string;
begin
 a:=StrToFloat(Edit1.Text);
 b:=StrToFloat(Edit2.Text);

 c:=b/0.7;
 d:=a/30;
 e:=c-d;
 f:=e*4.6;
 i:=d*5.5;
 s:=f+i;
 ss:=FloatToStr(s);
 k:=pos(DecimalSeparator,ss);
 n:=4;
  Edit3.Text:=copy(ss,1,k+n);
end;

Так устроит?

Что за бред? Ты тему то читал?

[SERG1980]

Сообщение от egor088

Ошибка
Undeclared identifier:'Edit3'
Undeclared identifier:'n'

Не знаю актуально ещё или нет
1. компилятор не знает окна с названием Edit3 посмотрите св-во Name окна куда вы пишите результат и исправьте эту строчку на правильное название компонента

Edit3.Text:=FloatToStrF(s,ffFixed,4,1);

2. Компилятор не знает переменную n. Объявите её глобально и она должна иметь тип Integer а не extended

[drknn]

Что за бред? Ты тему то читал?

А мы уже на "ты"? С каких это пор? Ну да ладно, раз на "ты", значит так тому и быть.
"Как в программе отсеч лишние знаки после запятой?" - я показал как убрать все знаки после запятой. Если для тебя это бред, то зачем было создавать ветку вообще? Если не бред, то соединив этот метод с другими, можно получить нужный результат.
Ты сделал быстрый вывод, но к сожалению, не правильный. Удачи в рассуждениях перед принятием решений.
P.S.
Кстати, слово "отсеч", увы, пишется с мягким знаком - "отсечь", грамотей.

[egor088]

Спасибо всем за советы.

[ArtGrek]

Сообщение от New man

После операторов в case .. of ставятся знаки ;

куда еше подробнее???

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: n:=4;
1: n:=5;
end;
sorry, не видел продолжения переписки

если я не пропустил, так вроди не предлогалось
Trunc(12.75) = 12
Frac(12.75) = 0.75

[egor088]

Продолжаю тему
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:real; c,d,e,f,i,s,n :extended;

begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=b/0.7;
c:=Trunc(c*10)/10;
d:=a/30;
d:=Trunc(d*10)/10;
e:=c-d;
f:=e*n;
f:=Trunc(f*100)/100;
i:=d*5.5;
i:=Trunc(i*100)/100;
s:=f+i;
Label4.Caption:=FloatToStrF(s,ffFix ed,4,1);
begin
case RadioGroup1.ItemIndex of
0: n:=4.6;
1: n:=5.8;

end;
end;

end.<------ pas[62]

Ошибка:
pas[56]:Value assigned to 'n' never used
pas[57]:Value assigned to 'n' never used
pas[48]:Variable 'n' might not have been initialized
pas[62]:';'expected but'.'found
pas[64]:Declaration expected but end of file found

[SERG1980]

Егор выклыдывайте ваш проект и мы вам его поправим так будет проще, потому что мне кажеться вы не хотите читать предыдущие посты, в которых Вам указали на ваши ошибки

[GunSmoker]

Ты код отформатируй и сам всё увидишь.