12 / 12 / 7
Регистрация: 03.04.2011
Сообщений: 75
1

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

15.05.2011, 21:42. Показов 1342. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана строка, состоящая из слов. Выдать слова, в которых буквы уже упорядочены по алфавиту.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.05.2011, 21:42
Ответы с готовыми решениями:

Дана строка, состоящая из слов, оставить только последнее вхождение каждого слова
Дана строка, состоящая из слов оставить только последнее вхождение каждого слова

Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных символов, которые описываются во множестве [‘-’, ‘*’, ‘/
Дана строка текста, состоящая из слов. Слова отделяются друг от друга одним из специальных...

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

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

1
12 / 12 / 7
Регистрация: 03.04.2011
Сообщений: 75
21.05.2011, 23:00  [ТС] 2
Лучший ответ Сообщение было отмечено Алён4uk как решение

Решение

В чем ошибка?
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
45
46
47
48
49
50
51
var a,b:string;
    i,ip,j,n,k:integer;
    f:boolean;
{ip меньше i на 1-оба бегунок по массиву a;
j-для записи в массив b; n-длина строки; k-кол-во букв в слове}
begin
  writeln ('Введите строку');
  readln(a);
  n:=length(a);
  ip:=1; i:=2; j:=1; k:=0;
  f:=false;
  while i<=n do
  begin
    if (a[i]<>' ') then
     begin
       if UpperCase(a[ip])<UpperCase(a[i]) then
       begin
         b[j]:=a[ip];
         j:=j+1;
         k:=k+1;
         ip:=i;
         i:=i+1; 
       end
       else 
       if UpperCase(a[ip])>UpperCase(a[i]) then
       begin
         ip:=i;
         i:=i+1;
       end;
     end
    else
    if a[i]=' ' then
    begin
      if k<>0 then
      begin
        b[j]:=a[ip];
        for j:=1 to k+1 do
        begin
          write (b[j]);
          f:=true;
        end;
      end;
        ip:=i+1;
        i:=i+2;
        j:=1;
        k:=0;
    end;
  end;
  if not f then
    writeln ('таких слов нет!');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2011, 23:00
Помогаю со студенческими работами здесь

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

Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D
Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D. Заранее...

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

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


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

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

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