Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Центр помощи > [Delphi] Строки

Автор: takewu 2.12.2009, 02:18

Помогите пожалуйста! Неимею нималейшего понятия, что и как делать.. а препод даже подсказать нехочет smile

1.Дан текст, состоящий из последовательности символов. Соседние слова отделены друг от друга пробелом, за последним словом – точка. Определить количество слов, начинающихся с символа * и заканчивающихся #. Вывести их количество и сами слова на экран.
2.Дан текст. Если в этом тексте присутствуют малые латинские буквы, то каждую из малых латинских букв в первом и последнем слове, заменить на любой символ. В противном случае оставить текст без изменений.
3.Дан текст. Если в этом тексте присутствует символ *, то каждую из малых латинских букв, предшествующих первому вхождению *, заменить на цифру 7. В противном случае оставить текст без изменений.
4.Дан текст, состоящий из последовательности слов из латинских букв. Соседние слова отделены друг от друга пробелом, за последним словом – точка. Определить слово, которое содержит наибольшее количество символов. Вывести на экран это слово и количество символов в нем.

Автор: amsoft 2.12.2009, 08:42

Подскажу вместо препода smile

Со строками работают так:
Дана строка S, чтобы пробежаться по всей строке в цикле используй код:

Код


for X := 1 to Length(S) do
     begin
     ...
     end;

В теле этого цикла можно узнать в какой позиции какой символ находится:

Код


if S[X] := 'A' 
then ShowMessage('Буква A находится в позиции ' + IntToStr(X));

в твоем случае тебе необходимы эти приемы
удачи smile