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

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

  1. #1
    Новичок Flasher кто это?
    Регистрация
    12.05.2010
    Возраст
    28
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

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

    Помогите пожалуйста составить программку, которая из введённого текста указывает самое короткое слово, начинающееся на указанную букву.
    -----------------------------------------------------------------------
    Спасибо за внимание!

  2. #2
    Юзер v_b кто это?
    Регистрация
    15.02.2007
    Сообщений
    185
    Поблагодарил(а)
    134
    Получено благодарностей: 51 (сообщений: 37).

    По умолчанию

    как то так
    Код:
    var
    l,p:string;
    i,k,c:integer;
    z:char;
     
    begin
    writeln('vvedi bukvu');
    readln(z);
    writeln('vvedi slova');
    readln(l);
     
    p:=l;
    for i:=1 to Length(l) do
     
    begin
      if (l[i]=z) and ((l[i-1]=' ') or (i=1))  then k:=i;
     
      c:=k;
      if Length(l)=i then c:=k-1;
     
      if ((l[i]=' ') or (i=Length(l)))
      and (l[k]=z)
      and ((Length(p)=Length(l)) or (i-k<Length(p)))
      then p:=copy(l,k,i-c);
    end;
     
    if p=l then writeln('netu slov na takuy bukvu')
    else writeln('min slovo=',p);
     
    readln;
    end.

  3. #3
    Умник Dan кто это?
    Регистрация
    22.03.2007
    Возраст
    30
    Сообщений
    585
    Поблагодарил(а)
    105
    Получено благодарностей: 177 (сообщений: 125).

    По умолчанию


    Оффтопик

  4. #4
    Новичок Ewald кто это?
    Регистрация
    17.05.2010
    Сообщений
    1
    Поблагодарил(а)
    0
    Получено благодарностей: 0 (сообщений: 0).

    По умолчанию

    помогите решить срочно надо!!!! ПРЯМ СРОЧНО ПРИ СРОЧНО!!!

    Условие:
    Найти координаты центра отрезка, заданного координатами его концов.

    исходные данные:
    Х1, У1, Х2, У2.

    Добавлено через 2 минуты
    пишите в асю: 592595017
    Последний раз редактировалось Ewald; 17.05.2010 в 19:35. Причина: Добавлено сообщение

  5. #5
    Ветеран Prince NAMTARr кто это? Аватар для Prince NAMTARr
    Регистрация
    12.12.2007
    Адрес
    Persia - Babilon
    Возраст
    25
    Сообщений
    1,150
    Поблагодарил(а)
    175
    Получено благодарностей: 100 (сообщений: 81).

    Thumbs down

    Цитата Сообщение от Ewald Посмотреть сообщение
    помогите решить срочно надо!!!! ПРЯМ СРОЧНО ПРИ СРОЧНО!!!

    Условие:
    Найти координаты центра отрезка, заданного координатами его концов.

    исходные данные:
    Х1, У1, Х2, У2.

    Добавлено через 2 минуты
    пишите в асю: 592595017
    мдоо... уж это проще некуда...
    var x1,x1,y1,y2,:real;
    begin
    Writeln ('BBeguTE KoopguHATbI ogHoro KoHL|A');
    readln (x1,y1);
    Writeln ('BBeguTE KoopguHATbI gpyroro KoHL|A');
    readln (x2,y2);
    Writeln ('KoopguHaTbI L|EHTPA OTPE3KA: (', (x1+x2)/2, '; ', (y1+y2)/2, ').');
    readln;
    end.
    Ну уж такое-то не сделать - это жесть.
    May the Force be with YOU...

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

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

     

Похожие темы

  1. Контрольные задачи
    от Firma4 в разделе БрГУ
    Ответов: 9
    Последнее сообщение: 21.04.2011, 17:35
  2. Ответов: 6
    Последнее сообщение: 05.03.2010, 16:05
  3. Как решить задачу?
    от Max_br в разделе Интернет/Веб-дизайн
    Ответов: 6
    Последнее сообщение: 11.06.2008, 01:49
  4. задачи по бух учету
    от Power в разделе Работа, найм, образование
    Ответов: 4
    Последнее сообщение: 16.05.2007, 10:14
  5. Прикольная Задачка
    от NrW-117 в разделе Юмор
    Ответов: 7
    Последнее сообщение: 07.10.2006, 16:37

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
Рейтинг@Mail.ru
Администрация сайта не выражает согласия
с высказыванием участников форума и не несет
ответственности за их содержание.

Копирование любого материала возможно только
при наличии ссылки на сайт.