 задачка на последовательности |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| spektr |
  1.06.2007 13:05
Сообщение
#1
|
 Пилотус  Группа: Пользователи Сообщений: 101 Пол: Женский Реальное имя: Настасья Репутация:  2   |
Вот так звучит задача:В данном тексте,заданном более чем одной строкой,все последовательности "подин" заменить на "подын".
А вот решение: var S:string; A:byte; Writeln; Readln(S); While Pos ("Подин",S)<>0 do begin A:=Pos("Подин",S); Delete (S,A,5); Insert ("Подын",S,A); End; Writeln(S); end. Ну чего-то программа у меня не идёт,выдаёт ошибку,проверьте пожалуйста!!! Заранее огромное спассибо! |
   |
 
|
  |
Ответов
| Ozzя |
1.06.2007 13:53
Сообщение
#2
|
 Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Более чем одна строка?
Массив? Файл? |
|
|
|
| spektr |
1.06.2007 13:56
Сообщение
#3
|
|
Пилотус Группа: Пользователи Сообщений: 101 Пол: Женский Реальное имя: Настасья Репутация: 2 |
 Наверное файл... |
|
|
|
Сообщений в этой теме
spektr задачка на последовательности 1.06.2007 13:05
volvo Кавычки (двойные) замени на апострофы (одинарные).... 1.06.2007 13:09 Ozzя begin не забыла? 1.06.2007 13:10 spektr В условии задачи сказано,что для текста,заданном б... 1.06.2007 13:45
Ozzя
var
S:string;
A:byte;
f:text;
begin
... 1.06.2007 14:01 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 13.12.2025 13:11 |