Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.11.2015, 17:00   #1
Ostapov
Пользователь
 
Регистрация: 30.09.2015
Сообщений: 22
По умолчанию слова были упорядочены по возрастанию своей длины

Дана строка состоящая из слов. Преобразовать строку таким образом, чтобы слова были упорядочены по возрастанию своей длины. Необходимо использовать процедуры.
Ostapov вне форума Ответить с цитированием
Старый 22.11.2015, 17:53   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Попытки и наработки?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.11.2015, 18:06   #3
Ostapov
Пользователь
 
Регистрация: 30.09.2015
Сообщений: 22
По умолчанию

Код:
const n=4;
var
s : array[1..10] of string;
i,j : integer;
t : string;

begin
for i:=1 to n do
 readln(s[i]);

 for i:=n-1 downto 1 do
  for j:=1 to i do
   if length(s[j])>length(s[j+1]) then
    begin
    t:=s[j];
    s[j]:=s[j+1];
    s[j+1]:=t;
    end;

writeln('-----------');
for i:=1 to n do
 write(s[i],' ');
end.
Ostapov вне форума Ответить с цитированием
Старый 22.11.2015, 18:25   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

О! Рулеззз.
Вот процедура сортировки:
Код:
procedure sort; var i,j:integer; a:string;
begin
 for i:=1 to 10 do for j:=1 to 10 do if Length(s[i])>Length(s[j]) then begin
   a:=s[i]; s[i]:=s[j]; s[j]:=a;
 end;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.11.2015, 18:27   #5
Ostapov
Пользователь
 
Регистрация: 30.09.2015
Сообщений: 22
По умолчанию

А остальное как? Я не могу реализовать
Ostapov вне форума Ответить с цитированием
Старый 22.11.2015, 19:54   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Что остальное?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 22.11.2015, 19:55   #7
Ostapov
Пользователь
 
Регистрация: 30.09.2015
Сообщений: 22
По умолчанию

ну ты можешь написать полностью код? я не понимаю, как это совместить
Ostapov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Соединить два массива а и b в массив с так, чтобы его элементы были упорядочены по возрастанию. Поправить код. dmitriy20104 Паскаль, Turbo Pascal, PascalABC.NET 10 08.08.2012 11:21
Ассемблер. Найти слово минимальной длины и укоротить остальные слова до длины минимального. xqr Помощь студентам 1 25.05.2012 22:41
В файле f элементы упорядочены по возрастанию.требуется слить эти файлы в один файл,также упорядоченный по возрастанию ayoka Паскаль, Turbo Pascal, PascalABC.NET 2 16.05.2012 21:51
Упорядочить слова в строке по возрастанию их длины (SortWords(s) функция) edikesh Помощь студентам 0 03.12.2011 22:51
Преобразовать строку таким образом, чтобы буквы каждого слова в ней были отсортированы по возрастанию. Matr1x Общие вопросы C/C++ 4 07.01.2010 21:38