Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Строки

Автор: Летняя 2.01.2009 18:39

Разработать программу, которая для заданной строки 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, огромное спасибо!!!!!)))))
Айра, просто я учусь на филологическом, и мозги у меня под другое заточены...хм blink.gif smile.gif

Автор: Lapp 3.01.2009 16:55

Цитата(Летняя @ 3.01.2009 10:51) *
Айра, просто я учусь на филологическом, и мозги у меня под другое заточены...
Ты хочешь сказать, что не знакома и знакомиться не собираешься?..
Под что бы ни были заточены - либо скажи об этом в деканате и получи освобождение, либо уж постарайся перезаточить - иначе нечестно. Я не вижу такой уж большой пропасти между филологией и программированием. И тут и там - языки smile.gif. Кстати, на этом форуме была (и даже модератором) девочка, которая долго не могла выбрать между математикой и филологией.

А Айра имела в виду нечто вроде вот этого, думаю:
while Pos('x',s)>0 do Delete(s,Pos('x',s),1);

Этот код будет работать чуть дольше, зато сам по себе короче.

Автор: Айра 3.01.2009 17:26

Цитата
А Айра имела в виду нечто вроде вот этого, думаю:

Ага, оно самое) Только мне вначале показалось, что x - это не конкретный символ, а то, что введет пользователь.. Но, если что, добавить ввод недолго ))

Цитата
просто я учусь на филологическом, и мозги у меня под другое заточены...

Ну дык в деканате это аргументом не будет, так что придется разбираться. Удачи smile.gif

Цитата
И тут и там - языки

алфавит, синтаксис, семантика тоже))