Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
Определение «суперкомпьютера» представляется несколько туманными. Самый медленный суперкомпьютер в top-500 дает 61 TFLOPS.А вот эта дура (CM5/1024) — самый быстрый суперкомпьютер в 1993 году, имела производительность 131 GFlops и стоила $70 000 000 сегодняшними деньгами:


{$APPTYPE CONSOLE}
uses
Windows;
procedure DoTest;
const MEMORY_SIZE = 1024 * 1024 * 1024; // 1GB
var start_cnt: Int64;
end_cnt : Int64;
freq : Int64;
memory : Pointer;
elapsed : Double;
begin
GetMem(memory, MEMORY_SIZE);
try
QueryPerformanceFrequency(freq);
QueryPerformanceCounter(start_cnt);
FillChar(memory^, MEMORY_SIZE, $FF);
QueryPerformanceCounter(end_cnt);
elapsed := (end_cnt - start_cnt) / freq * 1000;
WriteLn('msec elapsed: ', Trunc(elapsed));
WriteLn('speed: ', 1000/elapsed:3:3, ' Gb/sec');
finally
FreeMem(memory);
end;
end;
begin
SetThreadAffinityMask(GetCurrentThreadId, 1);
DoTest;
ReadLn;
end.
Карманный кластер за $99