Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.68/19: Рейтинг темы: голосов - 19, средняя оценка - 4.68
1 / 1 / 0
Регистрация: 22.12.2011
Сообщений: 15
1

Дана строка S. нужно вывести все буквы, которые встречаются в ней, и их количество

20.12.2012, 19:46. Просмотров 3533. Ответов 3
Метки нет (Все метки)

помогите составить программу этой задачи. паскаль
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2012, 19:46
Ответы с готовыми решениями:

Дана строка. Удалить из строки все символы которые встречаются в ней только один раз
Помогите решить пожалуйста задачу. Дана строка. Удалить из строки все символы которые встречаются в...

Нужно вывести все цифры, которые встречаются в ней и их количесиво
Доброго времени суток друзья! В общем нужно решить 6 задач. Кто может проявить инициативу?...

Вывести все буквы которые встречаются в строке и их количество.
Дана строка S нужно вывести все буквы которые встречаются в ней и их количество. Первая...

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по...

3
3 / 3 / 2
Регистрация: 11.10.2012
Сообщений: 27
20.12.2012, 20:26 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var
razd:string;
slovo,p:string;
i,j,n,k,max:integer;
a:array[1..250] of char;
kol:array[1..250] of integer;
begin
Writeln('Введите предложения');
readln(p); //предложение
n:=0; //длинна массивов kol и a//
For i:=1 to length(p) do begin
  j:=1;
  While (p[i]<>a[j]) and (j<=n) do 
    j:=j+1;
  If j>n then begin //если буквы из строки p нету  в массиве А то мы её туда добавляем//
    n:=n+1;
    a[n]:=p[i];
    kol[n]:=1
    end
  else
    kol[j]:=kol[j]+1 // если уже есть то увеличиваем количество повторений этой буквы//
end;
For i:=1 to n do
Writeln('Символ ',a[i],' встречается: ',kol[i],' раз');
end.
1
1 / 1 / 0
Регистрация: 22.12.2011
Сообщений: 15
20.12.2012, 20:56  [ТС] 3
спасибо. она же будет работать?
0
3 / 3 / 2
Регистрация: 11.10.2012
Сообщений: 27
20.12.2012, 21:11 4
Цитата Сообщение от 321 Посмотреть сообщение
спасибо. она же будет работать?
Проверь в онлайн версии паскаля. У меня работает.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2012, 21:11

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
1.8. 2.Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись...

Дана строка, найти в ней слова, которые содержат гласные буквы входящие в каждое слово
Дана строка, найти в ней слова, которые содержат гласные буквы входящие в каждое слово

Дана строка символов до точки, вывести те слова которые встречаются 2 раза в строке.
Дана строка символов до точки. Группы символов в неё между группами пробелов читаются словами....

Дана символьная строка. Вывести на экран те символы которые встречаются в строке более 3х раз
Работа со строками. Дана символьная строка. Вывести на экран те символы которые встречаются в...


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

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

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