RFpro.ru: Программирование на языке Pascal (comp.soft.prog.pasplus) : Рассылка : Subscribe.Ru

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS

← Январь 2010 →
	1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

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

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

Автор

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

Статистика

2.943 подписчиков
0 за неделю

← Все выпуски →

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

Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

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

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

Boriss
Статус: Академик
Рейтинг: 1618
∙ повысить рейтинг »

_Ayl_
Статус: Студент
Рейтинг: 1422
∙ повысить рейтинг »

Micren
Статус: Профессионал
Рейтинг: 1410
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Pascal (Паскаль)

Номер выпуска:	1006
Дата выхода:	03.01.2010, 03:00
Администратор рассылки:	Калашников О.А., Руководитель
Подписчиков / экспертов:	361 / 192
Вопросов / ответов:	4 / 4

Вопрос № 175691: Уважаемые эксперты!Прошу Вас помочь мне решить задачу(если можно,то с объснением).Заранее благодарна! Описать функцию С(n,m),где 0<=m<=n,для вычисления биноминального коэффициента С (из n по m) по следующей формуле: C(из n по 0)=C(из n по...

Вопрос № 175693: Уважаемые эксперты!Прошу Вас помочь мне решить задачу(если можно,то с объснением).Заранее благодарна! Заданы имена девочек.Определить,какие из этих имен встречаются во всех классах данной паралели,которые есть,которые есть только в некоторых класс...

Вопрос № 175695: Добрый вечер,уважаемые эксперты!!!!Прошу вашей помощи в решении задачки,осталось несколько до зачета,помогите пожалуйста Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат на плоскости, то переменной k присв...

Вопрос № 175696: Добрый вечер,уважаемые эксперты!Прошу Вас помочь мне решить задачу(если можно,то с объснением).Заранее благодарна! Два числа называются дружественными,если каждое из них равно сумме всех делителей,кроме (его самого) другого числа (например числа 2...

Вопрос № 175691:

Уважаемые эксперты!Прошу Вас помочь мне решить задачу(если можно,то с объснением).Заранее благодарна!
Описать функцию С(n,m),где 0<=m<=n,для вычисления биноминального коэффициента С (из n по m) по следующей формуле:
C(из n по 0)=C(из n по n)=1; С(из n по m)=C(из n-1 по m)+C(из n-1 по m-1); при 0<m<n

Отправлен: 28.12.2009, 02:46
Вопрос задал: Масленникова Валерия, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Пупорев Юрий Борисович, Специалист :
Здравствуйте, Масленникова Валерия!
Решение в приложении, пояснять нечего, все по формуле.

Приложение:
uses crt; function C(n,m:word):word; begin if (m=0)or(m=n) then C:=1 else C:=C(n-1,m)+C(n-1,m-1); end; var a,b:word; begin clrscr; repeat writeln(\'Введите 2 положительных натуральных числа a>=b>0:\'); readln(a,b); until(b>=0)and(b<=a); write(\'Биноминальный коэффициет из \',a,\' по \',b,\'=\',C(a,b)); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 28.12.2009, 12:20

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258207 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney:

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 175693:

Уважаемые эксперты!Прошу Вас помочь мне решить задачу(если можно,то с объснением).Заранее благодарна!
Заданы имена девочек.Определить,какие из этих имен встречаются во всех классах данной паралели,которые есть,которые есть только в некоторых классах и какие из этих имен не встречаются ни в одном классе.

Отправлен: 28.12.2009, 03:01
Вопрос задал: Масленникова Валерия, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Пупорев Юрий Борисович, Специалист :
Здравствуйте, Масленникова Валерия!
Решение в приложении.

Приложение:
uses Crt; {объявим тип переменных перечислимого типа} type names = (anya,masha,lyuba,olya,tanya,zhenya); {создадим массив имен} const mas : array[0..5] of string = (\'Аня\',\'Маша\',\'Люба\',\'Оля\',\'Таня\',\'Женя\'); var a,b,c:set of names;{три множества, можно и больше} f:integer;{фиксатор совпадений} k:names;{переменная нашего типа, счетчик цикла} begin clrscr; {заполним множества порядковыми значениями имен по своему усмотрению} a:=[anya,masha,lyuba]; b:=[anya,masha,olya]; c:=[anya,masha,tanya]; writeln(\'Есть во всех классах: \'); f:=0; for k := anya to zhenya do{порядковые номера от 0 до 5} begin if (k in a) and (k in b) and (k in c) then{если есть во всех трех} begin write(mas[ord(k)],\' \');{выводим элемент массива строк с этим индексом} f:=1;{фиксируем что есть такие} end; end; if f=0 then writeln(\'Таких имен нет!\'); writeln; writeln; writeln(\'Нет ни в одном классе: \'); f:=0; for k:=anya to zhenya do begin if not (k in a) and not (k in b) and not (k in c) then{если нет ни в одном} begin write(mas[ord(k)],\' \'); f:=1; end; end; if f=0 then writeln(\'Таких имен нет!\'); writeln; writeln; writeln(\'Только в некоторых классах: \'); f:=0; for k:=anya to zhenya do begin if (k in a) or (k in b) or (k in c) then{если хоть в одном} begin write(mas[ord(k)],\' \'); f:=1; end; end; if f=0 then writeln(\'Таких имен нет!\'); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 28.12.2009, 11:52

Оценка ответа: 5

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258206 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney:

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 175695:

Добрый вечер,уважаемые эксперты!!!!Прошу вашей помощи в решении задачки,осталось несколько до зачета,помогите пожалуйста
Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат на плоскости, то переменной k присвоить 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то k присвоить соответственно –1 или –2. В остальных случаях k присвоить номер четверти плоскости, в которой находится точка с заданными координатами. Подобрать данные для проверки всех случаев
жду с нетерпением!

Отправлен: 28.12.2009, 03:46
Вопрос задал: angel.nero, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Пупорев Юрий Борисович, Специалист :
Здравствуйте, angel.nero!
Решение в приложении.

Приложение:
uses crt; var x,y,k:integer; c:char; begin clrscr; repeat{цикл для возможности повторения без выхода из программы} clrscr;{очищаем экран} writeln(\'Введите целочисленные координаты точки на плоскости:\'); {1-[0,0] 2-[1,0] 3-[0,1] 4-[1,1] 5-[-1,1] 6-[-1,-1] 7-[1,-1]}{предлагаемые варианты} readln(x,y);{читаем введенные координаты} if (x=0)and(y=0) then k:=0 {дальше описаны все условия} else if(x<>0)and(y=0) then k:=-1 else if(x=0)and(y<>0) then k:=-2 else if(x>0)and(y>0) then k:=1 else if(x<0)and(y>0) then k:=2 else if(x<0)and(y<0) then k:=3 else if(x>0)and(y<0) then k:=4; writeln(\'K=\',k); writeln(\'Желаете повторить? Нажмите y/Y, иначе любую клавишу.\'); c:=readkey;{ждем нажатия клавиши} until upcase(c)<>\'Y\';{если y/Y, повторяем, иначе выходим из программы} end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 28.12.2009, 11:17

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258205 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney:

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 175696:

Добрый вечер,уважаемые эксперты!Прошу Вас помочь мне решить задачу(если можно,то с объснением).Заранее благодарна!
Два числа называются дружественными,если каждое из них равно сумме всех делителей,кроме (его самого) другого числа (например числа 220 и 284)юНайти все пары дружественных чисел,которые не больше данного числа N

Отправлен: 28.12.2009, 04:01
Вопрос задал: Масленникова Валерия, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Пупорев Юрий Борисович, Специалист :
Здравствуйте, Масленникова Валерия!
Программа в приложении.
Дружественных чисел очень мало. Первые 2 пары 220-284 и 1184-1210 программа ву Турбо Паскаль 7 находит быстро, так что на них и тренируйтесь. Следующие пары 2620-2924, 5020-5534, 6232-6368, ищет долго, а пятизначные пары вообще не дождетесь. Быстрее это работает в Делфи.

Приложение:
uses crt; function SumDel(n:longint):longint;{функция вычисления суммы делителей числа} var i,sum,k:longint; begin sum:=1;{на 1 делятся все} for i:=2 to round(sqrt(n)) do{от 2 до корня из числа} begin k:=n div i;{целая часть от деления} if k*i=n then{если нет остатка} sum:=sum+i+n div i; {к сумме добавляем этот делитель и обратный ему, например 6 делится на 2, соответственно и на 3} end; SumDel:=sum;{значение функции} end; var a:longint; i,j,k:integer; begin clrscr; write(\'a=\');readln(a); k:=0; for i:=1 to a-1 do{проверяем все пары до этого числа} for j:=i+1 to a do if (SumDel(i)=j)and(SumDel(j)=i)then{если сумма делителей второго=первому и наоборот} begin k:=1;{фиксируем} writeln(i,\' \',j);{выводим пару} end; if k=0 then write(\'Дружественных чисел меньше \',a,\' нет!\'); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 28.12.2009, 10:29

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 258203 на номер 1151 (Россия) | Еще номера »

Отправить WebMoney:

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

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

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

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

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

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

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

© 2001-2009, Портал RFpro.ru, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2009.6.13 от 28.12.2009

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти">  <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div>  </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br /> <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}