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

Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста - Turbo Pascal

29.12.2014, 18:39. Просмотров 577. Ответов 1
Метки нет (Все метки)

Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных пробелами. Слова представляют собой произвольную последовательность символов, отличных от пробела. Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста.

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

Напечатайте все слова, которые состоят из тех же литер, что и последнее
Пусть дан текст, заканчивающийся точкой. Текст состоит из слов, разделенных...

Напечатать все слова, отличные от последнего слова, которые состоят из тех же букв, что и первое
п.1. - Напечатать все слова, отличные от последнего слова, которые со-стоят из...

Удалить из файла все слова,которые состоят из одних и тех же букв
Дан текстовый файл f.Удалить из файлы все слова,которые состоят из одних и тех...

Вывести все слова заданного текста, состоящие из тех же букв, что и первое слово
Заранее Большое Спасибо!!!

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

Распечатать все слова строки, которые начинаются на ту же букву, что и слово минимальной длины (последнее по порядку)
Распечатать все слова строки, которые начинаются на ту же букву, что и слово...

1
Joy
Эксперт Pascal/Delphi
2120 / 1160 / 1418
Регистрация: 29.08.2014
Сообщений: 4,226
30.12.2014, 13:31 #2
Лучший ответ Сообщение было отмечено yushimitsu как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  ls,cs,s,ss:string;
  i,j:integer;
  b:boolean;
begin
  write('BBeguTe TekcT:');readln(s);
  for i:=length(s) downto 1 do
    if s[i]=#32 then break;
    ls:=copy(s,i+1,length(S)-i);
  repeat
    cs:=copy(s,1,pos(#32,s)-1);ss:=cs;
    delete(s,1,pos(#32,s));
    for i:=1 to length(ls) do  while pos(ls[i],ss)>0 do delete(ss,pos(ls[i],ss),1);
    if ss='' then writeln(cs);
  until s=ls;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2014, 13:31
Привет! Вот еще темы с решениями:

Вывести те слова, которые начинаются на ту же букву, что и последнее слово.
И вот эту еще!! Очень нужна помощь! дана символьная строка, содержащая...

Перечислить все числа заданной последовательности, которые состоят из тех же цифр, что и первое число
Перечислить все числа заданной последовательности чисел ,которые состоят из тех...

Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р
Дано слово р и файл f. Найти в файле f все слова, которые можно составить из...

Напечатайте те слова, в которые не входит ни одна из букв первого слова
Пусть задан текст, заканчивающийся точкой. Текст состоит из слов, разделенных...


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

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

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