remaikee обратиться по имени
Вторник, 07 Июня 2005 г. 00:33 (ссылка)
каша конкретная :/
это под консольный вариант пишешь?
комментарии добавь где и чего добиваешься
===================================
procedure vivod(t_e:mas; n: word);
var j,k: byte;
begin okno;
wind(1,5,80,20,7,0,4);
gotoxy(1,1);
i:=0;
j:=0;
repeat
i:=i+1;
j:=j+1;
writeln(t_e[i]);
until (j=16) or (i=n);
i:=1;
k:=1;
gotoxy(k,i);
textbackground(green);
write(t_e[k,i]);
repeat
ch:=Readkey;
case ch of
#80: begin
if i1 then begin
gotoxy(k,i);
textbackground(7);
write(t_e[k,i]);
i:=i-1;
gotoxy(k,i);
textbackground(green);
write(t_e[k,i]);
end;
end;
#77: begin
if k1 then begin
gotoxy(k,i);
textbackground(7);
write(t_e[k,i]);
k:=k-1;
gotoxy(k,i);
textbackground(green);
write(t_e[k,i]);
end;
end;
end;
until ch in [#59..#68];
end;