Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
lems
0 / 0 / 0
Регистрация: 11.06.2012
Сообщений: 3
1

Обработка строк. В предложении оставить только слова короче четырех букв

11.06.2012, 13:23. Просмотров 872. Ответов 1
Метки нет (Все метки)

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

+ нужно составить блок-схему

помоги, пожалуйста... очень срочно нужно
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2012, 13:23
Ответы с готовыми решениями:

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

Операции со строками. Исключить все слова короче 4-х букв
Ребят, помогите пожалуйста...необходимы все 3 задачи. 1. В заданном...

В предложении найти и вывести все слова из четырех символов
Написать программу. По возможности алгоритм. В предложении найти и вывести все...

Установить, можно ли в предложении составить остальные слова из букв первого слова
Как можно решить задачу (ниже) без использования подпрограмм, опираясь на...

Можно ли в предложении составить остальные слова из букв первого слова
Если кто-то может решить задачу помогите пожалуйста. У самого проблемы c Pascal...

1
CodeR
Фрилансер
3383 / 2784 / 3000
Регистрация: 08.02.2012
Сообщений: 6,820
Записей в блоге: 1
11.06.2012, 13:40 2
Лучший ответ Сообщение было отмечено lems как решение

Решение

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
26
27
28
29
30
31
Var s,s1,s2:string;
    i,k:integer;
    f:text;
Begin
    write('Введите строку: ');readln(s);
    s2:='';i:=0;k:=0;
    While Pos(' ',s)<>0 do
     Begin
      inc(i);
      s1:=Copy(s,1,Pos(' ',s)-1);
      if Length(s1)<4 then 
       Begin
        s2:=s2+s1+' ';
        inc(k);
       End;
      Delete(s,1,Pos(' ',s));
     End;
    inc(i);
    if Length(s)<4 then 
     Begin
      s2:=s2+s;
      inc(k);
     End;
    writeln('Полученная строка: ',s2);
    writeln('Число исключенных: ',i-k);
    Assign(f,'a.txt');Rewrite(f);
    writeln(f,'Полученная строка: ',s2);
    Str(i-k,s1);
    writeln(f,'Число исключенных: ',s1);
    Close(f);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2012, 13:40

От каждого слова в строке оставить только первые 3 буквы.
Дана строка. От каждого слова оставить только первые 3 буквы. Например, вводим...

Удалить все слова, состоящие только из букв последнего слова
Помогите пожалуйста решить задачку: Дана строка символов. Разделителями слов...

Дана строка, состоящая из слов, оставить только последнее вхождение каждого слова
Дана строка, состоящая из слов оставить только последнее вхождение каждого...


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

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

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