Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Программа со строками (http://www.tehnari.ru/f41/t43788/)

Olga) 23.12.2010 23:57

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

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

MrSTEP 25.12.2010 00:13

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

Vladimir_S 26.12.2010 11:41

Цитата:

Сообщение от Olga) (Сообщение 433885)
Помогите пожалуйста, зачет скоро сдавать
Программа на Паскале:

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

Цитата:

Сообщение от MrSTEP (Сообщение 434241)
В чем трудность решения столь простой задачи?

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

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 26.12.2010 20:16

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

Vladimir_S 26.12.2010 20:21

Цитата:

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

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

MrSTEP 26.12.2010 20:28

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

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


Часовой пояс GMT +4, время: 14:10.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.