если вводится не буква и цифра выводится сообщение Опции

[dct]

я ни чё не понимаю!!!1

[APAL]

я последний раз говорю!
gotoxy(x:0,y:15);
не так, а вот так:
gotoxy(x,y);

Ага, а значения присваиваются так:

Код

x:=0; y:=15;

:D

[dct]

Код

repeat
 ch := upchar(readkey);
 if ch in ['0'..'9'] then
 begin
  x:=0;
  y:=15;  
  gotoxy(x,y);    
  writeln ('введена цифра');
 end  else if not (ch in charSet) then
 begin
  x:=0
  y:=14
  gotoxy (x,y);
  writeln('не буква, или эта буква уже была'
 end;
until {...}

Код я исправил.... условие только добавь...

Сообщение отредактировано: Oleg_Z - 3.01.2005 21:35

[APAL]

Если ты не будешь сам заключать код в теги, то я начну удалять сообщения!

[dct]

SORRRy!!!

[Altair]

все, dct, здесь не "разумный компилятор". читай учебник. тебе все рассказали.
код на блюдечке ты не получишь все равно... пораскинь мозгами..

закрыто.