округление

Вверх ↑

Форумы Между деломокругление ← Ctrl12Ctrl →

Этот топик читают: Гость

Гость

Ответов: 17029

Рейтинг: 0

#1: 2005-12-24 02:12:00 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-09 08:30:04

карма: 0

Ответов: 9906

Рейтинг: 351

#2: 2005-12-24 02:19:00 ЛС | профиль | цитата

round(x[,y=1]) округление, round(x,y)=y*round(x/y)

карма: 9

Ответов: 2060

Рейтинг: 28

#3: 2005-12-24 02:25:00 ЛС | профиль | цитата

Add(MainForm,5581166,21,105)
{
 Left=20
 Top=105
}
Add(MathParse,3746377,203,196)
{
 MathStr="round(%1 ,.001)"
 link(onResult,2984739:doText,[])
 link(X1,16724885:Text,[(209,181)(209,181)])
}
Add(Edit,16724885,203,133)
{
 Left=25
 Top=135
 Width=110
 Text="4564.65897676"
 link(onEnter,3746377:doCalc,[(245,146)(245,180)(193,180)(193,202)])
}
Add(Label,2984739,280,196)
{
 Left=170
 Top=140
 Width=145
}

карма: 1

Гость

Ответов: 17029

Рейтинг: 0

#4: 2005-12-24 02:32:00 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-09 08:30:04

карма: 0

Ответов: 9906

Рейтинг: 351

#5: 2005-12-24 02:42:00 ЛС | профиль | цитата

Add(Math,12724470,175,35)
{
 OpType=35
 Op2=0.001
 link(onResult,2984739:doText,[])
}
Add(Edit,16724885,105,28)
{
 Left=25
 Top=135
 Width=110
 Text="4564.65897676"
 link(onEnter,12724470:doOperation,[])
}
Add(Label,2984739,238,35)
{
 Left=170
 Top=140
 Width=145
}

карма: 9

Ответов: 676

Рейтинг: 5

#6: 2005-12-24 02:46:59 ЛС | профиль | цитата

Извините за тупой вопрос как вычислить проценты
например размер файла 3 544 байт потом я его сжал ZLIB стал 2 890 байт как получить процент сжатия как в Winrar ?

карма: 1

Ответов: 2060

Рейтинг: 28

#7: 2005-12-24 02:49:59 ЛС | профиль | цитата

2 890 / 3 544 * 100 так наверно...

карма: 1

Ответов: 676

Рейтинг: 5

#8: 2005-12-24 03:08:00 ЛС | профиль | цитата

2 890 / 3 544 * 100 так наверно...

Точно совсем из головы вылетело спасибо

карма: 1

Ответов: 2060

Рейтинг: 28

#9: 2005-12-24 03:11:00 ЛС | профиль | цитата

Не за что...

карма: 1

Ответов: 655

Рейтинг: 0

#10: 2005-12-24 03:29:00 ЛС | профиль | цитата

пора заново математику изучать

карма: 0

Ответов: 655

Рейтинг: 0

#11: 2005-12-24 04:11:00 ЛС | профиль | цитата

А как так-же последнюю цифру узнать?

карма: 0

Ответов: 676

Рейтинг: 5

#12: 2005-12-24 04:31:00 ЛС | профиль | цитата

В чем фишка почему не компилит пишет что не обьявлен индефикатор

Add(MainForm,2233653,126,147)
{
 Left=20
 Top=105
 link(onCreate,10787259:doOperation,[])
}
Add(InlineCode,10787259,196,182)
{
 WorkPoints=#11:doOperation|
 EventPoints=#8:onResult|
 DataPoints=#3:op1|3:op2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|11:    private|10:    public|19:    _prop_Op1:real;|19:    _prop_Op2:real;|24:    _data_Op1:THI_Event;|24:    _data_Op2:THI_Event;|30:    _event_onResult:THI_Event;|0:|61:    procedure _work_doOperation(var _Data:TData; Index:word);|6:  end;|0:|14:implementation|0:|40:procedure THiAsmClass._work_doOperation;|3:var|17:  r1,r2,res:real;|5:begin|44:  r1 := ReadReal(_Data,_data_Op1,_prop_Op1);|44:  r2 := ReadReal(_Data,_data_Op2,_prop_Op2);|19:  Res := r1/r2*100;|34: _hi_OnEvent(_event_onResult,Res);|0:|4:end;|0:|4:end.|
}

