1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Задача на Строки., Удаляет 2 символа + печатает длину строки после удаления
Я в паскале 0 с половиной Вот тут у меня задачка такая... многое чо перерыл... ненашёл толком ответа...
Вот задача: Программа вводит строку и удаляет два символа, которые стоят за первым вхождением Вопросительного знака (!) в строке, а так же печатает текущую длину строки после удаления.
Спасите, кто может!
p.s. а где можна научиться писать проги на паскале с полного ноля для дибила так сказать? =) А то я в паскале нифига ничо не понимаю, учили, но блин не доходит... книжки, веб сайты - ничем толком не помогли... нужны типа курсов... вот посоветуйте на этот счёт что-нибудь.
Это что-то новенькое.. Ноль бывает "без палочки" .
Цитата(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. а где можна научиться писать проги на паскале с полного ноля для дибила так сказать? =) А то я в паскале нифига ничо не понимаю, учили, но блин не доходит... книжки, веб сайты - ничем толком не помогли... нужны типа курсов... вот посоветуйте на этот счёт что-нибудь.
Рекомендую тебе этот вопрос вынести отдельно, но только в этом разделе ему не место. Может, в разделе Свободное общение.. А может, в Ссылках - только извинись и оговори, что это тоже своего рода ссылка . Ответ будет полезен не только тебе (если будет ). Но самый естественный ответ - ходить на лекции и семинары в своем вузе, доставать препа на семинарах, насколько возможно. Где ты учишься?
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
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, а если знака нет, то будут удалены первые 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)); {выводит число символов в исправленной строке}
Извиняюсь за ошибку..
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
НУ и так всё супер! =) И тот вариант тож подошёл ибо я всегда воскл. знак ввожу, а лаборанты видят, всё работает и отстают =))) p.s. да, второй вариант мне тож нравится. p.s.s. а никто блок-схему к этой задачке не нарисует?
Правила форума
Прочтите прежде чем задавать вопрос!
Вот тут у меня задачка такая... многое чо перерыл... ненашёл толком ответа... 
(
