Сколько букв в слове
Онлайн калькулятор поможет вычислить количество букв в любом в слове, определить сколько гласных и согласных букв в слове, в тексте, в предложении или в строке.
Гласные буквы русского алфавита: а, и, е, ё, о, у, ы, э, ю, я.
Гласные буквы английского алфавита: a, e, i, o, u.
Согласные буквы русского алфавита: б, в, г, д, ж, з, й, к, л, м, н, п, р, с, т, ф, х, ц, ч, ш, щ.
Согласные буквы английского алфавита: b, c, d, f, g, h, j, k, l, m, n, p, q, r, s, t, v, w, x, y, z.
Пожалуйста напишите с чем связна такая низкая оценка:
Как посчитать количество букв в слове паскаль
Пользователь
Регистрация: 08.12.2008
Сообщений: 15
Количество символов в строке
Задача состоит вот в этом : Определите,сколько в заданном тексте заданных букв.
Получилась программа:
var s:string;
n:real;
begin
write(‘vvedite text’);
read(s);
n:=length(s);
writeln(‘n=’,n:6:2);
readln(n);
end.
Программа работает,но считает буквы вместе с пробелами между словами.Помогите пожалуйста,как это исправить и куда эту часть программы впечатывать.
Последний раз редактировалось Ivan357; 09.12.2008 в 17:17 .
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
количество символов | StartMis | Общие вопросы Delphi | 4 | 17.12.2010 06:24 |
Вывод символов в строке | Karl_Karlovi4 | БД в Delphi | 12 | 03.06.2008 13:31 |
Определение количество символов в строке, и самих строк. | Патрон | Общие вопросы Delphi | 10 | 01.04.2008 12:43 |
Не считает количество символов | DeeCee | Общие вопросы Delphi | 11 | 24.12.2007 22:57 |
кол-во букв в строке символов (Си) | Newman | Помощь студентам | 1 | 04.12.2007 02:19 |
как посчитать количество символов с слове?
есть латинские буквы которые я сам ввожу и разделяю эти слова любыми символами (кроме маленьких латинских букв). Далее после ввода * — программа считает количество букв в наибольшем слове, и выводит результат.
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:
В каждом слове текста удалить минимальное количество символов так, чтобы в преобразованном слове не было повторяющихся символов.
В каждом слове текста удалить минимальное количество символов так, чтобы в преобразованном слове не.
Посчитать количество символов в слове
Написать и протестировать рекурсивный метод, подсчитывающий число заданного символа в заданной.
Посчитать количество символов в слове
Дано название футбольной команды. Подсчитайте, сколько в нем символов.
Посчитать количество символов во втором слове
все в вижуал бэйсике 1. задание нужно с помощью массива найти наиболее часто повторяющееся.
9874 / 5242 / 3306
Регистрация: 17.08.2012
Сообщений: 16,012
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
Program latin; var m, k, i: integer; s: string; begin writeln('Enter string:'); readln(s); m := 0; k := 0; for i := 1 to length(s) do if s[i] in ['a'..'z'] then k := k + 1 else begin if k > m then m := k; k := 0; if s[i] = '*' then break end; writeln('Max word length = ', m, ' symbols.'); readln end.
21 / 21 / 16
Регистрация: 30.09.2013
Сообщений: 262
Cyborg Drone, почти(. программа считает количество букв только в первом слове, не смотря на то что дальше есть слова длиннее(
Добавлено через 4 минуты
Cyborg Drone, Все, разобрался. Я забыл поставить звездочку в конце строки. Спасибо огромное!!
9874 / 5242 / 3306
Регистрация: 17.08.2012
Сообщений: 16,012
Да, программа туповата. Всё по заданию то есть. Если подправить
readln(s); s := s + '*';
, то программа правильно будет парсить строку, несмотря на забытую звёздочку. До первой звёздочки, остальное будет игнорироваться.
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь
Как посчитать количество заглавных букв в слове?
Например, есть переменная string str = "КоМпьюТеР"; Как в ней посчитать колличество больших букв.
Как посчитать количество букв в каждом слове из текста?
В файле задан текст. Нужно написать функцию, определяющую длину слова. И, применяя эту функцию, в.
Как определить количество символов во втором слове?
Как определить количество символов во втором слове?
Посчитать комбинации символов ХХ в слове
Задача: Посчитайте количество ХХ в строке. Допускается перекрытие, т.е. ХХХ — это 2 ХХ. Пример.
Как посчитать количество символов в файле?
доброго времени суток, форумчане! пусть есть текстовый файл Out.txt. необходимо посчитать.
Или воспользуйтесь поиском по форуму:
Подсчет количества слов в строке
Подсчитать количество слов во введенной пользователем строке. Считаем, что слова разделяются исключительно одним пробелом, а первый и последний символы строки не являются пробелами.
str — строка;
len — длина строки;
count — счетчик слов в строке.
Алгоритм решения задачи:
- Измеряем длину введенной пользователем строки.
- Устанавливаем счетчик слов в значение 0.
- В цикле посимвольно перебираем строку. Если очередной символ является пробелом, увеличиваем счетчик слов.
- Поскольку в цикле не было учтено последнее слово (после него нет пробела), мы должны после цикла увеличить счетчик слов на единицу. Однако, если была введена пустая строка, то этого делать не надо. Поэтому перед увеличением счетчика добавляем проверку, что длина строки больше нуля.
Программа на языке Паскаль:
var str: string; len, count, i: integer; begin readln(str); len := length(str); count := 0; for i := 0 to len do if str[i] = ' ' then count := count + 1; if len > 0 then count := count + 1; writeln(count); end.
one two three 3
Примечание. Программа не будет корректно работать, если слова разделены больше, чем одним пробелом.
Второй вариант задачи: подсчитать количество слов в строке и вывести длину каждого слова.
var str, s: string; arr: array[1..255] of string; n,i,l: byte; begin readln(str); l := length(str); n := 0; s := ''; for i:=1 to l do if ((str[i] = ' ') or (i = l)) and (s <> '') then begin n := n + 1; if (i = l) and (str[i] <> ' ') then s := s + str[i]; arr[n] := s; s := ''; end else if str[i] <> ' ' then s := s + str[i]; writeln(n); for i:=1 to n do writeln(arr[i],' - ', length(arr[i])); end.
Пример выполнения программы:
one two three 3 one - 3 two - 3 three - 5
Третий вариант задачи: Подсчитать количество слов в строке и вывести все слова в столбик.
var s, w: string; l,i: byte; count: byte; begin readln(s); l := length(s); w := ''; count := 0; for i:=1 to l do if s[i] <> ' ' then w := w + s[i] else if w <> '' then begin writeln(w); w := ''; count := count + 1; end; if w <> '' then begin // последнее слово после которого нет пробела writeln(w); count := count + 1; end; writeln(count); end.