задачка на последовательности |
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. Ну чего-то программа у меня не идёт,выдаёт ошибку,проверьте пожалуйста!!! Заранее огромное спассибо! |
volvo |
1.06.2007 13:09
Сообщение
#2
|
Гость |
Кавычки (двойные) замени на апострофы (одинарные)...
И еще: var Сообщение отредактировано: volvo - 1.06.2007 13:11 |
Ozzя |
1.06.2007 13:10
Сообщение
#3
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
begin не забыла?
|
spektr |
1.06.2007 13:45
Сообщение
#4
|
Пилотус Группа: Пользователи Сообщений: 101 Пол: Женский Реальное имя: Настасья Репутация: 2 |
В условии задачи сказано,что для текста,заданном более одной строкой... Какое условие ещё добавить надо?Не пойму...
|
Ozzя |
1.06.2007 13:53
Сообщение
#5
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Более чем одна строка?
Массив? Файл? |
spektr |
1.06.2007 13:56
Сообщение
#6
|
Пилотус Группа: Пользователи Сообщений: 101 Пол: Женский Реальное имя: Настасья Репутация: 2 |
Наверное файл...
|
Ozzя |
1.06.2007 14:01
Сообщение
#7
|
Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Код var S:string; A:byte; f:text; begin Writeln; assign(f,'твой_текст.txt'); reset(f); while not eof(f) do begin Readln(f,S); While Pos ('Подин',S)<>0 do begin A:=Pos('Подин',S); Delete (S,A,5); Insert ('Подын',S,A); End; Writeln(S); end; close(f); end. Сообщение отредактировано: Ozzя - 1.06.2007 14:02 |
Текстовая версия | 27.04.2024 21:44 |