Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Шифрование

57K
21 июня 2010 года
n-andriy
5 / / 21.06.2010
Ребята, помогите пожалуйста! Задается последовательность 1 и 0. Шифрование: когда встречается 1 дублировать ее три раза. Дешифровка: если подряд встречаются три единицы - заменять одной. Не могу понять, почему не работает шифрование правильно у меня и помогите дописать дешифрование!

uses crt;
var s:string;
a:array[1..20] of integer;
i,count:byte;

begin
clrscr;
writeln('Vvedite posledovatelnost:');
readln(s);
count:=0;
for i:=1 to length(s) do
begin
if s = '1' then
begin
a[count+1]:=1;
a[count+2]:=1;
a[count+3]:=1;
count:=i+3;
end
else
begin
a[count+1]:=0;
count:=count+1;
end;
end;

writeln('Zashifrovannaya posledovatelnost:');
writeln('count = ',count);
for i:=1 to count do
write(a);
writeln;
readln;
end.
14
21 июня 2010 года
Phodopus
3.3K / / 19.06.2008
Пример неправильной работы приводите сразу
297
21 июня 2010 года
koodeer
1.2K / / 02.05.2009
Если не ошибаюсь, вместо
 
Код:
count:=i+3;

надо
 
Код:
count:=count+3;
274
21 июня 2010 года
Lone Wolf
1.3K / / 26.11.2006
Цитата: koodeer
Если не ошибаюсь, вместо
 
Код:
count:=i+3;

надо
 
Код:
count:=count+3;



ага. а так вроде все правильно. Я про алгоритм. синтаксис паскаля уже не помню

57K
22 июня 2010 года
n-andriy
5 / / 21.06.2010
спс всем. Задача уже решена!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог