IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> если вводится не буква и цифра выводится сообщение
dct
сообщение 3.01.2005 16:30
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


как вывести сообщение о том что была введина цифра или буква уже повторялась????
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
2 страниц V  1 2 >  
Closed Topic Открыть новую тему 
Ответов(1 - 19)
Altair
сообщение 3.01.2005 16:35
Сообщение #2


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

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

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 3.01.2005 16:36
Сообщение #3


Гость






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 16:58
 К началу страницы 
+ Ответить 
dct
сообщение 3.01.2005 16:41
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


сообщения накладываются один на другой!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 3.01.2005 16:43
Сообщение #5


Гость






ну тогда выводи их в самый низ экрана... тебе виднее, где они должны появляться...
 К началу страницы 
+ Ответить 
dct
сообщение 3.01.2005 16:50
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


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

При запросе очередной буквы должны выводиться номер ошибки и попытки кол-во закрытых и угаданных букв???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
dct
сообщение 3.01.2005 16:51
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


как это сделать(это к вопросу о запросе)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 3.01.2005 16:54
Сообщение #8


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
dct
сообщение 3.01.2005 16:56
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


А точнее на самой програме???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 3.01.2005 16:58
Сообщение #10


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
dct
сообщение 3.01.2005 16:59
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


Хорошо!!
А вот это:При запросе очередной буквы должны выводиться номер ошибки и попытки кол-во закрытых и угаданных букв
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 3.01.2005 16:59
Сообщение #12


Гость






dct
Смотри мой пост, там указано, где должны стоять GotoXY
 К началу страницы 
+ Ответить 
Altair
сообщение 3.01.2005 17:01
Сообщение #13


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
dct
сообщение 3.01.2005 17:04
Сообщение #14


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


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

А это где???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 3.01.2005 17:07
Сообщение #15


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


3 по счету мессага.
Цитата
gotoxy({где-то});
вместо "где-то" поставь "что надо"
;)
и убери коментарий


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
dct
сообщение 3.01.2005 17:11
Сообщение #16


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


он пишет Unknow identetifer!!!
gotoxy(x:0,y:15)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 3.01.2005 17:15
Сообщение #17


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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

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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
dct
сообщение 3.01.2005 17:18
Сообщение #18


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской

Репутация: -  0  +


теперь емузапятую хочется!!!!!!
Код
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 17:22
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 3.01.2005 17:20
Сообщение #19


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
APAL
сообщение 3.01.2005 17:21
Сообщение #20


Смотрю...
*****

Группа: Модераторы
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


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

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

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


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V  1 2 >
Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 23:49
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"