Программа со строками

[Olga)]

Программа со строками

Помогите пожалуйста, зачет скоро сдавать
Программа на Паскале:

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

 

[MrSTEP]

В чем трудность решения столь простой задачи?

 

[Vladimir_S]

Помогите пожалуйста, зачет скоро сдавать
Программа на Паскале:

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

В чем трудность решения столь простой задачи?

Ладно. С учетом того, что есть кое-какие тонкости.

VAR
 S,S1:String;
 i:Byte;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 S1:=S;
 For i:=1 to Length(S) do
  begin
   If S[i]='0' then S1[i]:='1';
   If S[i]='1' then S1[i]:='0';
  end;
 S:=S1;
 WriteLn('Modified string:');
 WriteLn(S);
 ReadLn;
END.

 

[MrSTEP]

Единственная тонкость в том, что надо писать в отдельную строку, как я понял? В противном случае либо нули, либо единицы останутся прежними при данной структуре ветвления?

 

[Vladimir_S]

Единственная тонкость в том, что надо писать в отдельную строку, как я понял? В противном случае либо нули, либо единицы останутся прежними при данной структуре ветвления?

Леша, а черт ее знает - есть с присвоением значений элементам строки какая-то тонкость. Сам до сих пор не могу толком понять, когда это проходит, а когда нет. Вот в данном случае всё проверено - работает.

 

[MrSTEP]

Слава богу, с этой тонкостью не сталкивался, все работало в этом месте без проблем. Вспомнил один глюк, который был в паскале, сейчас в отдельной теме напишу.

p.s. Вот тема: http://www.tehnari.ru/f43/t43891/