VPF::Задача на сортировку! - Форум программистов

rococo

Дата 11.4.2009, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.4.2009

Репутация: нет
Всего: нет

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

volvo877

Дата 11.4.2009, 23:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(rococo @ 11.4.2009, 20:48

)

Задание: написать программу, которая будет располагать слова в порядке убывания их длины в преложении

Прекрасно, и что? Что-то пробовал? Что-то не получается? Что именно? Код разбиения строки на слова покажи, где и как хранишь выделенные из строки слова - тоже неплохо было бы знать. Что такое слово в конце концов, чем слова могут отделяться друг от друга в предложении... Ты ж не написал ничего, просто выплеснул сюда задание в надежде подом зайти и скопировать выложенный тебе на блюдечке ответ, да? Ан РАЗБИЛОСЬ блюдечко. Нет больше решений без твоего участия...

rococo

Дата 12.4.2009, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.4.2009

Репутация: нет
Всего: нет

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

rococo

Дата 16.4.2009, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.4.2009

Репутация: нет
Всего: нет

Подскажи те с чего хоть начать!

Это сообщение отредактировал(а) rococo - 16.4.2009, 22:22

BeKToP

Дата 17.4.2009, 07:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 15.5.2008

Репутация: нет
Всего: нет

Начни с изучения языка, а имено таких функций как copy,upcase,length,pos
а дальше берёш предложение, выделяеш из него первое слово, обрабатываеш, потом следующее итд.. smile

а чтобы упорядочить по длинне, ну не зняю что бы проще было создай массив где то 100x2 и храни в нём номер слова и его длинну потом отсортируй и выведи..

ну это всё ,так, образно, ну уж извиняй какой вопрос такой ответ....

megabist

Дата 18.4.2009, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Mart Slaaf

Профиль
Группа: Участник
Сообщений: 455
Регистрация: 3.4.2006
Где: Мск

Репутация: нет
Всего: 31

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

--------------------

Don't panic!

Жди, и Фатум тебя приведёт...

rococo

Дата 22.4.2009, 21:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.4.2009

Репутация: нет
Всего: нет

это код похожей программы, она делает тоже самое но по возрастанию....что нужно здеь исправить?

Код

uses crt;
var s,sub:string;
    i,j,n:integer;
    a:array[1..100] of string;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=2 to n do
 for j:=n downto i do
  if length(a[j])<length(a[j-1]) then
  begin
   sub:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=sub;
  end;
for i:=1 to n do
writeln(a[i]);
end.

Это сообщение отредактировал(а) volvo877 - 22.4.2009, 23:45

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »