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

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

Древовидный режим

  1. #1
    coder Freeman12 is on a distinguished road
    Регистрация
    25.05.2008
    Возраст
    31
    Сообщений
    18
    Вес репутации
    11

    Unhappy Задача на строки по Pascal

    Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить, сколько слов содержат ровно 3 буквы заданные пользователем, например 3 буквы «е».
    Подскажите как решить эту задачу,хотя бы алгоритм,какими функциями ...просто никак не могу даже к ней подступить

  2. #2
    Russel is on a distinguished road
    Регистрация
    17.12.2008
    Сообщений
    1
    Вес репутации
    0

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

    Там будет оператор string. Copy тоже наверное...

  3. #3
    programmer demon416 is on a distinguished road Аватар для demon416
    Регистрация
    30.01.2006
    Адрес
    kirovskoe
    Сообщений
    87
    Вес репутации
    13

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

    алгоритм))))
    1)считываеш символ который надо искать
    2 ) в цикле перебираеш символы в строке
    условия перебора
    а)если символ точка - конец перебора
    б)если символ пробел - проверить значение счетчика количества вхождений искомого символа в слово, если оно равно 3 увеличить счетчик слов
    сбросить счетчик вхождений
    в)если символ - искомый - увеличить счетчик вхождений
    ака хинт: коментируйте код, самим же легче будет разобраться ;)

  4. #4
    programmer Esgal is on a distinguished road
    Регистрация
    04.11.2008
    Возраст
    30
    Сообщений
    78
    Вес репутации
    10

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

    Код pascal:
    1. for i:=1 to lenght(s) do
    2.   case s[i] of
    3.     ch: r1:=s1+1;
    4.     ' ': begin if r1=3 then r2:=r2+1; r1:=0; end;
    5.     '.': break;
    6.   end;

    s -исходная строка
    r1 - промежуточный счётчик
    r2 - после выполнения программы, эта переменная будет содержать ответ
    Последний раз редактировалось Esgal; 18.12.2008 в 00:04.
    Luke! Use the Force! Use the Force... oh, Luke! Stop using the Force, use your head!

  5. #5
    mrDerevo is on a distinguished road
    Регистрация
    15.10.2009
    Возраст
    27
    Сообщений
    1
    Вес репутации
    0

    Exclamation Re: Задача на строки по Pascal

    Ребят, помогите плз решить задачку на паскале! В общем условие такое что пользователь вводит строку и программа меняет в ней слова в обратном порядке! надо оч срочно))) я на вас надеюсь))

  6. #6
    developer Sheka is on a distinguished road Аватар для Sheka
    Регистрация
    17.05.2009
    Сообщений
    199
    Вес репутации
    10

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

    разделяете строку на слова, а потом посимвольно в обратном порядке записываете их в новую строку.
    если необходима полная реализация - сделаю за небольшую деньгу 255507394
    Мои мысли настолько гениальны, что санитары уже приехали!
    Ася 255507394.

  7. #7
    Moderator Куратор
    system architect
    dr.Jekill will become famous soon enough dr.Jekill will become famous soon enough
    Регистрация
    03.01.2009
    Адрес
    Voronezh
    Сообщений
    509
    Вес репутации
    12

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

    Ищите по форуму. В прошлом году такая программа уже делалась.
    Нет религии выше истины

  8. #8
    lonelyalice is on a distinguished road
    Регистрация
    29.11.2009
    Сообщений
    1
    Вес репутации
    0

    Question Re: Задача на строки по Pascal

    Помогите пожалуйста! Дана S - строка символов длиной n. Исключить из строки группы символов,расположенные между скобками (,). Сами скобки тоже должны быть исключены.Предполагается, что внутри каждой пары скобок нет других скобок.

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

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

    flag:=true;
    for i:=1 to length(s) do
    begin
    if s[i]='(' then flag:=false;
    if flag then s1:=s1+s[i];
    if s[i]=')' then flag:=true;
    end;
    Искусство программирования - заставить компьютер делать все то, что вам делать лень.
    Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

  10. #10
    000_Oleg_000 is on a distinguished road
    Регистрация
    14.04.2018
    Возраст
    11
    Сообщений
    1
    Вес репутации
    0

    Exclamation Кажется, вот:

    var a,b,k:string;
    i,kl,ks,n:longint;
    begin
    write('Введите букву:');
    readln(k);
    write('Введите тест:');
    readln(a);
    n:=length(a);
    for i:=1 to n-1 do begin
    b:=copy(a,i,1);
    if (b=k)then kl:=kl+1
    else kl:=0;
    if kl=3 then ks:=ks+1;
    end;
    write(ks);
    end.

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

Похожие темы

  1. Задача на строки, C++
    Не знаю как подступиться к задаче,а надо сделать очень срочно,помогите!!! Задана запись из букв,количество букв кратно N.Всего в записи M...
    от Freeman12 в разделе задачи на C и C++
  2. Строки, Pascal
    Помогите пожалуйста решить одну задачку в Паскале... Заранее спасибо..:D:D:D
    от VistBacK в разделе задачи на Паскале и Delphi
  3. Задача на строки
    Помогите плз написать прогу по паскалю Условие такое: в ведённой строке заменить все фрагменты "pavasaris" на "vasara" Надеюсь кому то будет не...
    от Juhn в разделе Решите мне задачку
  4. Задача на строки !
    Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.:confused: помогите пожалуйста ...
    от ZimAN в разделе Решите мне задачку
  5. Задача на строки
    Помогите, пожалуйста решить эту задачу, заранее спасибо! Задан текст, преобразовать его, удалив все запятые, предшествующие первой точке и заменив...
    от litis в разделе Решите мне задачку

Ваши права

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