Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Санек163
0 / 0 / 0
Регистрация: 20.01.2010
Сообщений: 14
#1

Нахождение согласной, чаще всего встречающейся в слове. - Turbo Pascal

13.02.2010, 20:42. Просмотров 637. Ответов 5
Метки нет (Все метки)

Составить прогу нахождения согласной,чаще всего встречающейся в слове.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.02.2010, 20:42
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нахождение согласной, чаще всего встречающейся в слове. (Turbo Pascal):

Составьте программу поиска чаще всего встречающейся гласной - Turbo Pascal
Составьте программу поиска гласной, чаще всего встречающейся в слове Х.

Определите букву, чаще всего встречающуюся в слове Х. - Turbo Pascal
Определите букву, чаще всего встречающуюся в слове Х.

Дано слово. Найти букву, которая чаще всего встречается в слове - Turbo Pascal
Дано слово. Найти букву, которая чаще всего встречается в слове. Нужно составить блок-схему!Помогите пожалуйста!

Вывести символ который встречаются в тексте чаще всего и реже всего - Turbo Pascal
вывести символ который встречаются в тексте чаще всего и реже всего

Тип данных - множество. Найти гласную, чаще всего встречающуюся в слове Х - Pascal
Составьте программу нахождения гласной, чаще всего встречающейся в слове Х. помогиииииииитееееееее, уважаемые! :)

тип данных - строка. Программа отыскивающая гласную, чаще всего встречающуюся в слове. - Pascal
помогите составить программу.

5
Tom_Sawyer
87 / 87 / 15
Регистрация: 05.12.2009
Сообщений: 134
13.02.2010, 20:58 #2
где буква а вставь нужную СОгласную.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var i,len,c:integer;
     str:string;
begin
 clrscr;
 write('Введите слово: ');
 readln(str);
 len:=length(str);
  for i:=1 to len do
   begin
    if (str[i]='a') then c:=c+1;
   end;
 writeln('Число букв “а”', c);
 readln;
end.
1
Snoopy
1912 / 1069 / 90
Регистрация: 06.12.2008
Сообщений: 2,802
13.02.2010, 21:06 #3
Tom_Sawyer, ваша программа абсолютно не соответствует заданию
1. нужны согласные
2. нужно находить не конкретную букву, а букву которая встречается чаще всего
исправьте...
1
Law[L]esS
114 / 111 / 23
Регистрация: 31.10.2009
Сообщений: 191
14.02.2010, 01:42 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
 sgl = ['q','w','r','t','y','p','s','d','f','g','h','k','l','z','x','c','v','b','n','m'];
var
 s:string;
 i,j,max,max2,count: integer;
begin
 readln(s);
 for i:= 1 to length(s) do begin
   if count > max then begin
     max:= count;
     max2:= i-1;
   end;
   count:= 0;
   for j:= i+1 to length(s) do begin
     if (s[i] = s[j]) and (s[i] in sgl) then
     inc(count);
   end;
 end;
 if (max2 >= 1) and (max2 <= length(s)) then
 writeln(s[max2]);
end.
1
Puporev
Модератор
52401 / 40248 / 13581
Регистрация: 18.05.2008
Сообщений: 93,046
14.02.2010, 09:42 #5
Можно еще согласные записать не а множество, а в строку, затем все символы этой строки искать и считать во введенной.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const sgl='qwrtypsdfghklzxcvbnmj';
var s:string;
     k,i,j,max:byte;
     c:char;
begin
............
max:=0;
for i:=1 to length(sgl) do
 begin
  k:=0;
  for j:=1 to length(s) do
  if s[j]=sgl[i] then inc(k);
  if k>max then
   begin
    max:=k;
    c:=sgl[i];
   end;
 end;
write(c);
1
Санек163
0 / 0 / 0
Регистрация: 20.01.2010
Сообщений: 14
14.02.2010, 15:58  [ТС] #6
Цитата Сообщение от Snoopy Посмотреть сообщение
Tom_Sawyer, ваша программа абсолютно не соответствует заданию
1. нужны согласные
2. нужно находить не конкретную букву, а букву которая встречается чаще всего
исправьте...
имеется ввиду любая согласная.так что условие корректное))
0
14.02.2010, 15:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.02.2010, 15:58
Привет! Вот еще темы с ответами:

Если средняя буква в слове стоит после согласной, выделить ее цветом - Turbo Pascal
Помогите плиз сделать лабу. Выделить цветом и подсчитать число слов, удовлетворяющих следующим условиям. 1.Средняя буква в слове стоит...

Определить чаще всего встречающийся элемент массива - Turbo Pascal
Составить программу, позволяющую определить чаще всего встречающийся элемент данный массива B(N).

Определить чаще всего встречающийся элемент массива - Turbo Pascal
1. Определить чаще всего встречающийся элемент массива A . 2. Подсчитать такие строки массива A , что суммы элементов этих строк...

Определить чаще всего встречающийся элемент массива - Turbo Pascal
составьте программу определяющую чаще всего встречающийся элемент данного массива b


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

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

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