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

[dct]

как вывести сообщение о том что была введина цифра или буква уже повторялась????

[Altair]

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

пример для цифры:

Код

var
c:char;
begin
c:=readkey;
case c of
'1'..'9','0': writeln('введена цифра');
 else write('символ');
end
end.

[volvo]

dct
В моей функции придется кое-что изменить:

Код

function myReadKey: Char;

  function upchar(ch:char):char;
  {Поднимает символ в верхний регистр}
  begin
    upchar:=char(byte(ch)-$20*byte(ch>#96)-$30*byte(ch>#$DF));
  end;

var ch: char;
begin
  repeat
    ch := upchar(readkey);
    if  ch in ['0' .. '9'] then
      begin gotoxy({где-то}); writeln('введена цифра') end
    else if not (ch in charSet) then
      begin gotoxy({где-то}); writeln('не буква, или эта буква уже была') end;
  until ch in charSet;
  exclude(charset, ch);
  myReadKey := ch
end;

Сообщение отредактировано: volvo - 3.01.2005 20:58

[dct]

сообщения накладываются один на другой!!!

[volvo]

ну тогда выводи их в самый низ экрана... тебе виднее, где они должны появляться...

[dct]

где прописывать координаты???

При запросе очередной буквы должны выводиться номер ошибки и попытки кол-во закрытых и угаданных букв???

[dct]

как это сделать(это к вопросу о запросе)

[Altair]

где прописывать координаты???

для вывода текста?
gotoXY

[dct]

А точнее на самой програме???

[Altair]

Что значит точнее?
что тебе надо?
gotoxy(x,y) перенесет курсор в позицию x,y.

[dct]

Хорошо!!
А вот это:При запросе очередной буквы должны выводиться номер ошибки и попытки кол-во закрытых и угаданных букв

[volvo]

dct
Смотри мой пост, там указано, где должны стоять GotoXY

[Altair]

При запросе очередной буквы должны выводиться номер ошибки

зачем?

если надо ввести букву - зачем выводить сообщение об ошибке?

[dct]

Смотри мой пост, там указано, где должны стоять GotoXY

А это где???

[Altair]

3 по счету мессага.

gotoxy({где-то});

вместо "где-то" поставь "что надо"
;)
и убери коментарий

[dct]

он пишет Unknow identetifer!!!
gotoxy(x:0,y:15)

[Altair]

dct, ты бы еще по русски написал "перейди туда".

gotoxy(x,y) - у тебя переменные х и у надо описать...
как integer напаример....

[dct]

теперь емузапятую хочется!!!!!!

Код

var ch: char;
x,y: byte;
begin
repeat
ch := upchar(readkey);
if ch in ['0'..'9'] then
begin
gotoxy(x:0;y:15);-вот здесь!!!
writeln ('введена цифра')
end;
else if not (ch in charSet)then
begin
gotoxy (x:0;y:13);
writeln('не буква, или эта буква уже была')

КОД В ТЕГИ!!!!!

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

[Altair]

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

[APAL]

мда... учебник штоли почитал... ;)

и я о том-же...

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