Вопрос по информатике:
Организовать процессы шифрования и дешифровки записью семёрок символов текста в обратном порядке. Если длина сообщения не кратна семи, то сообщение перед шифрованием дополнить словом «корвет» или некоторой его левой частью до получения длины, кратной семи.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.09.2015 23:37
- Информатика
- remove_red_eye 3164
- thumb_up 30
Ответы и объяснения 1
Var
i,j,n:integer;
s,a,t:string;
begin
write('Введи текст: ');
readln(s);
n:=length(s);
i:=n mod 7;
if i>0 then
begin
i:=7-i;
s:=s+copy('корвет',1,i);
n:=n+i;
end;
for i:=1 to n do
begin
a:=a+s[i];
if i mod 7=0 then
begin
for j:= 7 downto 1 do
t:=t+a[j];
a:='';
end
end;
writeln(t)
end.
Можно использовать специальную функция переворота строки. Будет чуть короче
var
i,j,n:integer;
s,a,t:string;
begin
write('Введи текст: ');
readln(s);
n:=length(s);
i:=n mod 7;
if i>0 then
begin
i:=7-i;
s:=s+copy('корвет',1,i);
n:=n+i;
end;
for i:=1 to n do
begin
a:=a+s[i];
if i mod 7=0 then
begin
t:=t+ReverseString(a);
a:='';
end
end;
writeln(t)
end.
Sub z()
s = InputBox("Введи текст")
n = Len(s)
i = n Mod 7
If i > 0 Then
i = 7 - i
s = s & Mid("корвет", 1, i)
n = n + i
End If
For i = 1 To n
a = a + Mid(s, i, 1)
If i Mod 7 = 0 Then
t = t + StrReverse(a)
a = ""
End If
Next i
MsgBox (t)
End Sub
- 06.09.2015 04:18
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.