0 / 0 / 0
Регистрация: 28.12.2009
Сообщений: 12
1

В заданом тексте найти самые короткие и самые длинные слова.

28.12.2009, 22:25. Показов 4570. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В заданом тексте найти самые короткие и самые длинные слова.
Если можно, то с блок-схемкой
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.12.2009, 22:25
Ответы с готовыми решениями:

Вывести на экран все самые длинные и все самые короткие строки из текстового файла
Имеется текстовый файл. Требуется вывести на экран все самые длинные и все самые короткие строки....

В данном предложение найти самые короткие и длинные слова
№1 Программирование алгоритмов обработки последовательности символов: В данном предложение найти...

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

Найти самые длинные слова в каждой строке файла
Сделайте пожалуйста задачу Создать текстовый файл, каждая строка которого содержит разные слова....

3
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
28.12.2009, 22:46 2
Цитата Сообщение от Me=) Посмотреть сообщение
В заданом тексте
Что под этим понимается строка или текстовый файл?
0
119 / 119 / 41
Регистрация: 21.12.2009
Сообщений: 194
28.12.2009, 22:47 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Код написан форумчанином Puporev'ым (обрезал лишнее, оставил только нахождение минимального и максимального слова)
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
32
program strings;
uses crt;
var s,s2,s1:string;
    sk,sd:string;
    len,k,d:byte;
begin
clrscr;
writeln('Введите строку из слов, отделенных пробелами:');
readln(s);
s1:=s+' ';
while pos('  ',s1)>0 do
delete(s1,pos('  ',s1),1);
if s1[1]=' 'then delete(s1,1,1);
while pos(' ',s1)>0 do
 begin
  len:=pos(' ',s1)-1;
  s2:=copy(s1,1,len);
  if len<k then
   begin
    sk:=s2;
    k:=len;
   end;
  if len>d then
   begin
    sd:=s2;
    d:=len;
   end;
  delete(s1,1,pos(' ',s1));
 end;
writeln('Самое короткое слово ',sk);
writeln('Самое длинное слово ',sd);
end.
2
0 / 0 / 0
Регистрация: 28.12.2009
Сообщений: 12
29.12.2009, 00:33  [ТС] 4
Цитата Сообщение от Inadequate Посмотреть сообщение
Что под этим понимается строка или текстовый файл?
строка
2vad2211 спасибо!

Добавлено через 1 час 17 минут
Не находиться самая короткая строка(
0
29.12.2009, 00:33
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.12.2009, 00:33
Помогаю со студенческими работами здесь

Напечатать все самые длинные слова строки
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

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

Найти все самые короткие слова сообщения
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются...

В тексте найти самые короткие и самые длинные слова
Напишите класс MinMaxWordFinder. Класс должен уметь анализировать текст и находить в нём слова...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru