Форум: "Потрепаться";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизПомяните меня в своих молитвах - в ближайшее время меня обрекли на Фортран =( Найти похожие ветки
← →
VuDZ (2002-02-14 18:38) [30]нечто вроде такого:
double CCMFCDlg::FloatTest(int iInitVal)
{
m_spIUtility->TimerStart();
double f0 = 0;
double f1 = 123.456789;
double f2 = 98765.12345678998765432;
double f3 = 12345678943.98;
for(int i = 0; i < iInitVal; i++)
{
f0 = (f1 / (double)i) - f2 + (f3 * (double)i);
}
m_spIUtility->TimerEnd(/*sbsInfo*/);
CString ss;
ss.Format("Result is %f", f0);
MessageBox(ss);
return f0;
}
э... я хотел сказать:
function TForm1.FloatTest(iInitVal: Integer): double;
var
f0, f1, f2, f3 : double;
i : Integer;
begin
Utility1.TimerStart();
f0 := 0;
f1 := 123.456789;
f2 := 98765.12345678998765432;
f3 := 12345678943.98;
for i := 1 To iInitVal - 1 do begin
f0 := (f1 / i) - f2 + (f3 * i);
end;
Utility1.TimerEnd();
ShowMessage(Format("Result is %n", [f0]));
FloatTest := f0;
end;
Страницы: 1 2 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c