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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.02.2012, 14:34   #1
Dasha1610
Пользователь
 
Регистрация: 19.02.2012
Сообщений: 24
Восклицание Стеганография

Где ошибка?
почему несоответсиве символов??????????????

Код:
program co_dec;
uses crt;
var
fO, fI : text;
i, j, k : integer;
b: byte;
sI, sO, s: string;
begin
clrscr;
Assign(fI, 'CONT2.txt');
Assign(fO, 'POL2.txt');
WriteLn('vvedi stroky: '); Readln(sI);
Reset(fI);
Rewrite(fO);
for i:=1 to Length(sI) do begin
b:= ord(sI[i]);
for j:=1 to 8 do begin


while not eof (fI) do begin
 for k:=1 to length(s) do
Read(fI,s[k]);
if (b and 1)=1 and s[k]=' ' then begin
            s[k]:=s[k]+'_'; k:=k+1;   end;
writeln(fO,s);   end;


b:= b shr 1;
end;
end;
Close(fO);
Close(fI);
Writeln('smotri :)');
end.
Dasha1610 вне форума Ответить с цитированием
Старый 29.02.2012, 14:40   #2
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Цитата:
for k:=1 to length(s) do
прежде чем запускать данный цикл, задумайтесь, а чему у вас равно s

Цитата:
s[k]:=s[k]+'_';
и как можно переменной типа char присвоить значение типа string?
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Старый 29.02.2012, 14:57   #3
Dasha1610
Пользователь
 
Регистрация: 19.02.2012
Сообщений: 24
По умолчанию

Код:
program co_dec;
uses crt;
var
fO, fI : text;
i, j, k : integer;
b: byte;
sI, sO, s: string;
begin
clrscr;
Assign(fI, 'CONT2.txt');
Assign(fO, 'POL2.txt');
WriteLn('vvedi stroky: '); Readln(sI);
Reset(fI);
Rewrite(fO);
for i:=1 to Length(sI) do begin
b:= ord(sI[i]);
for j:=1 to 8 do begin
sO:='';

while not eof (fI) do begin
 for k:=1 to 100 do
Read(fI,s[k]);          sO:=s[k]+sO;
if ((b and 1)=1) and (s[k]=' ') then begin
            sO:=sO+'_';    end;
 write(fO,sO); end;


b:= b shr 1;
end;
end;
Close(fO);
Close(fI);
Writeln('smotri :)');
end.

а так что не правильно?
Dasha1610 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
стеганография. Dasha1610 Помощь студентам 3 28.02.2012 21:15
Стеганография Dasha1610 Помощь студентам 3 21.02.2012 19:30
Стеганография datMaster Помощь студентам 3 28.10.2011 09:06
Стеганография Solny6ko YasnoE Фриланс 9 17.01.2011 17:19
Стеганография v.dmitry Помощь студентам 3 26.04.2009 04:46