Ko darīt lai mirgotu kursors?

Šī Pascal programma nosaka cik ilgā laikā tiek sakārtots 10 skaitļu masīvs. Diemžēl programmas izpildes (melnajā) logā nemirgo kursors, kaut programmas darbojas.

program shaker2;
uses graph, Dos;
var A: array[1..10] of word;
i,j,sk:byte;
buf, min, max:word;

   Chas1,Min1,Sec1,Sotki1,
   Chas2,Min2,Sec2,Sotki2,Reakc :Word;

Device, Mode:Integer;

begin

Device:=0;
InitGraph(Device, Mode,'E:\TP\BGI');

sk:=0;
writeln('Ievadiet sakotnejo masivu 10 veselus pozitivus skaitljus');
                writeln(' pec katra nospiezjot Enter: ');

               GetTime(Chas1,Min1,Sec1,Sotki1);
for i:=1 to 10 do Read(A[i]);

for i:=1 to 10 div 2 do
begin
if A[i] > A[i+1]
then begin
min:=i+1;
max:=i;
end
else begin
min:=i;
max:=i+1;
end;
for j:=i+2 to 10-i+1 do
if A[j]>A[max]
then max:=j
else
if A[j]<A[min] then min:=j;
buf:=A[i];
A[i]:=A[min];
A[min]:=buf;
               sk:=sk+1;
if max=i then max:=min;
buf:=A[10-i+1];
A[10-i+1]:=A[max];
A[max]:=buf;
end;
writeln('Sakartotais masivs: ');
for i:=1 to 10 do write(A[i],'  ');

GetTime(Chas2,Min2,Sec2,Sotki2);
Reakc:=100*(Sec2-Sec1)+(Sotki2-Sotki1);
writeln;
Writeln('Masivs tika sakartots - 0,',Reakc,' sekundees');
           
readln;
readln;
end.

Komentāri:

#1 Lasko @ 2008.11.08 11:04

Pascal programmas izpildes logā nemirgo kursors. Pašu programmu te ievietot nevar, bet to var redzēt te:
http://www.boot.lv/forums/index.php?showtopic=101340&pid=1105075&a…
Ceru, ka saņemšu padomu!
Pats atradu kļūdu. Viss darbojas!

#2 Knight @ 2008.11.08 13:26

mhm... ka nepaliidz tur, jaaveershas te. bet, lai nebuutu jaaraksta (par  coppy/paste piemirstam) .. vieglaak iedot linku uz konkurentu portaalu...

#3 drono @ 2008.11.08 13:33

Knight> Tas ir kaut kāds gļuks Datuvei dēļ tā, ka izmanto [] droši vien kāds konflikts ar bb-tagiem un tāpēc viss uzrakstītais teksts neparādās.
[ vietā var izmantot & #91; (bez atstarpes)
] vietā  - & #93;

#4 Lasko @ 2008.11.08 13:33

Knight rakstīja:

mhm... ka nepaliidz tur, jaaveershas te. bet, lai nebuutu jaaraksta (par  coppy/paste piemirstam) .. vieglaak iedot linku uz konkurentu portaalu...

Šajā portālā ievietot programmu neizdevās. Tā momentā tika izdzēsta. Tāpēc arī nav "coppy/paste"!
Tagad mistiskā kārtā programma parādījās. Laikam kāds palīdzēja!
Paldies tam.