Задача на Строки., Удаляет 2 символа + печатает длину строки после удаления Опции

[Myasnik]

Всем привет! =)

Я в паскале 0 с половиной Вот тут у меня задачка такая... многое чо перерыл... ненашёл толком ответа...

Вот задача: Программа вводит строку и удаляет два символа, которые стоят за первым вхождением Вопросительного знака (!) в строке, а так же печатает текущую длину строки после удаления.

Спасите, кто может!

p.s. а где можна научиться писать проги на паскале с полного ноля для дибила так сказать? =) А то я в паскале нифига ничо не понимаю, учили, но блин не доходит... книжки, веб сайты - ничем толком не помогли... нужны типа курсов... вот посоветуйте на этот счёт что-нибудь.

Ещё раз спасибо!

[Lapp]

Я в паскале 0 с половиной

Это что-то новенькое.. Ноль бывает "без палочки" .

Вот задача: Программа вводит строку и удаляет два символа, которые стоят за первым вхождением Вопросительного знака (!) в строке, а так же печатает текущую длину строки после удаления.

Ты все же определись, что тебе нужно: вопросительный (?) или восклицатетльный (!).. Далее пишу для восклицательного. И не забудь определить строковую переменную s.

  Write('Type in a line:    ');ReadLn(s);   {вводит строку}
  Delete(s,Pos('!',s)+1,2);   {удаляет два символа после "!", если он есть}
  WriteLn('Corrected line is: ',s);   {выводит исправленную строку}
  WriteLn('total characters:  ',Length(s));   {выводит число символов в исправленной строке}

p.s. а где можна научиться писать проги на паскале с полного ноля для дибила так сказать? =) А то я в паскале нифига ничо не понимаю, учили, но блин не доходит... книжки, веб сайты - ничем толком не помогли... нужны типа курсов... вот посоветуйте на этот счёт что-нибудь.

Рекомендую тебе этот вопрос вынести отдельно, но только в этом разделе ему не место. Может, в разделе Свободное общение.. А может, в Ссылках - только извинись и оговори, что это тоже своего рода ссылка . Ответ будет полезен не только тебе (если будет ).
Но самый естественный ответ - ходить на лекции и семинары в своем вузе, доставать препа на семинарах, насколько возможно. Где ты учишься?

[Myasnik]

Но самый естественный ответ - ходить на лекции и семинары в своем вузе, доставать препа на семинарах, насколько возможно. Где ты учишься?

Московский Технический Колледж. Препод слишком крут. Бесполезно доставать и хрен поймаешь его.

[volvo]

  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]

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]

НУ и так всё супер! =) И тот вариант тож подошёл ибо я всегда воскл. знак ввожу, а лаборанты видят, всё работает и отстают =)))
p.s. да, второй вариант мне тож нравится.
p.s.s. а никто блок-схему к этой задачке не нарисует?

[klem4]

Программа построение блок-схем.

[Myasnik]

Программа построение блок-схем.

наиогромнейшее спасибо!!!
p.s. ближе к выходным обязательно уделю ночку, чтоб проштудировать Ваш форум