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

Определить номер слова в тексте - Turbo Pascal

19.04.2011, 16:17. Просмотров 536. Ответов 3
Метки нет (Все метки)

Определить номер слова, в котором больше всего букв "а" Текст произвольный
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2011, 16:17
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить номер слова в тексте (Turbo Pascal):

Определить количество повторений в тексте заданного слова. Считать, что слова в тексте отделены друг от друга
1)В строке удалить введённое буквосочетание. 2)Определить количество...

Определить число и номер символа в тексте
Помогите пожалуйста составить программу, определяющую число и номера позиций, в...

Определить порядковый номер последней запятой в тексте
За данным натуральным значением переменной n вычислить...

Определить номер последнего символа, отличного от пробела в исходном тексте
1. определить номер последнего символа, отличного от пробела в исходном тексте,...

Определить количество повторений в тексте заданного слова
Определить количество повторений в тексте заданного слова. Считать, что слова в...

По номеру строки в тексте определить номер страницы, на которой будет напечатана строка
Задача С. Строки в книге (100 баллов). В книге на одной странице помещается К...

3
MAZUR777
605 / 130 / 132
Регистрация: 15.04.2010
Сообщений: 554
19.04.2011, 16:23 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program slovaa;
var s,t,max:string; {s - строка, введенная пользователем, t - слово (для удобства), max - строка, содержащая самое длинное слово}
i,i1,i2:integer; {i - счетчик цикла, i1 - номер начала текущего слово в массиве, i2 - кол-во слов начинающихся на букву 'a'}
begin
readln(s); {Вводим строку}
if s[length(s)]<>' ' then s:=s+' '; {Алгоритм отделения слов не будет работать, если в конце нет пробела}
i1:=1; {Первое слово начинается с первого символа в строке. Если этим символом будет пробел, то ничего страшного}
for i:=1 to length(s) do {Начинаем перебирать символы}
if (s[i]=' ') and (s[i+1]<>' ') then begin {Если текущий символ - пробел, и следующий символ не пробел, то идем дальше (Если следующий символ пробел, то текущее слово может засчитаться два и более раз (когда отсутствует сравнение s[i+1]<>' '))}
t:=copy(s,i1,i-i1); {В переменную t помещаем текущее слово}
if t[1]='a' then begin {Если первая буква слова - 'a', то }
inc(i2); {увеличиваем счетчик i2}
if length(t)>length(max) then max:=t {Если длина текущего слова больше длинны слова max, то переменной max присваиваем значение t}
end;
i1:=i+1 {Увеличиваем счетчик слова}
end; {Заканчиваем обработку текущего слова}
if length(max)>0 then begin writeln(max); writeln(i2); end else writeln('Слов начинающихся на букву a в данной строке нет');
readln; {Ждем нажатия на клавишу enter}
end.
1
Вован26
0 / 0 / 1
Регистрация: 29.03.2011
Сообщений: 45
19.04.2011, 16:24  [ТС] #3
Спасибо!)))
0
ВолодяН
1 / 1 / 0
Регистрация: 19.04.2011
Сообщений: 23
19.04.2011, 16:30 #4
Помогите плиз!!!
По данным таблицы 1, содержащей информацию о работниках предприятия, провести упорядочивание данных по возрастанию или убыванию значение реквизита, указанного в варианте. Вывести на печать исходную таблицу и упорядоченную таблицу.
Код
1
2
3
4
5
6
7
8
9
10
11
№ Фамилия И. О. Пол Возраст (лет) Стаж работы (лет)
1. Анисимов Ю. П. М 55 23
2. Иванов И. Н. М 45 25
3. Махова О. И. Ж 35 20
4. Огарев К. М. М 50 20
5. Егорова П. К. Ж 40 19
6. Голикова О. И. Ж 33 17
7. Сотников Т. С. М 52 17
8. Комов И.М. М 48 25
9. Лебедев А. А. М 36 20
10. Димова В. В. Ж 30 20
Задание: Упорядочить сведения о мужчинах с рабочим стажем больше 20 лет по алфавиту.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2011, 16:30
Привет! Вот еще темы с решениями:

По номеру строки в тексте определить номер страницы, на которой будет напечатана эта строка
В книге на одной странице помещается K строк. Таким образом, на 1-й странице...

Определить сколько раз заданные слова встречаются в тексте.
Требуется помощь! Возникла проблема не могу решить задачу! Тема: Файлы....

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

Дано некоторый текст, в котором есть хотя бы одна запятая. Определить порядковый номер последней запятой в тексте
Дано некоторый текст, в котором есть хотя бы одна запятая. Определить...


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

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

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