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

@Катюня_ · Регистрация: 24.01.2012

Студворк — интернет-сервис помощи студентам

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

Pascal

1 2	buf:=ord(s[i])+3; s[i]:=chr(buf);

@КонецСвета · 01.03.2012, 18:45

грубовато, но... так подойдет?

Pascal

uses crt;
var s,sl,sn: string;
    i,j: byte;
    p: set of char;
begin
write('s=');
readln(s);
s:=s+' ';
p:=[' ',',','.',';',':','-','!','?'];
sl:=''; sn:='';
for i:=1 to length(s) do
    if not (s[i] in p) then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if length(sl)=3 then
             for j:=1 to length(sl) do
                 sl[j]:=chr(ord(sl[j])+3);
          sn:=sn+sl+' ';
          sl:='';
          end;
write('s=',sn);
end.

@Катюня_ · 01.03.2012, 18:49 **[ТС]**

Мда, думаю для школьной программы это и впрямь грубовато... Не совсем понятны некоторые моменты (sl, sn) p:=[' ',',','.',';',':','-','!','?']; Но, спасибо, буду додумывать.

@КонецСвета · 01.03.2012, 21:11

посмотри, так подойдет?

Pascal

uses crt;
var s,sl: string;
    i,j: byte;
 
begin
write('s=');
readln(s);
s:=' '+s+' ';
for i:=1 to length(s)-5 do
    if ((s[i]=' ') and (s[i+4]=' ')) and
       ((s[i+1]<>' ') and (s[i+2]<>' ') and (s[i+3]<>' ')) then
       begin
       s[i+1]:=chr(ord(s[i+1])+3);
       s[i+2]:=chr(ord(s[i+2])+3);
       s[i+3]:=chr(ord(s[i+3])+3);
       end;
write('s=',s);
end.

впрочем, в предыдущем можешь убрать p:=[' ',',','.',';',':','-','!','?'], заменить if not (s[i] in p) на if s[i]<>' ' - это просто попытка учесть все возможные знаки препинания в строке...

Добавлено через 8 минут
пс! sl и j можно из переменных убрать - остатки предыдущей программы =)

@Катюня_ 0 / 0 / 1 Регистрация: 24.01.2012 Сообщений: 14
	01.03.2012, 18:49 [ТС]	3
	Мда, думаю для школьной программы это и впрямь грубовато... Не совсем понятны некоторые моменты (sl, sn) p:=[' ',',','.',';',':','-','!','?']; Но, спасибо, буду додумывать. 0

Опции темы