|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
22.12.2012, 15:42 | #1 |
Регистрация: 21.12.2012
Сообщений: 9
|
Не могу решить задачу
Помогите решить задачу...
Дана строка S. нужно вывести все буквы, которые встречаются в ней, и их количество. var a : array ['A'..'Z'] of Byte; s : string; i : Integer; j : Char; begin for j := 'A' to 'Z' do a[j] := 0; ReadLn(s); for i := 1 to Length(s) do Inc (a[UpCase (s[i])]); for j := 'A' to 'Z' do WriteLn (j, ' ', a[j]) end. Если решать по этой программе которая сверху то получается как на картинке снизу... Помогите напишите правильное решение |
22.12.2012, 15:50 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
В цикл вывода добавьте проверку на то, что a[j] больше нуля.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
22.12.2012, 15:52 | #3 |
Регистрация: 21.12.2012
Сообщений: 9
|
не смогли бы вы написать мне: а то у меня руки кривые
|
22.12.2012, 15:57 | #4 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
22.12.2012, 16:04 | #5 |
Регистрация: 21.12.2012
Сообщений: 9
|
))спасибо вам большущее!!!!)))
благодарен искренне |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу решить задачу | elvira_seilhanova | Visual C++ | 1 | 03.04.2012 07:43 |
не могу решить простую задачу | Artem_host | Общие вопросы Delphi | 2 | 04.02.2012 23:34 |
Не могу решить задачу.. | super3994 | Помощь студентам | 9 | 11.11.2011 22:50 |