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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Svetlank
0 / 0 / 0
Регистрация: 01.11.2017
Сообщений: 6
#1

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

06.12.2017, 18:06. Просмотров 119. Ответов 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):

Нужно подправить немного программу - Turbo Pascal
В программе вводишь строку любые цифры и буквы и она упорядочить их сначало цифры потом буквы, и надо что бы было в алфавитном порядку и...

Есть код програмы, нужно подправить его немного - Turbo Pascal
Вот код: uses crt; var xn,xk,x,s,dx,t,ex:real; n,i:integer; begin clrscr; xn:=0.1; xk:=1; dx:=(xk-xn)/10; n:=14;

Аппроксимация МНК (чуточку график нужно подправить) - Turbo Pascal
Суть в том, что график должен быть плавный, а у меня ломаными линиями. Помогите плиз исправить. Вот сам код программы uses crt, graph; ...

Нужно подправить задачку - Pascal
Условие задачи: Пусть дана целочисленная квадратная матрица порядка n. Найдите номера строк: все элементы которых чётны. Program...

ERROR 37(нужно подправить) - Pascal
&lt;Массив из записей &quot;лотерея&quot;. Запись содержит:Ф.И.О., количество игр, количество выигрышей. Вывести на экран сведения об игроках с...

Работа с массивами. Нужно подправить текст проги. - Pascal
помогите, пожалуйста. program Shwarz_Kurs; const n=50; {Число строк и столбцов} type Matrix=array of real;...

11
Puporev
Модератор
53008 / 40819 / 14063
Регистрация: 18.05.2008
Сообщений: 94,942
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
Модератор
53008 / 40819 / 14063
Регистрация: 18.05.2008
Сообщений: 94,942
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
Модератор
53008 / 40819 / 14063
Регистрация: 18.05.2008
Сообщений: 94,942
07.12.2017, 09:32 #6
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
Модератор
53008 / 40819 / 14063
Регистрация: 18.05.2008
Сообщений: 94,942
10.12.2017, 15:04 #8
Так наверное количество букв в слове.
0
Svetlank
0 / 0 / 0
Регистрация: 01.11.2017
Сообщений: 6
10.12.2017, 15:09  [ТС] #9
а зачем удалять все пробелы в начале строки? это не лишнее все?
0
Puporev
Модератор
53008 / 40819 / 14063
Регистрация: 18.05.2008
Сообщений: 94,942
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
Модератор
53008 / 40819 / 14063
Регистрация: 18.05.2008
Сообщений: 94,942
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
Привет! Вот еще темы с ответами:

Подправить программу - Pascal
program m; var y,s,x,ep:real; i:integer; begin write('x = '); readln(x); {ввод переменной x} write('eps&gt;0, eps =...

Немного в ступор вошел, а нужно ли брать отрицательное число? - Pascal
Есть задание: Дан массив {ai} , i = 1, 2, ..., n. Известно, что a1&gt;0 и среди a2 , a3 , ..., an есть хотя бы одно отрицательное число....

Немного доработать программу - Turbo Pascal
Помогите доделать задачу. Определите количество четных чисел из 5-ти заданных и найти их сумму. Вот я написал программу она выводит...

Немного доделать программу - Pascal
Есть программа, которая ищет слова в строке, начинающиеся с заданной буквы. var st: string; i,count: integer; a: char; begin ...


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

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

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