 Задача на Строки., Удаляет 2 символа + печатает длину строки после удаления |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Myasnik |
  24.01.2006 3:00
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация:  -1   |
Всем привет! =)
 Я в паскале 0 с половиной  Вот тут у меня задачка такая... многое чо перерыл... ненашёл толком ответа... Вот задача: Программа вводит строку и удаляет два символа, которые стоят за первым вхождением Вопросительного знака (!) в строке, а так же печатает текущую длину строки после удаления. Спасите, кто может!  p.s. а где можна научиться писать проги на паскале с полного ноля для дибила так сказать? =) А то я в паскале нифига ничо не понимаю, учили, но блин не доходит... книжки, веб сайты - ничем толком не помогли... нужны типа курсов... вот посоветуйте на этот счёт что-нибудь. Ещё раз спасибо! |
   |
 
|
| Lapp |
24.01.2006 4:23
Сообщение
#2
|
 Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Цитата(Myasnik @ 24.01.2006 3:00)  Я в паскале 0 с половиной Это что-то новенькое.. Ноль бывает "без палочки" .Цитата(Myasnik @ 24.01.2006 3:00) Вот задача: Программа вводит строку и удаляет два символа, которые стоят за первым вхождением Вопросительного знака (!) в строке, а так же печатает текущую длину строки после удаления. Ты все же определись, что тебе нужно: вопросительный (?) или восклицатетльный (!).. Далее пишу для восклицательного. И не забудь определить строковую переменную s.
Write('Type in a line: ');ReadLn(s); {вводит строку}
Delete(s,Pos('!',s)+1,2); {удаляет два символа после "!", если он есть}
WriteLn('Corrected line is: ',s); {выводит исправленную строку}
WriteLn('total characters: ',Length(s)); {выводит число символов в исправленной строке}
Цитата(Myasnik @ 24.01.2006 3:00) p.s. а где можна научиться писать проги на паскале с полного ноля для дибила так сказать? =) А то я в паскале нифига ничо не понимаю, учили, но блин не доходит... книжки, веб сайты - ничем толком не помогли... нужны типа курсов... вот посоветуйте на этот счёт что-нибудь. Рекомендую тебе этот вопрос вынести отдельно, но только в этом разделе ему не место. Может, в разделе Свободное общение.. А может, в Ссылках - только извинись и оговори, что это тоже своего рода ссылка . Ответ будет полезен не только тебе (если будет ).Но самый естественный ответ - ходить на лекции и семинары в своем вузе, доставать препа на семинарах, насколько возможно. Где ты учишься? -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
| Myasnik |
24.01.2006 9:32
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
Цитата(lapp @ 24.01.2006 4:23) Но самый естественный ответ - ходить на лекции и семинары в своем вузе, доставать препа на семинарах, насколько возможно. Где ты учишься? Московский Технический Колледж. Препод слишком крут. Бесполезно доставать и хрен поймаешь его.  |
|
|
|
| volvo |
24.01.2006 9:43
Сообщение
#4
|
|
Гость |
Цитата(lapp @ 24.01.2006 3:23)
Write('Type in a line: ');ReadLn(s); {вводит строку}
Delete(s,Pos('!',s)+1,2); {удаляет два символа после "!", если он есть}
WriteLn('Corrected line is: ',s); {выводит исправленную строку}
WriteLn('total characters: ',Length(s)); {выводит число символов в исправленной строке}
lapp, а если знака нет, то будут удалены первые 2 символа... "Нам это надо?"(С) |
|
|
|
| Lapp |
24.01.2006 10:11
Сообщение
#5
|
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Цитата(volvo @ 24.01.2006 9:43) lapp, а если знака нет, то будут удалены первые 2 символа... "Нам это надо?"(С) Не, думаю, не надо  (
Write('Type in a line: ');ReadLn(s); {вводит строку}
i:=Pos('!',s); {находит "!"}
if i>0 then Delete(s,i+1,2); {удаляет два символа после "!", если он есть}
WriteLn('Corrected line is: ',s); {выводит исправленную строку}
WriteLn('total characters: ',Length(s)); {выводит число символов в исправленной строке}
Извиняюсь за ошибку.. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
| Myasnik |
24.01.2006 15:04
Сообщение
#6
|
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
НУ и так всё супер! =) И тот вариант тож подошёл ибо я всегда воскл. знак ввожу, а лаборанты видят, всё работает и отстают =)))
p.s. да, второй вариант мне тож нравится. p.s.s. а никто блок-схему к этой задачке не нарисует? |
|
|
|
| klem4 |
24.01.2006 15:24
Сообщение
#7
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Myasnik |
24.01.2006 22:28
Сообщение
#8
|
|
Новичок Группа: Пользователи Сообщений: 29 Пол: Мужской Реальное имя: Maxim Репутация: -1 |
Цитата(klem4 @ 24.01.2006 15:24) наиогромнейшее спасибо!!! p.s. ближе к выходным обязательно уделю ночку, чтоб проштудировать Ваш форум  |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 10:06 |