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

←   Апрель 2008   →
	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

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

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

Автор

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

Статистика

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

• Выпуски
• Статистика

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

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

Новое направление Портала RusFAQ.ru: MosHoster.ru - Профессиональный хостинг РАССЫЛКИ ПОРТАЛА RUSFAQ.RU / КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal Выпуск № 637 от 19.04.2008, 12:05 Администратор: Калашников О.А. В рассылке: Подписчиков: 251, Экспертов: 43 В номере: Вопросов: 5, Ответов: 9 Нам важно Ваше мнение об этой рассылке. Оценить этот выпуск рассылки >> Вопрос № 132022: Последовательность a1,a2.....an состоит из нулей и едениц. Поставить в начало последовательности нули, а затем еденицы.... Вопрос № 132065: здраствуйте эксперты помогите. Решить поставленную задачу двумя способами — с применением рекурсии и без нее:6. Найти максимальный элемент в массиве a1...an, используя очевидное соотношение max (a1...an)=max (max (a1...an-1), an).... Вопрос № 132103: Здравствуйте ещё раз, уважаемые эксперты. Мне нужно сегодня к трем часам дня сдать слудующую программу на паскале: lnx= (x-1)/1 - (x-1)^2/2 + (x-1)^3/3......... Данный ряд нужно оформить как функцию при х=1.56 Пожалуйста, помогите как... Вопрос № 132115: В двумерном массиве определить столбец(столбцы), содержащие наибольшее значение.... Вопрос № 132117: помогите пожалуйста с решением данной задачи: 1. Дана матрица целых чисел. Отмеченной строкой считается та, пер- вый элемент которой > 0, в этой строке отрицательные элементы заменить на -1, а положительные на 1, нулевые оставить без и... Вопрос № 132.022 Последовательность a1,a2.....an состоит из нулей и едениц. Поставить в начало последовательности нули, а затем еденицы. Отправлен: 13.04.2008, 17:24 Вопрос задал: Федосеев Павел Юрьевич (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 4) Отвечает: Djec Здравствуйте, Федосеев Павел Юрьевич! Решение в приложении без использования дополнительного массива. Если будут вопросы, пишите в мини-форум. Приложение: program q132022; uses CRT; const N_Max = 100; var A : array [1..N_Max] of integer; i, j, N : integer; begin ClrScr; WriteLn('Введите кол-во элементов последовательности:'); ReadLn(N); WriteLn('Введите ', N, ' элементов последовательности:'); for i := 1 to N do ReadLn(A[i]); for i := 1 to N-1 do if (A[i] = 1) and (A[i+1] = 0) then begin A[i] := 0; A[i+1] := 1; for j := i downto 1 do if (A[j] = 0) and (A[j-1] = 1) then begin A[j] := 1; A[j-1] := 0; end; end; WriteLn('Полученная последовательность:'); for i := 1 to N do Write(A[i]:3); ReadLn; end. --------- Полная зависимость от интернета - это когда окно браузера запущено просто так, для спокойствия души и тела Ответ отправил: Djec (статус: 8-ой класс) Ответ отправлен: 13.04.2008, 19:25 Отвечает: Шемет Станислав Васильевич !!! Здравствуйте, Федосеев Павел Юрьевич! Программа в приложении Программа не проверялась на компиляторе и в работе, т.к.: 1)компилятор не пропустит явные систаксические ошибки: lenght и Bgin; 2)вводится только один символ Readln(buf);, строка с которой потом работаютs[i]>s[i+1] не определена. ----- ∙ Отредактировал: Зенченко Константин Николаевич (Профессионал) ∙ Дата редактирования: 13.04.2008, 19:54 Приложение: var s:string; b:boolean; i:byte; buf:char; begin Readln(buf); REpeat b:=true; for i:=1 to lenght(s)-1 do if s[i]>s[i+1] then Bgin b:=false; buf:=s[i]; s[i]:=s[i+1]; s[i+1]:=buf; end; until b; Writeln(s); Readln; end. --------- Любовь это прекрасно!!! Ответ отправил: Шемет Станислав Васильевич (статус: 5-ый класс) Ответ отправлен: 13.04.2008, 19:34 Отвечает: Зенченко Константин Николаевич Здравствуйте, Федосеев Павел Юрьевич! В приложении программа, которая вводит только нужные цифры и сортирует их при вводе. Удачи! Приложение: uses crt; var a:char; b:string; begin b:=''; write('X:'); repeat a:=ReadKey; {если нужная клавиша выводим} if(a='0')or(a='1')then write(a); case a of {ноль в начало строки} '0':b:='0'+b; {единицу в конец строки} '1':b:=b+'1'; end; {пока не нажата клавиша ввод} until a=chr(13); {выводим результат} writeln; write('result:',b); readln; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт! Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 13.04.2008, 20:18 Оценка за ответ: 5 Отвечает: Евчик Сергей Александрович Здравствуйте, Федосеев Павел Юрьевич! Для решения вашей задачи могу предложить способ указанный в приложении. Думаю я Вам помог. Приложение: Program z1; uses crt; var i,k:integer; s:string; q:boolean; Write('Введите строку: '); readln(s); q:=true; k:=0; for i:=1 to length(s) do begin if s[i]='0' then inc(k); if s[i] in ['0'..'1'] then else q:=false; end; if not q then Writeln('Строка содержит недопустимые символы') else begin for i:=1 to length(s) do if i<k then s[i]:='0' else s[i]:='1'; Writeln('Строка имеет вид: ',s); end; readln end. Ответ отправил: Евчик Сергей Александрович (статус: 3-ий класс) Ответ отправлен: 13.04.2008, 21:04 Вопрос № 132.065 здраствуйте эксперты помогите. Решить поставленную задачу двумя способами — с применением рекурсии и без нее:6. Найти максимальный элемент в массиве a1...an, используя очевидное соотношение max (a1...an)=max (max (a1...an-1), an). Отправлен: 13.04.2008, 21:38 Вопрос задал: Saillo Виталий Николаевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Boriss Здравствуйте, Saillo Виталий Николаевич ! В приложении код программы, решающей Вашу задачу. Для рекурсивной я написал промежуточную подпрограмму, которая вызывает рекурсивную с правильными параметрами. Тестирование = массивы с различными нетрадиционными диапазонами индексов Приложение: {$M 65520, 0, 0} function RecursiveMAX(a: Array of Integer): Integer; function Recursive(a: array of integer; No: Integer): Integer; var r: Integer; begin if High(a) = 0 then r:= 0 {скаляр - не массив тоже обрабатывается} else if No = 1 then if a[0] > a[1] then r:=a[0] else r := a[1] else begin r := Recursive(a, No-1); if a[No] > a[r] then r := a[No]; end; Recursive := r; end; begin RecursiveMAX := Recursive(a, High(a)); end; function NonRecursiveMAX(a: Array of Integer): Integer; var k, r: Integer; begin r:=0; for k:=1 to High(a) do if a[k] > a[r] then r:= k; NonRecursiveMAX:=a[r]; end; const M = 5; base = 10; ar: Array[base..base+M-1] of Integer = (-222, 1, 3, -3333, 5); b : array[-1 .. 6] of Integer = (1,2,3,4,5,6,0,-1); BEGIN WriteLn; WriteLn('Recursive : ',RecursiveMAX(ar)); WriteLn('NonRecursive: ',NonRecursiveMAX(ar)); WriteLn(RecursiveMAX(b)); END. --------- Вывод - то место в тексте, где вы устали думать Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 14.04.2008, 15:59 Вопрос № 132.103 Здравствуйте ещё раз, уважаемые эксперты. Мне нужно сегодня к трем часам дня сдать слудующую программу на паскале: lnx= (x-1)/1 - (x-1)^2/2 + (x-1)^3/3......... Данный ряд нужно оформить как функцию при х=1.56 Пожалуйста, помогите как можно быстрее! Заранее очень благодарен! Отправлен: 14.04.2008, 08:56 Вопрос задал: Лобанов Александр (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 6) Отвечает: Пупорев Юрий Борисович Здравствуйте, Лобанов Александр! Привожу один из вариантов решения, не самый лучший. Можно обойтись без возведения в степень, не могу вспомнить как, а Вам нужно быстро. Может еще кто ответит. Но программа работает нормально, выдает lnx=0.445, по калькулятору 0,4447. Код в приложении. Приложение: uses crt; var x:real;n:integer; {функция возведения вещественного числа в натуральную степень} function Step(a:real;n:integer):real; var i:integer; p:real; begin p:=1; for i:=1 to n do p:=p*a; Step:=p; end; {функция приближенного вычисления натурального логарифма} function MyLn(a:real;n:integer):real; var i:integer; r:real; begin r:=0; for i:=1 to n do r:=r+step((a-1),i)*step(-1,i-1)/i; MyLn:=r; end; begin clrscr; x:=1.56; n:=50; write('lnx=',MyLn(x,n):6:3); readln end. Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 14.04.2008, 09:34 Оценка за ответ: 4 Вопрос № 132.115 В двумерном массиве определить столбец(столбцы), содержащие наибольшее значение. Отправлен: 14.04.2008, 10:41 Вопрос задала: Водянникова Екатерина Валерьевна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3) Отвечает: Coupler Здравствуйте, Водянникова Екатерина Валерьевна! Программа в приложении (сначала ищется максимальное во всем массиве, затем массив перебирается по столбцам и выводятся номера нужных столбцов). Приложение: program Project2; var a: array[1..100, 1..100] of integer; n, m, i, j, max: integer; begin writeln('Vvedite n'); readln(n); writeln('Vvedite m'); readln(m); {матрица n*m} max := a[1, 1]; writeln('Vvedite massiv'); for i := 1 to n do for j := 1 to m do readln(a[i, j]); writeln('Vvedennii massiv'); for i := 1 to n do begin for j := 1 to m do write(a[i, j], ' '); writeln; end; for i := 1 to n do for j := 1 to m do if a[i, j] > max then max := a[i, j]; writeln('max=', max); writeln('Stolbtsi, sodershachie max:'); for j := 1 to m do for i := 1 to n do if a[i, j] = max then writeln(j); readln; end. Ответ отправил: Coupler (статус: Специалист) Ответ отправлен: 14.04.2008, 10:57 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!!!!!!! Отвечает: SHERRY Здравствуйте, Водянникова Екатерина Валерьевна! Написал Вам задачку. Работает правильно, но с одной маленькой странностью: если максимальный элемент находится в нескольких столбцах, то номера столбцов выводятся не по порядку. Не знаю почему. А так - всё в порядке. Код в приложении. Приложение: const n=3; m=4; var ms: array [1..n, 1..m] of integer; i,j,max,index: integer; begin randomize; max:=-1; for i:=1 to n do begin writeln; for j:=1 to m do begin ms[i,j]:=random(10); if ms[i,j]>max then max := ms[i,j]; write(ms[i,j]:5); end; end; index:=0; writeln; write('Max value indexes are '); for i:=1 to n do for j:=1 to m do if (ms[i,j]=max) and (j<>index) then begin write(j:5); index:=j; end; readln; end. --------- Самурай без меча подобен самураю с мечём, только без меча.. Ответ отправил: SHERRY (статус: 9-ый класс) Ответ отправлен: 14.04.2008, 11:07 Оценка за ответ: 5 Вопрос № 132.117 помогите пожалуйста с решением данной задачи: 1. Дана матрица целых чисел. Отмеченной строкой считается та, пер- вый элемент которой > 0, в этой строке отрицательные элементы заменить на -1, а положительные на 1, нулевые оставить без изме- нения. Отсортировать матрицу по убыванию. Отправлен: 14.04.2008, 10:51 Вопрос задала: Тимощенко Елизавета Владимировна (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Пупорев Юрий Борисович Здравствуйте, Тимощенко Елизавета Владимировна! Решение задачи в приложении. Первая часть задачи простая, вытекает из условия, поэтому в особых пояснениях не нуждается. Сортировку матрицы я сделал с помощью линейного массива. Сначала матрицу разворачиваем в линейнй массив, который легко сортировать, а затем, после сортировки, снова собираем массив в матрицу. Приложение: uses crt; const n=6; m=7; var a:array[1..n,1..m]of integer; b:array[1..n*m]of integer; i,j,max,min,imax,imin,k,x:integer; begin clrscr; randomize; {Ввод элементов матрицы(случайные числа из интервала[-8,11])} writeln('Ishodnaia matrica:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(20)-8; write(a[i,j]:3); end; writeln; end; readln; {Выполнение первого условия} for i:=1 to n do begin for j:=1 to m do if a[i,1]>0 then begin if a[i,j]<0 then a[i,j]:=-1 else if a[i,j]>0 then a[i,j]:=1; end; end; writeln('Obrabotannaia matrica:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3); writeln; end; readln; {Sortirovka matricy} k:=0; for i:=1 to n do for j:=1 to m do begin k:=k+1; b[k]:=a[i,j]; end; for i:=1 to k-1 do for j:=1 to k-1 do if b[j]<b[j+1]then begin x:=b[j]; b[j]:=b[j+1]; b[j+1]:=x; end; writeln('Sortirovannaia matrica:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=b[j+m*(i-1)]; write(a[i,j]:3); end; writeln; end; readln; end. Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 14.04.2008, 17:52 Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение! Оценить этот выпуск рассылки >> Отправить вопрос экспертам этой рассылки Приложение (если необходимо): * Код программы, выдержки из закона и т.п. дополнение к вопросу. Эта информация будет отображена в аналогичном окне как есть. Обратите внимание! Вопрос будет отправлен всем экспертам данной рассылки! Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru. Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)! Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru. © 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.91 pre 5.0 RC1 от 13.04.2008 RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

---

В избранное

{#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="Войти"> <!--</a>--> <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 class="gray_bg register_shadow"></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}