Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ДЖАБРАИЛ.
1 / 2 / 0
Регистрация: 03.05.2011
Сообщений: 30
1

Для каждой буквы заданного текста указать

23.06.2011, 15:51. Просмотров 847. Ответов 1
Метки нет (Все метки)

Решите очень нужно.

Для каждой буквы заданного текста указать, сколько раз она встречается в тексте
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.06.2011, 15:51
Ответы с готовыми решениями:

Для каждой буквы заданного текста указать, сколько раз она встречается в тексте
для каждой буквы заданного текста указать,сколько раз она встречается в тексте

Для каждой буквы заданного текста указать,сколько раз она встречается в тексте.
Для каждой буквы заданного текста указать,сколько раз она встречается в тексте.

Для символа "?" заданного текста указать, сколько раз он встречается в тексте.
13 вариант. Задание 3. 1) Вычислить yi=2 соs (xi)+в; здесь i=1,10. Массив x...

Для каждого символа заданного текста указать, сколько раз он встречается в тексте. Сообщение об одном символе должно печататься не более одного раза.
ОБРоБОтка символьных строк. ...

Начиная с заданного символа в каждой строке исходного файла строчные латинские буквы преобразуются в прописные
Дан текстовый файл f, состоящий из нескольких строк. Пользователь вводит...

1
MAZUR777
605 / 130 / 132
Регистрация: 15.04.2010
Сообщений: 554
23.06.2011, 16:36 2
Лучший ответ Сообщение было отмечено ДЖАБРАИЛ. как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program zadacha_1;
var
s : string;
i, j, k : integer;
begin
writeln(' Введите строку. ');
readln(s);
i := 32; {символы которые выводим на экран}
while i <= 255 do {перебираем все символы}
begin
k := 0;
for j := 1 to length(s) do
if chr(i) = s[j] then inc(k); {если симв. встр в строке считаем его}
 
if k > 0 then {если символ встречается хоть раз}
writeln('Символ ', chr(i), ' встречается ', k, ' раз.');
inc(i);
end;
readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2011, 16:36

Для каждого слова заданного предложения указать долю гласных
для каждого слова заданного предложение указать долю гласных. отредактировать...

Для каждого слова заданного предложения указать долю согласных
Привет. Нужно составить программу строкового типа на паскале. Помогите:)...

Для каждого слова заданного предложения указать долю согласных
Для каждого слова заданного предложения указать долю согласных. Определить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru