Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.12.2013
Сообщений: 6

Изобразите графически алгоритм и напишите программу, распечатывающую все буквы этого предложения в алфавитном порядке

13.12.2013, 16:33. Показов 1345. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пожалуйста.
С клавиатуры вводится предложение. Изобразите графически алгоритм и напишите программу, распечатывающую все буквы этого
предложения в алфавитном порядке.=\
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.12.2013, 16:33
Ответы с готовыми решениями:

Распечатать все буквы предложения в алфавитном порядке
2. С клавиатуры вводится предложение. Изобразите графически алгоритм и напишите программу, распечатывающую все буквы этого предложения в...

Составьте программу, распечатывающую слова предложения в порядке, обратном алфавитному
3*. Составьте программу, распечатывающую слова предложения в порядке, обратном алфавитному.

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

5
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
13.12.2013, 17:02
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Const
  bukv : Set Of 'A'..'я' = ['A'..'z','А'..'п','р'..'я'];
Var
  Ch : Char;
  S : String;
  i,j : Byte;
Begin
  Readln(S);
  For i:=1 to Length(S)-1 do
    For j:=i+1 to Length(S) do
    If s[j]<s[i] then
    Begin
      Ch:=s[j];
      s[j]:=s[i];
      s[i]:=Ch;
    End;
  For i:=1 to Length(S) do
   If S[i] in bukv then Write(S[i]);
End.
Добавлено через 10 минут
Небольшая поправка:
Строка 2:
Pascal
1
bukv : Set Of 'A'..'я' = ['A'..'Z','a'..'z','А'..'п','р'..'я'];
1
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
13.12.2013, 19:26
APALoff, а почему уж тогда не написать так:
Pascal
1
bukv : Set Of char = ['A'..'Z','a'..'z','А'..'п','р'..'я'];
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
13.12.2013, 21:20
Да без разницы - результат тот же, я просто взял эту строку из какого-то примера.
0
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
13.12.2013, 21:22
Ну так, но я сидел и втыкал, пока дошло, что буква A - латинская... ('A'..'я' = )
0
0 / 0 / 0
Регистрация: 13.12.2013
Сообщений: 6
14.12.2013, 11:47  [ТС]
Большое спасибо за помощь, а можно ещё графически алгоритм?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.12.2013, 11:47
Помогаю со студенческими работами здесь

Пусть задано множество А, напечатать в алфавитном порядке все согласные буквы этого множества, входящих в множество letters=[‘a’..’я’].
Решите Пожалуйста !!!

Функция составляющая буквы предложения в алфавитном порядке
Доброго времени суток. у меня один маленький вопрос, мне нужна функция состовляющая буквы в массиве в алфавитном порядке. на пример, я...

Вывести все слова предложения в алфавитном порядке
Слова в тексте разделены одним или несколькими пробелами.написать программу, выводящую все слова в алфавитном порядке. Заранее спасибо.

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

Найти все предложения, в которых слова расположены в алфавитном порядке
Всем привет. Нужна помощь: В текстовом файле содержится некоторый текст. Необходимо считать данный текст из файла input.txt и выполнить...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru