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

Pascal Дана строка состоящая из русских слов разделенных пробелами (одними или несколькими)

13.11.2014, 20:16. Показов 4087. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана строка состоящая из русских слов разделенных пробелами (одними или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в алфавитном порядке.

Помогите пожалуйста, не понимаю ничерта, если можно программу с объяснениями.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2014, 20:16
Ответы с готовыми решениями:

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

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

Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же слова, но разделенные одним символом "."
Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же...

Строка из русских слов разделена пробелами (одним или несколькими). Найти длину самого короткого слова
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти длину...

1
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
13.11.2014, 20:41 2
Лучший ответ Сообщение было отмечено tolyan1247 как решение

Решение

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
39
40
41
42
43
uses
  crt;
var
  words : array[1..100] of string;
  wc : integer;
  All,currword,tmp : string;
  i,j : integer;
begin
  clrscr;
  wc := 1;
  writeln('Введите текст : ');
  readLn(All);
  All := All + chr(32)+ chr(32);
  for i := 1 to length(All)-1 do
    begin
      if ord(All[i]) = 32 then
        begin
          if currword <> '' then
            begin
              words[wc] := currword;
              inc(wc);
              currword := '';
            end;
          continue;
        end
          else
            begin
              currword := currword + All[i];
            end;
    end;
  for i := 1 to wc-2 do
    for j := i + 1 to wc-1 do
      if words[i] > words[j] then
        begin
          tmp := words[i];
          words[i] := words[j];
          words[j] := tmp;
        end;
  writeln('Полученный текст: ');
  for i := 1 to wc-1 do
    write(words[i] + ' ');
  readln;
end.
0
13.11.2014, 20:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2014, 20:41
Помогаю со студенческими работами здесь

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

Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга пробелами
Дана строка символов ( 2-3 строки ) в файле F1, состоящая из слов , отделенных друг от друга...

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

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


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

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

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