+ Ответить в теме
Показано с 1 по 8 из 8

Тема: Задача на строки

  1. #1
    litis is an unknown quantity at this point Аватар для litis
    Регистрация
    15.04.2008
    Адрес
    Кривой Рог
    Возраст
    28
    Сообщений
    2
    Вес репутации
    0

    По умолчанию Задача на строки

    Помогите, пожалуйста решить эту задачу, заранее спасибо!
    Задан текст, преобразовать его, удалив все запятые, предшествующие первой точке и заменив знаком «+» все цифры 3, встречающиеся после первой точки.
    Последний раз редактировалось litis; 15.04.2008 в 20:13.

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    senior developer Serge_Bliznykov is on a distinguished road
    Регистрация
    31.08.2007
    Сообщений
    366
    Вес репутации
    11

    По умолчанию Re: Задача на строки

    проверить наличие знака в тексте:
    if Pos('.', MyString)>0 then

    выделить подстроку от начала до первой точки включительно:
    S1 := Copy(MyString,1, Pos('.',MyString));
    удалить все запятые в строке S1
    while Pos(',',S1)>0 do
    Delete(S1,Pos(',',S1),1);

    выделить подстроку от точки (не включая её) до конца строки:
    S2 := Copy(MyString,Pos('.',MyString)+1,255);

    заменить в подстроке S2 все + на цифру 3:
    for i:=1 to Length(S2) do
    if S2[i] = '3' then S2[i]:='+';

  4. #3
    Moderator Куратор
    system architect
    MOTOCoder is on a distinguished road
    Регистрация
    14.01.2008
    Адрес
    Россия, Псков
    Сообщений
    542
    Вес репутации
    12

    По умолчанию Re: Задача на строки

    Ужас...
    Две новых темы + сообщение в старой...
    Остается только эта тема, остальное в мусор.
    Ни что так не ограничивает фантазию программиста, как компилятор...

  5. #4
    programmer un4-funeral is on a distinguished road Аватар для un4-funeral
    Регистрация
    18.04.2008
    Возраст
    28
    Сообщений
    58
    Вес репутации
    11

    По умолчанию Re: Задача на строки

    Serge_Bliznykov,
    S2 := Copy(MyString,Pos('.',MyString)+1,255);
    а не луше воть?
    S2 := Copy(MyString,Pos('.',MyString)+1,length(S2));

  6. #5
    Moderator Куратор
    system architect
    Хыиуду has a spectacular aura about Хыиуду has a spectacular aura about
    Регистрация
    06.03.2005
    Адрес
    Москва
    Сообщений
    2,388
    Вес репутации
    19

    По умолчанию Re: Задача на строки

    Неа. У нас же S2 не инициализирована до этого оператора, т.е. ее длина скорее всего 0. Ну и после копирования 0 символов получим опять пустую строку.
    Искусство программирования - заставить компьютер делать все то, что вам делать лень.
    Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

  7. #6
    programmer un4-funeral is on a distinguished road Аватар для un4-funeral
    Регистрация
    18.04.2008
    Возраст
    28
    Сообщений
    58
    Вес репутации
    11

    По умолчанию Re: Задача на строки

    Цитата Сообщение от Хыиуду Посмотреть сообщение
    Неа. У нас же S2 не инициализирована до этого оператора, т.е. ее длина скорее всего 0. Ну и после копирования 0 символов получим опять пустую строку.
    а если длина MyString меньше 255 будет?

  8. #7
    Moderator Куратор
    system architect
    MOTOCoder is on a distinguished road
    Регистрация
    14.01.2008
    Адрес
    Россия, Псков
    Сообщений
    542
    Вес репутации
    12

    По умолчанию Re: Задача на строки

    Цитата Сообщение от un4-funeral
    а если длина MyString меньше 255 будет?
    Тогда просто скопируется вся строка, ошибки не будет.
    Ни что так не ограничивает фантазию программиста, как компилятор...

  9. #8
    programmer un4-funeral is on a distinguished road Аватар для un4-funeral
    Регистрация
    18.04.2008
    Возраст
    28
    Сообщений
    58
    Вес репутации
    11

    По умолчанию Re: Задача на строки

    Цитата Сообщение от MOTOCoder Посмотреть сообщение
    Тогда просто скопируется вся строка, ошибки не будет.
    да ошибки то нет
    прост я думал, что в конце пустые символы вставились бы
    ан нет...оказалось норм =)

+ Ответить в теме

Похожие темы

  1. поиск строки с заданым словом и вставка строки ниже
    уважаемые подскажите, как в листе excel найти строку со словом например "test" и ниже ее вставить строку со словами "test_test"? я только начинаю...
    от shery в разделе MS Office и VB(A).
  2. строки
    #include <iostream> #include <windows.h> using namespace std; void main() { SetConsoleCP(1251); SetConsoleOutputCP(1251); char str; //...
    от o4en1 krutoi в разделе C и C++
  3. Строки в txt
    Как обратиться к какой либо строке в delphi и паскале в *.txt без цикла? подскажите плз=)
    от matroskin в разделе Delphi и Pascal
  4. СТРОКИ для VBA
    Все задачи на строки Дана строка. Преобразовать ее, заменив точками все двоеточия (:), встречающиеся среди первых n/2 символов, и заменив точками...
    от Wuddy в разделе MS Office и VB(A).
  5. Строки: Вывод строки со звуком
    Интересует как можно выводить строки(допустим в цикле),сопровождаемые звуковым сигналом... Знаю ,что там для этого есть какой-то "\a". Так куда его...
    от qwertyuiop в разделе C и C++

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения