Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.10.2016, 12:05   #1
ЗАП
Новичок
Джуниор
 
Регистрация: 04.10.2016
Сообщений: 3
По умолчанию Декодирование

Декодирование путем повторения символов. вводится m-нечетное число, задающее кратность повторения, а также последовательность двоичных символов, длина которой кратна m. если кратность нарушена, то последние символы последовательности игнорируются. в каждой комбинации из m символов путем сравнения числа нулей с числом единиц определяется результат декодирования (ноль или единица), который помещается в результирующую последовательность, выводимую на экран по окончании декодирования всей входной последовательности символов.
Есть программа обратная данной кодирование, а нужно декодирование
Код:
Var
n,q,z,i,m,x:integer;
a : array [1..100] of string; 
c:char;
 
begin
writeln('Введите m');
readln(m);
i:=1;
writeln('Введите последовательность двоичных чисел');
repeat
read(c);
a[i]:=c; inc(i);
until c=#13;
a[i-1]:=' ';
 
if m mod 2 = 0 then
writeln('Ошибка') else begin 
for n:=1 to i do begin q:=0;
while (q<>m)  do 
if (q<>m) then begin inc(q); write(a[n]); end;  
end;end;
writeln;
end.

Последний раз редактировалось Аватар; 06.10.2016 в 12:52.
ЗАП вне форума Ответить с цитированием
Старый 06.10.2016, 12:43   #2
WorldMaster
Старожил
 
Аватар для WorldMaster
 
Регистрация: 25.08.2011
Сообщений: 2,841
По умолчанию

Значит нужно писать программу декодирования.
И код неплохо бы оформлять по красивому.
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два.
WorldMaster вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Декодирование O m n i s Помощь студентам 10 16.06.2016 10:54
Декодирование на паскаль virus77724 Помощь студентам 3 12.12.2015 11:03
Декодирование кода Gefo PHP 5 26.02.2013 20:16
Декодирование Jpeg AFA Win Api 0 19.04.2011 03:21