Надо Зашифровать введенную английскую фразу.

@Agon · Регистрация: 17.02.2012

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

нужно сделать такую программу

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

@Puporev · 21.02.2012, 10:53

Pascal

uses crt;
var s:string;
     c:char;
     i:byte;
begin
clrscr;
writeln('Введите фразу строчными латинскими буквами, окончание ввода Enter');
s:='';
repeat
c:=readkey;
if c in ['a'..'z'] then
 begin
  write(c);
  s:=s+c;
 end;
if c=#13 then writeln;
until c=#13;
for i:=1 to length(s) do
if s[i]='z' then s[i]:='a'
else s[i]:=chr(ord(s[i])+1);
write(s);
readln
end.

@Agon · 25.02.2012, 12:20 **[ТС]**

дайте плязя паскаль код символа ascii

@Puporev · 25.02.2012, 12:23

Иди на форум для дебилов, размазывающих сопли.

@TAVulator · 25.02.2012, 12:23

Сообщение от Agon

дайте плязя паскаль код символа ascii

что??

@Agon · 25.02.2012, 12:24 **[ТС]**

срочно нужны эти коды

@Puporev · 25.02.2012, 12:26

Смотри здесь.
Написать функцию, которая возвращает N правых символов в виде строки

@Agon 0 / 0 / 0 Регистрация: 17.02.2012 Сообщений: 17
		1
	Надо Зашифровать введенную английскую фразу. 21.02.2012, 10:21. Показов 1041. Ответов 6 Метки нет (Все метки) нужно сделать такую программу Зашифровать введенную английскую фразу, заменяя каждую букву на следующую за ней по алфавиту, а букву "z" заменять на "а". Возможность замены основана на том, что в кодировочной таблице английские буквы идут подряд. 0

@Agon 0 / 0 / 0 Регистрация: 17.02.2012 Сообщений: 17
	25.02.2012, 12:20 [ТС]	3
	дайте плязя паскаль код символа ascii 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.02.2012, 12:23	4
	Иди на форум для дебилов, размазывающих сопли. 2

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	25.02.2012, 12:23	5
	Сообщение от Agon дайте плязя паскаль код символа ascii что?? 0

@Agon 0 / 0 / 0 Регистрация: 17.02.2012 Сообщений: 17
	25.02.2012, 12:24 [ТС]	6
	срочно нужны эти коды 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	25.02.2012, 12:26	7
	Смотри здесь. Написать функцию, которая возвращает N правых символов в виде строки 0