Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 16.11.2014
Сообщений: 2
1

Переставить и распечатать слова заданного предложения в соответствии с ростом доли согласных в этих словах

16.11.2014, 14:32. Показов 1635. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста ,переставить и распечатать слова заданного предложения в соответствии с ростом доли согласных в этих словах.
Делфи
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2014, 14:32
Ответы с готовыми решениями:

Переставить слова заданного предложения в соответствии с ростом согласных в этих словах.
Добрый день. В универе дали задачку "Переставить слова заданного предложения в соответствии с...

Переставить слова заданного предложения в соответствии с ростом согласных в этих словах. Исправить программу
Переставить слова заданного предложения в соответствии с ростом согласных в этих словах. uses...

Вывести слова заданного текста в соответствии с ростом доли гласных в этих словах
Никогда не работал с C++, 2 курс университета, надо написать программу по заданию на тему...

Упорядочить слова заданного предложения в соответствии с ростом их характеристик
Характеристикой слова назовем длину содержащейся в нем мак- симальной серии. Упорядочить слова...

1
Эксперт Pascal/Delphi
6750 / 4529 / 4797
Регистрация: 05.06.2014
Сообщений: 22,351
17.11.2014, 16:30 2
Лучший ответ Сообщение было отмечено olga987456321 как решение

Решение

Delphi
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
const
   limits = [#0..#32,'.',',',':',';','!','?','"'];
type
   TWords = array[1..40] of string;
var
   text : string;
   words : TWords;
function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;
   GetWords := n;
end;
 
function consonant(text:string):integer;
Type
  Letters = set of 'A'..'я';
Var
  Glasn, Sogl : Letters;
  i, G, S : byte;
Begin
  Glasn := ['A', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'ы','Э', 'э', 'Ю', 'ю', 'Я', 'я', 'Ё', 'ё'];
  Sogl := ['Б'..'Д', 'б'..'д', 'Ж', 'ж', 'З', 'з', 'К'..'Н', 'к'..'н', 'П'..'Т', 'п'..'т', 'Ф'..'Щ', 'ф'..'щ', 'ь', 'ъ'];
  G := 0;
  S := 0;
  For i := 1 to Length(Text) do
    Begin
      If Text[i] in Glasn
        Then
          G := G+1;
      If Text[i] in Sogl
        Then
          S := S+1;
    End;
  consonant:=s;
End;
 
procedure swapint(var x,y: integer);
var
  t: integer;
begin
  t := x;
  x := y;
  y := t
end;
 
procedure swapstr(var x,y: string);
var
  t: string;
begin
  t := x;
  x := y;
  y := t
end;
 
var
  j, i, n:integer;
  a:array of integer;
 
begin
  text:='Маша ела клюкву с медом. А медведь ел малину.';
  writeln(text);
  writeln; 
  n:=getwords(text,words);
  setlength(a,n+1);
  for i:=1 to n do
    begin
      a[i]:=consonant(words[i]);
      Writeln('В слове "', words[i], '" ', a[i], ' согласных букв.');
    end;
  { сортировка }
  for j:=1 to N-1 do
    for i:=1 to N-j do
      if a[i] > a[i+1] then
        begin
          swapint(a[i],a[i+1]);
          swapstr(words[i],words[i+1]);
        end;
 
  writeln;
  for i:=1 to n do
    write(words[i],' ');
  readln;
  setlength(a,0);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2014, 16:30

Упорядочить слова заданного предложения в соответствии с ростом их характеристик
Задание: Характеристикой слова назовем длину содержащейся в нем максимальной серии. Упорядочить...

Упорядочить слова заданного предложения в соответствии с ростом их длины
Помогите решить данную задачку: Упорядочить слова заданного предложения в соответствии с ростом их...

Для каждого слова заданного предложения укажите долю согласных. Определите слово, в котором доля согласных максимальна
Разработайте программу решения задачи с использованием процедур и функций над строками и операций...

Упорядочить строки матрицы в соответствии с ростом доли цифр
Добрый день, есть задача &quot;Дана символьная матрица. Упорядочить строки матрицы в соответствии с...


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

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

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