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

Вывести на экран слова, содержащие три буквы - Turbo Pascal

01.05.2014, 07:29. Просмотров 745. Ответов 4
Метки нет (Все метки)

Дана строка, содержащая текст, заканчивающийся точкой.Вывести на экран слова, содержащие три буквы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2014, 07:29
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести на экран слова, содержащие три буквы (Turbo Pascal):

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

Вывести на экран слова, содержащие три буквы
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова,...

Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова, содержащие три буквы.
Дана строка, содержащая текст, заканчивающийся точкой. Вывести на экран слова,...

Для трех исходных строк вывести на экран все слова из строки, содержащие по 4 буквы.
Написать программу в соответствии с заданием. Вычислительный процесс выполнить...

Вывести на экран слова из предложения, которые содержат ровно три буквы е
помогите пожалуйста написать программы: 1)Указать порядковые номера символов,...

Вывести слова, содержащие буквы «о» и «е»
Дан произвольный текст на русском языке. Написать программу, которая выводит...

4
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,652
Записей в блоге: 1
01.05.2014, 07:35 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var s,sl:string;
Begin
    write('Текст: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if Length(sl)=3 then writeln(sl);
    End;
    readln;
End.
Слова разделяются пробелами
0
ZaRinKa97
1 / 1 / 1
Регистрация: 26.04.2014
Сообщений: 121
01.05.2014, 08:46  [ТС] #3
в отладке на экран не выводятся слова, содержащие 3 буквы..
0
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,652
Записей в блоге: 1
01.05.2014, 09:16 #4
Цитата Сообщение от ZaRinKa97 Посмотреть сообщение
в отладке на экран не выводятся слова, содержащие 3 буквы..
....
0
Миниатюры
Вывести на экран слова, содержащие три буквы  
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,652
Записей в блоге: 1
01.05.2014, 09:19 #5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var s,sl:string;
    k,i:byte;
Begin
    write('Текст: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      k:=0;
      For i:=1 to Length(sl) do
       if sl[i] in ['a'..'z','A'..'Z','а'..'п','р'..'я','А'..'П','Р'..'Я','ё','Ё'] then inc(k);
      if k=3 then writeln(sl);
    End;
    readln;
End.
0
01.05.2014, 09:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.05.2014, 09:19
Привет! Вот еще темы с решениями:

Вывести на экран слова строки, содержащие заданную букву
Будте так любезны, помогите мне с программкой Ввести массив слов, состоящий из...

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

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

Переставить первые три и последние три буквы слова, сохранив порядок их следования
2. Дано слово. Переставить первые три и последние три буквы, сохранив порядок...


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

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

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