0 / 0 / 1
Регистрация: 24.01.2012
Сообщений: 14
1

Зашифровать все трехбуквенные слова, заменив все символы на символы с кодом, большим на три единицы

27.03.2012, 17:39. Показов 1283. Ответов 5
Метки нет (Все метки)

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

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
var
i: integer;
s,st,v: string;
len: integer;    
begin
  writeln('Введите слово');
  readln(s);
  i:=1;
  while i<=length(s)do begin
  st:='';
  while (v[i]<>'') and (v[i]<>' ')do begin
  st:=st+v[i];
  i:=i+1
  end;
  if length(st)=3 then begin
 len:= length(s); 
 end;
  for i:=1 to len do
    s[i] := chr(ord(s[i])+3);
  writeln('Зашифрованная строка ', s);
   for i:=1 to len do
    s[i] := chr(ord(s[i])-3);
  writeln('Исходная строка ', s);
 end;
 end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.03.2012, 17:39
Ответы с готовыми решениями:

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

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

Зашифровать введенную с клавиатуры строку заменой исходных символов на символы с кодом, большим на три единицы. Провести дешифровку.
помогите мне плизз я дуб....=( :cry: Зашифровать введенную с клавиатуры строку заменой исходных...

Скопировать в новый текстовый файл все символы исходного, заменив все нули на единицы, а единицы на нули
Дан текстовый файл f. Переписать в файл g все компоненты файла f с заменой символа 0 на символ 1 и...

5
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.03.2012, 17:58 2
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
uses crt;
var s:string;
    i,j,k:integer;
    len: integer;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
i:=1;
while i<=length(s)do
if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  k:=0;
  j:=i;
  while (j<=length(s)) and (s[j]<>' ')do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k=3 then
  for j:=i to i+2 do
  s[j]:=chr(ord(s[j])+3);
  i:=i+k;
 end
else i:=i+1;
writeln('Зашифрованная строка:');
write(s);
end.
1
0 / 0 / 1
Регистрация: 24.01.2012
Сообщений: 14
27.03.2012, 18:03  [ТС] 3
Спасибо, но эта программа шифрует все слова, а мне нужно только трёхбуквенные =(
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.03.2012, 18:09 4
Катюня_, Нет, только трехбуквенные
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.03.2012, 18:12 5
Вот, смотрите сами
Миниатюры
Зашифровать все трехбуквенные слова, заменив все символы на символы с кодом,  большим на три единицы  
0
0 / 0 / 1
Регистрация: 24.01.2012
Сообщений: 14
27.03.2012, 18:12  [ТС] 6
ага, спасибо... это я просто что-то тупанула...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.03.2012, 18:12
Помогаю со студенческими работами здесь

Зашифровать все трехбуквенные слова
Проверьте пожалуйста, правильно ли решено? {Зашифровать все трехбуквенные слова, заменив все...

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

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

Перезаписать все строки из исходного файла в новый заменив все символы 'м' на 'М'
Задание элементарное: перезаписать все строки из одного файла в новый заменив все &quot;м&quot; на &quot;M&quot;. Я...


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

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

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