а в чём проблема-т?

В моей тупости... Не умеют у нас преподавать... Не умею я программы писать...

Не надо не плачь! Утро вечера мудреннее!

Proksima, программирование - это просто :) особенно если не стучаться головой по клавиатуре, а спокойно ко всему подойти и подумать немного :)
ложись спать уже - до утра не так много времени и осталось :) обидно будет на делите или бэкспейсе заснуть:)

Мне с утра сдавать надо...

Proksima, на чём пишешь? :) и что надо конкретно? :)

на паскале... и не получается у меня... там текстовой редактор надо написать... и в процедуре вывода файла на экран хочу сделать курсор, чтоб он по экрану двигался... (цвет фона под символом менялся)... Почему-то при перемещении вверх, все нормально, вниз - он сомвол меняет на какой-то левый, по бокам он вообще не двигается... надо думать... а голова уже не варит...

Proksima, код кидай :)

да я туплю чутка... глупенькая я...

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;

каша конкретная :/
это под консольный вариант пишешь?

комментарии добавь где и чего добиваешься
===================================
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;

млин - тут всё форматирование текста убивается - читать неудобно жутко.
стукнись в аську - 3222322

мож мне лучше саму программу залить сюда?

Proksima, сюда не стОит - читать код после тутошнего форматирования - свихнёшься :)
или в аську - или в почту for_proksima@pricezone.ru

Proksima, написала?

Ты вообще отключи курсор, чтобы его не видно было, и не парься =)

Ner_Zull, НЕТ!!!! Придется кого-нить трясти, чтоб помогли...

Не плачь девченка, пройдут дожди, а ты только жди, и мы будем скоро плакать вместе

Эх... а не хотелось бы плакать-то...

Дак вот улыбнись, посмотри в окно,а потом на меня, и сразу станет веселее

Да... Смешно сидеть в одном классе и переписываться тут...

Proksima, так ты часть просмотрщика которую - написала? :)

Proksima, напишешь, главное стремление и веселье!