Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Апрель 2009   →
 1
 2
 3
 4
 5
 6
06.04.2009
00:32:49
22:17:29
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
20.04.2009
15:37:51
16:49:42
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Botsman
Статус: Студент
Рейтинг: 232
∙ повысить рейтинг >> 		Micren
Статус: Практикант
Рейтинг: 81
∙ повысить рейтинг >> 		Тимошенко Дмитрий
Статус: 7-й класс
Рейтинг: 49
∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 864
от 27.04.2009, 01:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 253, Экспертов: 45
В номере:Вопросов: 1, Ответов: 2
Нам важно Ваше мнение об этой рассылке.
Оценить этот выпуск рассылки >>

Вопрос № 165470: Введена строка, состоящая из двух слов. Вычеркните из первого слова те буквы, которые встречаются во втором слове...

Вопрос № 165.470
Введена строка, состоящая из двух слов. Вычеркните из первого слова те буквы, которые встречаются во втором слове
Отправлен: 21.04.2009, 09:22
Вопрос задал: Большаков Марк Владиславович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 5)
Отвечает: Botsman
Здравствуйте, Большаков Марк Владиславович!
Помогаю
Код - в приложении
Все комментарии - в коде.
Рад был помочь!

Приложение:

---------
Хочешь победить Excel? Спроси меня как! ;)

Ответ отправил: Botsman (статус: Студент)
Ответ отправлен: 21.04.2009, 10:39

Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 247953 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Отвечает: Киселева Светлана Александровна
    Здравствуйте, Большаков Марк Владиславович!
    Вот что получилось у меня:
    program slova;
    var
    s,s1,s2:string;
    t,i,j,k1,k2:byte;
    Begin
    writeln('Vvedite stroku');
    readln(s); {Вводим исходную строку, сколько между словами пробелов - все равно! Главное чтобы начиналась и заканчивалась не пробелами}
    t:=0;
    i:=1;
    while (i<=length(s)-1) and (t=0) do begin {Пока не проверили все пары символов (не дошли до конца строки - не обязательно) и поиск слов не закончен (t=0), работает цикл}
    if (s[i]<>' ') and (s[i+1]=' ') then k1:=i; {Если i-й символ не пробел, а i+1 - пробел, то мы встретили конец первого слова}
    if (s[i]=' ') and (s[i+1]<>' ') then begin k2:=i+1;t:=1; end; {Если i-й символ пробел, а i+1 - не пробел, то мы встретили начало второго слова. t стало 1 - на выход из цикла}
    i:=i+1; {Если все дела в цикле еще не закончены, переходим на следующий символ}
    end;
    s1:=copy(s,1,k1); {копируем из строки s с первого по k1 символ - это слово1}
    s2:=copy(s,k2,length(s)-k2+1); {копируем из строки s с k2 символа до конечного - это слово2. length(s)-k2+1 - количество букв слова2}
    k2:=length(s2); {пусть k2 отвечает теперь за количество букв слова2}
    for i:=1 to k2 do begin {"пробежимся" по всем буквам слова2}
    t:=pos(s2[i],s1); {запишем в t номер буквы из слова2, если она встретится в слове1 (номер буквы в слове1)}
    if t<>0 then Delete(s1,t,1); {если этот номер не равен нулю - в слове1 буква нашлась, удалим ее. А иначе (t=0) - не трогаем ее - в слове1 нет искомой буквы}
    end;
    writeln(s1, ' - pervoe slovo posle vycherkivaniya'); {интересно посмотрет ь, что осталось от слова1}
    writeln(s2,' - vtoroe slovo'); {для проверки выведем и слово2}
    readln
    End.
    ---------
    Если помочь другим в твоих силах - помоги!
    Ответ отправила: Киселева Светлана Александровна (статус: 2-й класс)
    Ответ отправлен: 21.04.2009, 12:56

    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 247976 на номер 1151 (Россия) | Еще номера >>
  • Отправить WebMoney:
    • Вам помогли? Пожалуйста, поблагодарите эксперта за это!

    Вы имеете возможность оценить этот выпуск рассылки.
    Нам очень важно Ваше мнение!
    Оценить этот выпуск рассылки >>

    Отправить вопрос экспертам этой рассылки

    Приложение (если необходимо):

    * Код программы, выдержки из закона и т.п. дополнение к вопросу.
    Эта информация будет отображена в аналогичном окне как есть.

    Обратите внимание!
    Вопрос будет отправлен всем экспертам данной рассылки!
    Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
    экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


    Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
    Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров >>

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2009, Портал RusFAQ.ru, Россия, Москва.
    Авторское право: ООО "Мастер-Эксперт Про"
    Техподдержка портала, тел.: +7 (926) 535-23-31
    Хостинг: "Московский хостер"
    Поддержка: "Московский дизайнер"
    Авторские права | Реклама на портале

    ∙ Версия системы: 5.13 от 01.12.2008

    		Яндекс Rambler's Top100
    RusFAQ.ru | MosHoster.ru | MosDesigner.ru
    RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru
    В избранное