форум вебмастероff на AlfaSpace.NET

Вот просто напишите исходник вот для такой проги:
На экране печатается ряд одинаковых символов с интервалом появления каждого последующего. В любой момент пользователь может нажать клавишу Enter (только её), чтобы прервать печатание символов.
Просто скиньте исходник кто-нибудь, я дальше уже разберусь.

Сделай цикл, чтоб он повторялся, пока пользователь не нажмет клавишу...

Warcraft
что-то пришло... щас скачаем. Вирусы?

repeat
write('a');
delay(10000);
until(keypressed);
readkey;

Warcraft
неее, мне нужна проверка

program game;
uses CRT;
var key:char;
begin
ClrScr;
repeat
write('a');
delay(20000);
until(keypressed);
key:=readkey;
if key=#27 then
exit
else
write('URA!');
readkey;
end.

Warcraft
Только я сделал с Esc, напомни номера клавиш enter, вверх, вниз, влево и вправо

порадовала надпись "URA!" в тексте проги, но напиши на русском!

program game;
uses CRT;
var key:char;
x,y,xc,yc,i:integer;
begin
ClrScr;
x:=5; y:=5;
xc:=1; yc:=0;
for i:=1 to 9999 do begin
repeat
ClrScr;
x:=x+xc; y:=y+yc;
gotoxy(x,y);
write('-');
delay(10000);
until(keypressed);
key:=readkey;

if key='w' then
if yc<>1 then
begin
xc:=0; yc:=-1;
end;

if key='s' then
if yc<>-1 then
begin
xc:=0; yc:=1;
end;

if key='a' then
if xc<>1 then
begin
xc:=-1; yc:=0;
end;

if key='d' then
if xc<>-1 then
begin
xc:=1; yc:=0;
end;

if key=#27 then
exit;
end;
end.

Все равно паскаль уже отдыхает реально!!!
я даже олимпиады на Дельфи писал 9-место в области блин!!!

А я на паскале ВТОРОЕ место в области!!! Юзай паскаль - Язык предков!

Язык предков, только он в ХР глючит!!!