Большая задержка после компиляции!

[Lorem]

Добрый день!)
Каждый раз после новой компиляции сначала выдается такие строки:

■ Free Pascal IDE Version 1.0.12 [2011/04/23]
■ Compiler Version 2.4.4
■ GDB Version GDB 7.2
■ Using configuration files from: C:\FPC\2.4.4\bin\i386-win32\
Running "c:\fpc\2.4.4\bin\buffer\proba. exe "

потом секунд 20-60 висит, а потом начинается выполнение моей программы! Причем если после первого запуска ничего в программе не изменять то второй запуск происходит быстро!

Как это исправить? и из за чего это? спасибо!)

[Alex11223]

Причем если после первого запуска ничего в программе не изменять то второй запуск происходит быстро!

Это говорит только о том, что задержка где-то на этапе сборки\компиляции.

Попробуй Free Pascal переустановить (с заменой конфигурации на стандартную и т.п.).

[Lorem]

Alex11223, нет! ничего не поменялось!

[Kat_kr]

Добрый вечер
Помогите пожалуйста решить задачу в Free Pascal с массивами:
Для одномірного масиву Y=(0,05;-20,3;0;124,38;-300,23;0;15;-5;160,3;0,05;17,3;51,5;0,08) знайти мінімальний елемент масиву та його індекс.

[Alex11223]

http://programmersforum.ru/showthread.php?t=70310, пункт про максимальный элемент. Или http://lmgtfy.com/?q=%D0%BD%D0%B0%D0...B0%D0%BB%D1%8C Кстати, а зачем писать это в эту тему?

[Kat_kr]

У меня тоже выкидывает, что Free Pascal IDE Version 1.0.12 [2011/04/23]
■ Compiler Version 2.4.4
■ GDB Version GDB 7.2
■ Using configuration files from: C:\FPC\2.4.4\bin\i386-win32\
Running "c:\fpc\2.4.4\bin
Это связано с неправильным написанием задачи или это другая причина? В предыдущих моих задачах после Free Pascal IDE Version 1.0.12 [2011/04/23] Compiler Version 2.4.4 ... сразу выводился результат задачи. А в данном случае ничего...

[Alex11223]

Дык код покажи. Может и выводить нечего.

[Kat_kr]

Вот текст программы на FreePascal

program lr;
uses Math, CRT, SysUtils;
var Y:array [1..13] of real;
MIN:real;
i:integer;
N_min:integer;
begin
for i:=1 to 13 do readln (Y[i]);
MIN:=Y[1];
N_min:=1;
for i:=2 to 13 do
if Y[i]<MIN then MIN:=Y[i];
N_min:=i;
write('Y=(');
for i:=1 to 13 do
write (Y[i]:3:2);
write (')');
write ('Мін з-ня=',MIN:3:2);
write ('Номер мін з-ня=',N_min:2);
readln;
end.

[Alex11223]

ну видимо "ничего" потому что ждет пока кто-нибудь введет 13 чисел.

for i:=1 to 13 do readln (Y[i]);

Если добавить тут что-нибудь типа

write('Enter ', i, ' element: ');

(не забыв бегин и енд), то будет более понятно и красиво.

[Vanta11a]

При использовании CRT, т.е.

uses crt

наблюдается такая "фича". Причины так и не понял, но, возможно, антивирус проверяет скомпиленный файл.