Аватар для Алён4uk
12 / 12 / 7
Регистрация: 03.04.2011
Сообщений: 75

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

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

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

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

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

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

1
 Аватар для Алён4uk
12 / 12 / 7
Регистрация: 03.04.2011
Сообщений: 75
21.05.2011, 23:00  [ТС]
Лучший ответ Сообщение было отмечено Алён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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.05.2011, 23:00
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino
Wired 08.07.2025
Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .
Руководство по структурам данных Python
AI_Generated 08.07.2025
Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru