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

Вывод слов из трех букв - Turbo Pascal

07.07.2012, 16:56. Просмотров 588. Ответов 3
Метки нет (Все метки)

Дан текст. Проверьте, есть ли в данном тексте слово из трех букв и выведите его на экран. Если таких слов несколько выведите на экран все такие слова.
http://www.cyberforum.ru/turbo-pascal/thread2118262.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.07.2012, 16:56
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывод слов из трех букв (Turbo Pascal):

Определить, какой процент от общего количества слов составляют слова, имеющие менее трех букв.
Составить программу, выполняющую следующее задание: дана строка символов....

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

Найти количество слов, число букв в которых равно количеству предыдущих слов
Найти количество слов, число букв в которых равно количеству предыдущих слов,...

Заданная последовательность слов от 1 до 30 слов, в каждом от 1 до 5 латинских букв. Между соседними словами - запятая за последний словом точка. выве
Здраствуйте решите пожалуста такую задачку: Заданная последовательность слов...

Найти слово с наибольшим числом гласных букв и отсортировать массив слов по убыванию числа гласных букв
В массиве слов найти слово с наибольшим числом гласных букв и отсортировать...

3
Reveng
420 / 420 / 338
Регистрация: 25.06.2012
Сообщений: 666
Завершенные тесты: 1
07.07.2012, 19:16 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var
   Line: string;
   i, j : integer;
BEGIN
ClrScr;
Write('Enter the text: ');
Readln(Line);
Line := Line + ' ';
j := 0;
Writeln('Result: ');
for i := 0 to Length(Line) do
 if Line[i] = ' ' then
  if Length(copy(Line, j, i - j)) = 3 then
   begin
   Writeln(copy(Line, j, i - j));
   j := i + 1;
   end else j := i + 1;
Readln;
END.
2
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
07.07.2012, 19:21 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var s: string;
    i,k: byte;
begin
write('s='); readln(s); s:=s+' ';
write('Слова из трех букв');
while length(s)>0 do
      begin
      if length(copy(s,1,pos(' ',s)-1))=3 then
         begin
         inc(k);
         if k=1 then writeln(':');
         write(copy(s,1,pos(' ',s)-1),' ');
         end;
      delete(s,1,pos(' ',s))
      end;
if k=0 then write(' отсутствуют');
readln;
end.
о, перехват =)...
2
fea
0 / 0 / 0
Регистрация: 07.07.2012
Сообщений: 16
07.07.2012, 21:28  [ТС] #4
Вы мне очень помогли
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.07.2012, 21:28
Привет! Вот еще темы с решениями:

Ввести от 1 до 30 слов и сделать вывод этих слов в обратном порядке
Текст задания: Дана последовательность, содержащая от 1 до 30 слов, в каждом из...

Из трех слов составить слово
кто сможет помочь! у самого уже мозг взорвался. Даны строка...

Найти количество букв p в трех первых словах текста
Дан текст. Найти цифру буквы р, которая входит в начальные три слова текста. ...

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


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

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

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