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

Дан произвольный текст. Зашифровать этот текст, расположив в нем все буквы в порядке возрастания их кодов

13.11.2013, 17:49. Показов 1246. Ответов 7
Метки нет (Все метки)

дан произвольный текст. зашифровать этот текст, расположив в нем все буквы в порядке возрастания их кодов
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2013, 17:49
Ответы с готовыми решениями:

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

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

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

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

__________________
7
Супер-модератор
5547 / 2579 / 1294
Регистрация: 04.03.2013
Сообщений: 5,536
Записей в блоге: 1
13.11.2013, 17:54 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  s : string;
  i, j : byte;
  c : char;
begin
  write('строка текста: ');
  readln(s);
  for i := 1 to length(s) do
    for j := length(s) downto i do
      if ord(s[i]) >= ord(s[jqwerq]) then
      begin
        c := s[i];
        s[i] := s[j];
        s[j] := c
      end;
  writeln('зашифрованный текст: ', s);
  readln
end.
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
13.11.2013, 17:55 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var Ch : Char;
...
For i:=1 to Length(St)-1 do
  For j:=i+1 to Length(St) do
    If St[j]<St[i] then
    Begin
      Ch:=St[i];
      St[i]:=St[j];
      St[j]:=Ch;
    End;
...
0
Супер-модератор
5547 / 2579 / 1294
Регистрация: 04.03.2013
Сообщений: 5,536
Записей в блоге: 1
13.11.2013, 18:30 4
Вован22, извиняюсь накосячил, в 10 строке следует считать так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  s : string;
  i, j : byte;
  c : char;
begin
  write('строка текста: ');
  readln(s);
  for i := 1 to length(s) do
    for j := length(s) downto i do
      if ord(s[i]) >= ord(s[j]) then
      begin
        c := s[i];
        s[i] := s[j];
        s[j] := c
      end;
  writeln('зашифрованный текст: ', s);
  readln
end.
0
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 37
14.11.2013, 09:52  [ТС] 5
сделай еще алгоритм
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
14.11.2013, 10:08 6
Цитата Сообщение от Вован22 Посмотреть сообщение
сделай еще алгоритм
Так точно, сэр! Есть, сэр!

Алгоритм:
1. Вводим строку или каким либо другим способом получаем еe.
2. Проходим посимвольно всю строку, применяя широкоизвестный алгоритм пузырьковой сортировки массивов, а т.к. в TP строковый тип представляет собой практически тот же массив, то позволительно и адресно обращаться к элементам строки.
3. Выводим полученную строку на экран.
0
Супер-модератор
5547 / 2579 / 1294
Регистрация: 04.03.2013
Сообщений: 5,536
Записей в блоге: 1
14.11.2013, 10:47 7
Кстати необязательно в условии сортировки использовать ord, так как сравнение двух символьных величин и так идет в области их кодов ASCII, то есть можно написать 10 строку так:
Pascal
1
if s[i] >= s[j] then
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
14.11.2013, 10:56 8
Цитата Сообщение от ildwine Посмотреть сообщение
Кстати необязательно в условии сортировки использовать ord, так как сравнение двух символьных величин и так идет в области их кодов ASCII, то есть можно написать 10 строку так:
Pascal
1
if s[i] >= s[j] then
Я в своем варианте именно так и написал.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2013, 10:56

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

Множества.Дан текст, за котоpым следует точка. В алфавитном поpядке напечатать (по pазу) все стpочные pусские гласные буквы , входящие в этот текст не
Доброго времени суток..помогите пожалуйста решить задачку по множествам : Дан текст, за котоpым...


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

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

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