|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
23.12.2010, 23:57 | #1 (permalink) |
Новичок
Регистрация: 23.12.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программа со строками
Программа на Паскале: Составить программу, заменяющую в исходной строке символов все единицы нулями, а все нули единицами. Заранее большое спасибо ) |
23.12.2010, 23:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме уже кто то создавал подобные обсуждения Программа для ХР Помогите пожалуйста со строками в Pascal |
26.12.2010, 11:41 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
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. |
|
26.12.2010, 20:16 | #4 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Единственная тонкость в том, что надо писать в отдельную строку, как я понял? В противном случае либо нули, либо единицы останутся прежними при данной структуре ветвления?
|
26.12.2010, 20:21 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Леша, а черт ее знает - есть с присвоением значений элементам строки какая-то тонкость. Сам до сих пор не могу толком понять, когда это проходит, а когда нет. Вот в данном случае всё проверено - работает.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
26.12.2010, 20:28 | #6 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Слава богу, с этой тонкостью не сталкивался, все работало в этом месте без проблем. Вспомнил один глюк, который был в паскале, сейчас в отдельной теме напишу.
p.s. Вот тема: Паскаль: сравнение версий, глюки и т.п. Последний раз редактировалось MrSTEP; 26.12.2010 в 20:41 Причина: Добавил ссылку |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|