Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 1
Регистрация: 18.02.2012
Сообщений: 128
1

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

11.03.2012, 13:11. Показов 1380. Ответов 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
uses crt;
const sg:string='qwrtpsdfghjklzxcvbnm';
var S,slv: string;
    i,j,k,b,c:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
i:=1;
while i<=length(s) do
if (s[i]<>' ')and ((s[i-1]=' ')or(i=1)) then{если буква, а перед ней пробел, или она первая}
 begin
  k:=i;slv:=''; b:=0;
  while (s[k]<>' ')and(k<=length(s))do {пока не пробел и не конец строки}
   begin
    slv:=slv+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  for j:=1 to length(slv) do
  if pos(slv[j],sg)>0 then b:=b+1;{считаем в слове согласные}
  if pos(slv[j+1],sg)>0 then c:=c+1;
  writeln('В слове ',slv,' доля согласных=',b*100/length(slv):0:1,'%',c);
  i:=i+length(slv);{перепрыгиваем}
 end
else i:=i+1;
readln
{
 
}
end.
end.



{...} не могу написать правильное условие
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2012, 13:11
Ответы с готовыми решениями:

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

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

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

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

2
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.03.2012, 13:46 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
39
40
41
42
43
44
uses crt;
const sg:string='qwrtpsdfghjklzxcvbnm';
var s,slv: string;
    i,j,l,k:byte;
    a: array [1..255] of string;
    b: array [1..255] of real;
    buf: real;
begin
clrscr;
writeln('Введите строку:');
readln(s);
s:=s+' '; slv:='';
for i:=1 to length(s) do
    if s[i]<>' ' then slv:=slv+s[i] else
       if length(slv)>0 then
          begin
          inc(l);
          for j:=1 to length(slv) do
              if  pos(slv[j],sg)>0 then inc(k);
          a[l]:=slv;
          b[l]:=k*100/length(slv);
          writeln('Доля согласных в слове "',slv,'" составляет ',k*100/length(slv):0:2,' %');
          k:=0;
          slv:='';
          end;
k:=0;
while k<=l do
      begin
      for i:=1 to l-1 do
          if b[i]>b[i+1] then
             begin
             slv:=a[i];
             a[i]:=a[i+1];
             a[i+1]:=slv;
             buf:=b[i];
             b[i]:=b[i+1];
             b[i+1]:=buf;
             end;
      inc(k);
      end;
for i:=1 to l do
    write(a[i],' ');
readln;
end.
1
0 / 0 / 1
Регистрация: 18.02.2012
Сообщений: 128
12.03.2012, 17:51  [ТС] 3
спасибо большое)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2012, 17:51

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

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

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

Написать программу обработки символьных данных и для каждого слова заданного предложения указать долю согласных (Работа с текстовыми файлами)
Здравствуйте! Извините, что еще раз обращаюсь! Может кто помочь с очередной лабораторной? Вот...

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

Для каждого слова заданного предложения указать долю согласных
Для каждого слова заданного предложения указать долю согласных program zadacha; var S: string;...


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

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

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