On Wed, 02 Feb 2011 20:30:53 +0100, Fil <f...@p...onet.pl>
wrote:

>W dniu 2011-02-02 20:15, Grzegorz Krukowski pisze:
>> On Wed, 02 Feb 2011 20:05:42 +0100, Fil<f...@p...onet.pl>
>> wrote:
>>
>>> W dniu 2011-02-02 19:40, Grzegorz Krukowski pisze:
>>>> On Wed, 02 Feb 2011 19:14:51 +0100, Fil<f...@p...onet.pl>
>>>> wrote:
>>>>
>>>>>> Czy wyłączyłeś wszystkie mechanizmy kontrolne Pascala? Bo za czasów
>>>>>> kiedy go używałem to miał on kontrolę zakresów, przepełnień i tym
>>>>>> podobnych rzeczy a to potrafi spowolnić.
>>>>>
>>>>> A gdzie to wyłączyć?
>>>> Znjadź opcje kopilatora, pewno zakładka runtime lub coś podobnego, a
>>>> te opcje to:
>>>> Integer Overflow Checking,
>>>> Range Checking
>>> Sprawdziłem. Domyślnie wyłączone. Było jeszcze I/O Checking włączone,
>>> ale po wyłączeniu nic się nie zmieniło.
>> No ale ja doczytałem się o tych tablicach dynamicznych. To one sa
>> źródłem problemu. Z dynamicznymi tablicami możesz zrobić coś takiego:
>>
>> k := 0;
>> SetLength(a, 4); // 4 rows
>> for i := 0 to 3 do begin // For each row
>> SetLength(a[i], i + 1); // Set the number of columns
>> for j := 0 to i do begin // Initialize the row
>> a[i,j] := k;
>> inc(k);
>> end;
>> end;
>>
>> 0 1 2 3
>> +---+
>> 0 | 0 |
>> +---+---+
>> 1 | 1 | 2 |
>> +---+---+---+
>> 2 | 3 | 4 | 5 |
>> +---+---+---+---+
>> 3 | 6 | 7 | 8 | 9 |
>> +---+---+---+---+
>>
>> Czyli ty masz 300 tablic po 2000 elementów i, co najważniejsze tutaj,
>> każdy z osobną adresacją / obliczaniem indeksów. Czyli nie jest to
>> równoważnik tablicy dynamicznej z C/C++!
>
>No.. jeśli tak to wyjaśnia sprawę. Jednak na tablicach o ustalonym z
>góry rozmiarze też wolniej pracuje program kompilowany pod Delphi (o ok.
>0.7s).
>
Jeżeli ci to jest na poważnie potrzebne zainteresuj sie tą pozycją:
Podstawowe procedury numeryczne w języku Turbo Pascal - A. Marciniak,
D. Gregulec, J. Kaczmarek
Jest to krótki opis numeryki a'la Pascal oraz zestaw gotowych
procedur. Tylko musisz mieć dołączoną do książki dyskietkę, bo książka
jest po prawdzie podręcznikiem do procedur umieszczonych na dyskietce.
--
Grzegorz Krukowski