|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.11.2008, 21:40 | #1 |
Пользователь
Регистрация: 05.11.2008
Сообщений: 46
|
Сохранить текст в массиве
надо Сохранить текст в массиве , определить, в тексте больше символов цифр, символов букв латинского алфавита или остальных символов
write('Введите текст:'); read(ch); zif:=0; lat:=0; ost:=0; while ch<> #13#10 do begin case ch of 'a'..'z':lat:=lat+1; '0'..'9':zif:=zif+1 else ost:=ost+1; end; if zif> lat then begin if zif> ost then write('больше цифр') else write ('больше остальных') end else if lat> ost then write('больше букв') else write ('больше остальных'); readkey; end; end. че не так? почему она не работает??? |
06.11.2008, 12:28 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
while ch<> #13#10 do - ch строка никогда там символа 13 при вводе с клавиатуры не будет. Цикл бесконечен
case ch of - снова попытка считать строку за 1 символ Код:
|
06.11.2008, 12:39 | #3 |
Форумчанин
Регистрация: 12.09.2008
Сообщений: 239
|
вот без ограничения на колличество симолов....
Код:
Надо бы избавиться от привычки ставить многоточие.....
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как узнать какой текст выделен в текст поле | mogul82 | JavaScript, Ajax | 2 | 02.11.2008 16:32 |
Снова о массиве | Constellation | Общие вопросы Delphi | 2 | 09.02.2008 20:42 |
Как сохранить текст из мемо в блакнот? | BETONOMESHALKA | Общие вопросы Delphi | 2 | 22.12.2007 02:16 |
Как сохранить текст в DOS кодировке? | oleg kutkov | Общие вопросы Delphi | 9 | 06.08.2007 09:32 |
Обмен блоков в массиве | Irik | Помощь студентам | 6 | 29.04.2007 14:08 |