Что отобразит фрагмент этой программы, Pascal |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Что отобразит фрагмент этой программы, Pascal |
Vino-grad |
Сообщение
#1
|
Группа: Пользователи Сообщений: 5 Пол: Женский Реальное имя: Юлия Репутация: 0 |
S := 'ABCDEF';
T := 'rinda'; Insert(T, S, 3); T := Copy(T, 3,1); Write (S, ' ', T); и еще один фрагментик другой программы: Var a,b,d:string; c: integer; Begin a:= 'pascal'; b:='stunda'; c:=pos(b,a); d:=copy(b,3,2); insert(d,a,1); delete(b,1,4) write(a,b,c,d); end. |
Unconnected |
Сообщение
#2
|
mea culpa Группа: Пользователи Сообщений: 1 372 Пол: Мужской Реальное имя: Николай Репутация: 24 |
Возьми блокнот, сделай необходимые операции, и узнаешь
-------------------- "Знаешь, стыдно - когда не видно, что услышал всё, что слушал.."
|
volvo |
Сообщение
#3
|
Гость |
Цитата Возьми блокнот Ну, возьми, попробуй сделать... Ты сам-то знаешь? Не блокнот надо брать, а учебник Паскаля. |
Vino-grad |
Сообщение
#4
|
Группа: Пользователи Сообщений: 5 Пол: Женский Реальное имя: Юлия Репутация: 0 |
Ну, возьми, попробуй сделать... Ты сам-то знаешь? Не блокнот надо брать, а учебник Паскаля. это как долг за прошлый курс у меня тяжется.. я хотябы должна написать тест, чтобы 4(проходной балл) по 10 бальной системе было.. там такой вопросик, дома вот разбираю... помогите плииз |
volvo |
Сообщение
#5
|
Гость |
Поможем... Только помочь - это не написать ответ, правда? Что делает процедура Insert и функция Copy - разобралась?
|
Vino-grad |
Сообщение
#6
|
Группа: Пользователи Сообщений: 5 Пол: Женский Реальное имя: Юлия Репутация: 0 |
|
volvo |
Сообщение
#7
|
Гость |
Ошиблась... Символы в строках нумеруются с единицы, а не с 0, поэтому перед последним Write-ом в строке T будет не буква d... Посмотри внимательнее...
По той же причине и чуть выше - тоже ошибка... Сообщение отредактировано: volvo - |
Текстовая версия | 14.06.2024 19:02 |