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

Зашифровать (и расшифровать) слово, заменив букву её номером в алфавите.

04.03.2013, 21:40. Показов 2938. Ответов 1
Метки нет (Все метки)

1.Зашифровать (и расшифровать) слово, заменив букву её номером в алфавите.

Буду очень благодарна!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.03.2013, 21:40
Ответы с готовыми решениями:

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

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

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

Ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на букву «ю»
Есть задание - нужно ввести слово и образовать новое слово, заменив в нем 3-ю букву от конца на...

1
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 978
04.03.2013, 22:04 2
Лучший ответ Сообщение было отмечено Anastasia16 как решение

Решение

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
  Type Codes=array[0..256] of integer;
Procedure Shifr(S:string;var Code:Codes;var N:integer);
var i:integer;
begin
n:=length(s);
for i:=1 to n do
begin
 code[i]:=ord(s[i]);
 write(code[i]);
end;
writeln;
end;
 
procedure Deshifr(Code:Codes;n:Integer;var s:string);
var i:integer;
begin
s:='';
for i:=1 to n do
s:=s+chr(code[i]);
end;
var s,I:string;
    Code:Codes;
    N:integer;
begin
readln(s);
Shifr(s,code,n);;
Deshifr(Code,n,i);
writeln(i);
readln;
end.
Добавлено через 15 секунд
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
  Type Codes=array[0..256] of integer;
Procedure Shifr(S:string;var Code:Codes;var N:integer);
var i:integer;
begin
n:=length(s);
for i:=1 to n do
begin
 code[i]:=ord(s[i]);
 write(code[i]);
end;
writeln;
end;
 
procedure Deshifr(Code:Codes;n:Integer;var s:string);
var i:integer;
begin
s:='';
for i:=1 to n do
s:=s+chr(code[i]);
end;
var s,I:string;
    Code:Codes;
    N:integer;
begin
readln(s);
Shifr(s,code,n);;
Deshifr(Code,n,i);
writeln(i);
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2013, 22:04

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

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

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

В тексте каждую букву заменить ее номером в алфавите
В тексте каждую букву заменить ее номером в алфавите. Текст вводится с клавиатуры.


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

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

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