Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Svetlank
0 / 0 / 0
Регистрация: 01.11.2017
Сообщений: 6
#1

Подсчитать количество букв в каждом слове предолжения - Turbo Pascal

06.12.2017, 18:06. Просмотров 132. Ответов 11
Метки нет (Все метки)

нужно сделать, так чтобы когда мы вводим предложение и в нем есть слово,содержащее в себе цифры (например, раз23), программа выводила полностью это слово, то есть и вместе с цифрами
вот так - раз23 : 3

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program strok; 
type 
letters=set of 'а'.. 'я'; 
var 
i:integer; 
pr,sl:string; 
alf:letters; 
begin 
alf:=['а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я']; 
write('введите предложение:'); 
readln(pr); 
sl:= ''; 
for i:=1 to length(pr) do 
if pr[i] in alf then sl:=sl+pr[i] 
else if sl<>'' then 
begin 
writeln(sl, ' : ', length(sl)); 
sl:= ''; 
end; 
if sl<>'' then writeln(sl, ' : ', length(sl)); 
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2017, 18:06
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Подсчитать количество букв в каждом слове предолжения (Turbo Pascal):

Подсчитать количество букв в каждом слове и вывести
Вводится строка, подсчитать кол-во букв в каждом слове и вывести, желательно...

Подсчитать количество гласных букв в каждом слове
Program Z1_7; Const m=70; Type Mslovo=Array of string; Var...

В каждом втором слове подсчитать количество гласных букв
дано предложение. В каждом втором слове подсчитать количество гласных букв

Ввести текст и подсчитать количество различных букв в каждом слове
Доброго времени суток, форумчане. Прошу помощи: Ввести текст и подсчитать...

Подсчитать количество согласных букв в каждом втором слове предложения
Задание: Ввести с клавиатуры предложение. Подсчитать количество согласных...

Подсчитать количество слов в данной строке, подсчитать количество букв а в последнем слове
Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать...

11
Puporev
Модератор
54146 / 41779 / 28885
Регистрация: 18.05.2008
Сообщений: 98,327
06.12.2017, 19:24 #2
Цитата Сообщение от Svetlank Посмотреть сообщение
раз23 : 3
Что здесь означает : 3?
Написали бы полное задание.
0
Svetlank
0 / 0 / 0
Регистрация: 01.11.2017
Сообщений: 6
06.12.2017, 20:06  [ТС] #3
3 это количество букв в слове, а задание - подсчитать количество букв в каждом слове предолжения

Добавлено через 7 минут
3 это количество букв в слове, а задание - подсчитать количество букв в каждом слове предложения
0
Puporev
Модератор
54146 / 41779 / 28885
Регистрация: 18.05.2008
Сообщений: 98,327
06.12.2017, 20:10 #4
Цитата Сообщение от Svetlank Посмотреть сообщение
а задание - подсчитать количество букв в каждом слове предложения
Именно такое задание? А в каком виде вводится предложение? Из чего могут состоять слова и чем они отделяются?

Добавлено через 1 минуту
Как вообще выглядит полное и точное задание?
0
Svetlank
0 / 0 / 0
Регистрация: 01.11.2017
Сообщений: 6
06.12.2017, 21:57  [ТС] #5
это и есть полное задание, о большем не говорится
0
Puporev
Модератор
54146 / 41779 / 28885
Регистрация: 18.05.2008
Сообщений: 98,327
07.12.2017, 09:32 #6
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
uses crt;
const bk=['А'..'я','Ё','ё','A'..'Z','a'..'z'];
var pr,sl:string;
    i,j,k:integer;
begin
clrscr;
writeln('               Введите предложение из слов');
writeln('состоящих из различных символов, разделенных пробелами');
readln(pr);
pr:=pr+' '; {добавим пробел в конец для удобства}
while pr[1]=' ' do delete(pr,1,1);{удалим все пробелы в начале строки}
while pos('  ',pr)>0 do delete(pr,pos('  ',pr),1);{удалим лишние пробелы между словами(в апострофах по 2 пробела)}
sl:= '';
for i:=1 to length(pr) do
if pr[i]<>' ' then sl:=sl+pr[i]
else
  begin
   k:=0;
   for j:=1 to length(sl) do
   if sl[j] in bk then inc(k);
   writeln(sl, ' : ', k);
   sl:= '';
  end;
readln
end.
0
Svetlank
0 / 0 / 0
Регистрация: 01.11.2017
Сообщений: 6
10.12.2017, 14:36  [ТС] #7
а что такое к?
0
Puporev
Модератор
54146 / 41779 / 28885
Регистрация: 18.05.2008
Сообщений: 98,327
10.12.2017, 15:04 #8
Так наверное количество букв в слове.
0
Svetlank
0 / 0 / 0
Регистрация: 01.11.2017
Сообщений: 6
10.12.2017, 15:09  [ТС] #9
а зачем удалять все пробелы в начале строки? это не лишнее все?
0
Puporev
Модератор
54146 / 41779 / 28885
Регистрация: 18.05.2008
Сообщений: 98,327
10.12.2017, 15:16 #10
А Вы закомментируйте строку 11, введите типа
_ _ про15 45огл//в начале это пробелы
и посмотрите что выведет

Добавлено через 1 минуту
Вообще не понимаю если такие вумные, то чего сами не пишете программы?
0
Svetlank
0 / 0 / 0
Регистрация: 01.11.2017
Сообщений: 6
10.12.2017, 15:28  [ТС] #11
я просто не понимаю, зачем пробелы нужны перед предолжением
0
Puporev
Модератор
54146 / 41779 / 28885
Регистрация: 18.05.2008
Сообщений: 98,327
10.12.2017, 15:29 #12
Да мало ли что будет введено. Например препод назло их введет.
0
10.12.2017, 15:29
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2017, 15:29
Привет! Вот еще темы с решениями:

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

Подсчитать количество букв а в слове
1.Подсчитать количество букв а в слове 2.найти произведение всех чисел сторки ...

Подсчитать количество букв в слове.
Помогите с решением задачи!!! надо сделать так чтобы на экран выдавались...

Подсчитать количество букв в последнем слове
Помогите, пожалуйста, составить программы. 1) Составить программу,...


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

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

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