Разработать программу, которая для заданной строки s удаляет все символы x.
Айра
2.01.2009 19:22
Какие-нибудь мысли есть? С pos и delete знакома? )
Account
2.01.2009 19:32
Вот
uses crt; var s:string; i:byte; begin clrscr; readln(s); i:=1; while i<=length(s) do if s[i]='x' then delete(s,i,1) else i:=i+1; writeln(s); readkey; end.
Только это наскорую руку)))
Летняя
3.01.2009 14:51
Account, огромное спасибо!!!!!))))) Айра, просто я учусь на филологическом, и мозги у меня под другое заточены...хм
Lapp
3.01.2009 16:55
Цитата(Летняя @ 3.01.2009 10:51)
Айра, просто я учусь на филологическом, и мозги у меня под другое заточены...
Ты хочешь сказать, что не знакома и знакомиться не собираешься?.. Под что бы ни были заточены - либо скажи об этом в деканате и получи освобождение, либо уж постарайся перезаточить - иначе нечестно. Я не вижу такой уж большой пропасти между филологией и программированием. И тут и там - языки . Кстати, на этом форуме была (и даже модератором) девочка, которая долго не могла выбрать между математикой и филологией.
А Айра имела в виду нечто вроде вот этого, думаю:
while Pos('x',s)>0 do Delete(s,Pos('x',s),1);
Этот код будет работать чуть дольше, зато сам по себе короче.
Айра
3.01.2009 17:26
Цитата
А Айра имела в виду нечто вроде вот этого, думаю:
Ага, оно самое) Только мне вначале показалось, что x - это не конкретный символ, а то, что введет пользователь.. Но, если что, добавить ввод недолго ))
Цитата
просто я учусь на филологическом, и мозги у меня под другое заточены...
Ну дык в деканате это аргументом не будет, так что придется разбираться. Удачи
Цитата
И тут и там - языки
алфавит, синтаксис, семантика тоже))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.