Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Тео
1 / 1 / 0
Регистрация: 03.11.2015
Сообщений: 113
1

Написать подпрограмму, которая сортирует заданную строку S по длине слов

30.11.2015, 08:51. Просмотров 271. Ответов 5
Метки нет (Все метки)

Дано: в текстовом файле fin.txt находится текст на русском языке. С клавиатуры вводится число К.
Требуется: написать подпрограмму, которая сортирует заданную строку S по длине слов и, используя эту подпрограмму, сформировать текстовый файл fout.txt, в K-ой строке которого будет находиться отсортированная строка S, полученная описанным выше способом из К-ой строки файла fin.txt.
Вывести полученный компонентный файл на экран.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.11.2015, 08:51
Ответы с готовыми решениями:

Написать программу, которая сортирует массив от 0 до 100 пузырьковым методом, провести тестирование
Можете помощь написать программу если не тяжело Написать программу которая...

Написать программу, которая методом сортировки выбором сортирует введенный пользователем массив слов
#include "stdafx.h" #include <iostream> #include "conio.h" #include...

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

Написать программу, которая разделяет заданную символьную строку на предложения
Написать программу, которая разделяет заданную символьную строку на...

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

5
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26151 / 17527 / 6951
Регистрация: 22.10.2011
Сообщений: 30,868
Записей в блоге: 6
30.11.2015, 13:16 2
Кладешь на форму кнопку, пишешь вот такой обработчик нажатия:

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
33
34
35
36
37
38
// в uses добавляем lazutf8classes, lazutf8, math
 
function CompareByLength(L: TStringList; i1, i2: Integer): Integer;
begin
  Result := CompareValue(UTF8Length(L[i1]), UTF8Length(L[i2]));
end;
 
function SortStr(s : string) : string;
var
  L : TStringListUTF8;
  t : string;
begin
  Result := '';
  L := TStringListUTF8.Create;
  L.StrictDelimiter := True;
  L.Delimiter := ' ';
  L.DelimitedText := s;
  L.CustomSort(@CompareByLength);
  Result := L.DelimitedText;
  L.Free;
end;
 
// вот сам обработчик нажатия на кнопку:
procedure TForm1.Button1Click(Sender: TObject);
var
  k : Integer;
begin
  k := StrToInt(InputBox('Ввод данных', 'Номер строки для замены:', '4'));
  with TStringListUTF8.Create do
  try
    StrictDelimiter := True;
    LoadFromFile('fin.txt');
    if k < Count then Strings[Pred(k)] := SortStr(Strings[Pred(k)]);
    SaveToFile('out.txt');
  finally
    Free;
  end;
end;
0
Тео
1 / 1 / 0
Регистрация: 03.11.2015
Сообщений: 113
30.11.2015, 14:51  [ТС] 3
volvo, спасибо ) а можешь файлом кинуть ?) пожалуйста)

Добавлено через 40 секунд
volvo, или скриншот кода и формы
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26151 / 17527 / 6951
Регистрация: 22.10.2011
Сообщений: 30,868
Записей в блоге: 6
30.11.2015, 16:59 4
Вот заархивированный проект. Докатились, уже разжеванное оформить не можем. Не забудь сказать, когда на работу устроишься, зарплату я тоже буду за тебя получать. Всё - так всё делать за тебя.
0
Вложения
Тип файла: 7z thread1597041.7z (59.2 Кб, 7 просмотров)
Тео
1 / 1 / 0
Регистрация: 03.11.2015
Сообщений: 113
30.11.2015, 17:10  [ТС] 5
volvo, т.е как ты будешь получать зп за меня?

Добавлено через 3 минуты
volvo, я очень благодарен тебе!
0
Новичок
30.11.2015, 18:02     Написать подпрограмму, которая сортирует заданную строку S по длине слов
  #6

Не по теме:

Цитата Сообщение от volvo Посмотреть сообщение
Не забудь сказать, когда на работу устроишься, зарплату я тоже буду за тебя получать. Всё - так всё делать за тебя.
:D :good:

0
30.11.2015, 18:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.11.2015, 18:02
Привет! Вот еще темы с ответами:

Написать функцию которая будет умножать любую строку на уже заданную матрицу
Написать функцию которая будет умножать любую строку на уже заданную матрицу

Написать и протестировать функцию которая определяет входит ли каждая буква в заданную строку не менее двух раз
Написать и протестировать функцию которая определяет входит ли каждая буква в...

Изменить заданную строку текста так, чтобы её длина была равна указанной длине
Здравствуйте!Столкнулся с такой задачей :Дана строка текста. Изменить его так,...


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

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

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