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

Расшифровка текста, в котором все слова записаны наоборот

03.12.2016, 12:56. Показов 2907. Ответов 1
Метки нет (Все метки)

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

Напечатать все элементы файла, в котором записаны отдельные слова
Напечатать все элементы файла, в котором записаны отдельные слова. Известно, что в существующем файле записаны 12 слов.

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

Получить новый файл, в котором все слова во всех предложениях исходного файла, записаны в обратном порядке
1)На языке программирования Pascal реализовать процедуры работы со стеком на последовательном распределении памяти: - Создание пустого...

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
03.12.2016, 13:32
Лучший ответ Сообщение было отмечено Olga_65_kz как решение

Решение

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
var s,s1,s2:string;
    i,j:byte;
    c:char;
begin
writeln('Введите зашифрованную строку из слов, разделенных пробелами');
readln(s);
s:=' '+s+' ';//добавим пробел в начало и в конец для удобства
s2:='';
i:=2;
while i<=length(s) do
if(s[i]<>' ')and(s[i-1]=' ')then
 begin
  s1:=''; //новое слово
  j:=i;
  while(j<=length(s))and(s[j]<>' ') do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  for j:=1 to length(s1) div 2 do
   begin
    c:=s1[j];
    s1[j]:=s1[length(s1)-j+1];
    s1[length(s1)-j+1]:=c;
   end;
 // writeln(s1);
  s2:=s2+s1;
  i:=i+length(s1);
 end
else
 begin
  s2:=s2+s[i];
  i:=i+1;
 end;
s2:=trim(s2);
write(s2)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
03.12.2016, 13:32
Помогаю со студенческими работами здесь

Получить новую матрицу, слова в которой записаны наоборот
Выручайте! Программа вроде написана ,но при добавлении процедур не работает. Имеется матрица,состоящая из слов . Получить новую...

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

Удалить из бинарного файла, в котором записаны целые числа все четные элементы
Удалить из бинарного файла, в котором записаны целые числа все четные элементы

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

Слова текста из малых латинских букв записаны не менее чем через один пробел
Слова текста из малых латинских букв записаны не менее чем через один пробел; текст оканчивается точкой. Без использования конструкции...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru