azatik
Удален
|
   
Извените пожалуйста, забыл написать "Не могли бы решить пожалуйста" очень торопился
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 янв. 2006 21:17 | IP
|
|
miss_graffiti
Долгожитель
|
  
все равно полностью никто решать не будет.
что именно интересует?
что не получается?
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 18 янв. 2006 21:29 | IP
|
|
azatik
Удален
|
Да всё не получается
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 янв. 2006 21:47 | IP
|
|
miss_graffiti
Долгожитель
|
так не бывает.
точнее, бывает, когда даже лень пробовать
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 18 янв. 2006 22:27 | IP
|
|
azatik
Удален
|
Да я пробывал: перменные символьного типа, ввелите строку, где ставить счётчик, как сделать так чтоб считал среди введённой сторки символы?
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 янв. 2006 22:44 | IP
|
|
azatik
Удален
|
т.е не симовлы,а цифры! И не ввеЛите ввеДите! Совсем запутался1
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 янв. 2006 22:47 | IP
|
|
azatik
Удален
|
Да ещё вместо "!" поставил "1" в конце!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 янв. 2006 22:50 | IP
|
|
KMA 
Долгожитель
|
И чего, почленно сравниваем каждый символ с возможной цифрой, и ставим счетчик.
А вообще есть такая штучка, вверху Редактировать называется, как раз для таких случаев, когда очепятки случаются.
Чтобы считал нужно делать так:
for j:=1 to length (s) do
if s[j]={тут указываешь кучу цифр, ну или проверяешь есть ли данный элемент среди множества (множество понятное дело от 1 до 9), потом}
then inc (k);
вот и все, где k количество всех цифр, встретившихся. Надеюсь обнулить ты не забудешь.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 19 янв. 2006 0:25 | IP
|
|
miss_graffiti
Долгожитель
|
KMA, предлагаешь пользоваться readln?
имхо, тут задачка немножко на другое.
я бы предложила не так...
есть такая функция... типа ReadKey (или KeyRead). требуется подключать crt, если мне склероз не изменяет.
тогда:
while not (ReadKey=энтер) (сравнение по коду. какой там у него код в ASCII? 13?)
if код введенный символа = цифра then S:=S+1.
очень примерно, ибо конкретно не помню.
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 19 янв. 2006 23:56 | IP
|
|
KMA
Долгожитель
|
Не, это понятно, я условие не так прочитал, я думал до конца строки просто считывать, в любом случае, даже если это поток, то строка всегда оканчивается Enter ну и так далее.
Твое решение наверное рациональней, но это не задача, а просто так, ерунда.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 20 янв. 2006 21:36 | IP
|
|
Форум
Турбо Паскаль. Программирование на Pascal