карма: 1

Ответов: 9906

Рейтинг: 351

#13: 2005-12-24 11:03:00 ЛС | профиль | цитата

-=Dima=-, в ИК не надо писать префикс _work_

Получай свой Run time error

карма: 9

Ответов: 676

Рейтинг: 5

#14: 2005-12-24 15:10:00 ЛС | профиль | цитата

Galkov, выручайте не выходит у меня ни хр..на

Add(MainForm,12612452,154,147)
{
 Left=20
 Top=105
 link(onCreate,10787259:doOperation,[])
}
Add(InlineCode,10787259,224,182)
{
 WorkPoints=#11:doOperation|
 EventPoints=#8:onResult|
 DataPoints=#3:op1|3:op2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|11:    private|10:    public|18:    Op1:THI_Event;|18:    Op2:THI_Event;|23:    onResult:THI_Event;|0:|55:    procedure doOperation(var _Data:TData; Index:word);|6:  end;|0:|14:implementation|0:|34:procedure THiAsmClass.doOperation;|3:var|17:  r1,r2,res:real;|5:begin|28:  r1 := ReadReal(_Data,Op1);|28:  r2 := ReadReal(_Data,Op2);|19:  Res := r1/r2*100;|28:  _hi_OnEvent(onResult,Res);|0:|4:end;|0:|4:end.|
 link(onResult,5483251:doText,[])
 link(op1,6779195:Text,[])
 link(op2,4494887:Text,[(237,167)(279,167)])
}
Add(Edit,4494887,273,119)
{
 Left=200
 Top=115
 Text="3544"
}
Add(Edit,6779195,224,119)
{
 Left=145
 Top=115
 Text="2890"
}
Add(Label,5483251,294,182)
{
 Left=260
 Top=120
}

карма: 1

Ответов: 16884

Рейтинг: 1239

#15: 2005-12-24 17:00:00 ЛС | профиль | цитата

Add(MainForm,12612452,14,49)
{
 Left=20
 Top=105
 Height=106
 link(onCreate,4632261:doWork2,[])
}
Add(InlineCode,10787259,84,84)
{
 WorkPoints=#11:doOperation|
 EventPoints=#8:onResult|
 DataPoints=#3:op1|3:op2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|11:    private|10:    public|18:    Op1:THI_Event;|18:    Op2:THI_Event;|23:    onResult:THI_Event;|0:|55:    procedure doOperation(var _Data:TData; Index:word);|6:  end;|0:|14:implementation|0:|34:procedure THiAsmClass.doOperation;|3:var|13:  r1,r2:real;|13://  res:real;|5:begin|28:  r1:=ReadReal(_Data,Op1,0);|30:  r2 := ReadReal(_Data,Op2,0);|21://  Res := r1/r2*100;|30://  _hi_OnEvent(onResult,Res);|34:  _hi_OnEvent(onResult,r1/r2*100);|4:end;|0:|4:end.|
 link(onResult,5483251:doText,[])
 link(op1,6779195:Text,[])
 link(op2,4494887:Text,[(97,69)(139,69)])
}
Add(Edit,4494887,133,21)
{
 Left=70
 Top=20
 Text="3544"
 link(onChange,2529431:doEvent2,[(194,27)(194,20)])
}
Add(Edit,6779195,84,21)
{
 Left=15
 Top=20
 Text="2890"
 link(onChange,2529431:doEvent1,[(125,27)(125,13)])
}
Add(Label,5483251,154,84)
{
 Left=130
 Top=25
}
Add(Hub,2529431,224,7)
{
 InCount=2
 link(onEvent1,4632261:doWork3,[(267,13)(267,130)(67,130)])
}
Add(HubEx,4632261,63,77)
{
 link(onEvent,10787259:doOperation,[])
}

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы Между деломокругление ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)