mam powazny problem i nie wiem jak sobie poradzic.
tu mam swoj stoper:
procedure stoper;
begin
repeat
clrscr;
s:=s+1;
if s=59 then
begin
s:=0;
m:=m+1;
end;
if m=59 then
begin
m:=0;
h:=h+1;
end;
write('czas:0',h,':0',m,':',s);
delay(1000);
end;
w jaki sposob "wkleic" go aby rownoczesnie dzialal z tym programem
begin
clrscr;
repeat
clrscr;
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
if sud2[i,j]=0 then
write(' |')
else
write(' ',sud2[i,j],' |');
end;
writeln;
end;
writeln('Wybierz miejsce gdzie chcesz wpisac cyfre');
write('Podaj wiersz:');
read(i);
write('Podaj kolumne:');
read(j);
writeln('podaj liczbe jaka chcesz wprowadzic');
read(a);
sud2[i,j]:=a;
until 1=0;
end;
Pilnie mi to potrzebne, z gory dziekuje..
dodanie znaczników <code class="pascal"> - furious programming