Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 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 Выпуск № 621 от 03.04.2008, 04:05 Администратор: Калашников О.А. В рассылке: Подписчиков: 252, Экспертов: 50 В номере: Вопросов: 4, Ответов: 6 Нам важно Ваше мнение об этой рассылке. Оценить этот выпуск рассылки >> Вопрос № 129394: Помогите мне пожалуйста решить задачи с использованием одномерных массивов 1 задача: Дан массив целых чисел, содержащий 20 элементов. Записать в этом же массиве сначала все отрицательные числа, а затем все остальные, сохраняя порядок их следовани... Вопрос № 129469: здраствуйте уважаемые эксперты! большое Вам спасибо за предоставленые решения моих задач! у меня к вам еще одна просьба: с помощью модулей решить следующую задачу: Даны натуральные числа K, L, действительная матрица E(n,m). Поменять в матриц... Вопрос № 129505: Здравствуйте, Уважаемые Эксперты! Помогите решить задачу на Pascal: Существует n магазинов, в которые привозят n типов продукций. Определить какой из этих n продукций нет ни в одном магазине.... Вопрос № 129506: Мир вам, уважаемые эксперты! Возник вопрос теоретического плана, а именно: возможно ли сделать так, чтобы значение локальной переменной процедуры/функции ГАРАНТИРОВАННО сохранялось между ее (функции) вызовами? С уважением, Лука.... Вопрос № 129.394 Помогите мне пожалуйста решить задачи с использованием одномерных массивов 1 задача: Дан массив целых чисел, содержащий 20 элементов. Записать в этом же массиве сначала все отрицательные числа, а затем все остальные, сохраняя порядок их следования. 2 задача: Отсортировать массив вещественных чисел методом с простыми включениями. Построить блок-схему сортировки. Заранее очень благодарна... Отправлен: 28.03.2008, 06:03 Вопрос задала: Milya.90 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Николай Владимирович / Н.В. Здравствуйте, Milya.90! Первая программа в приложении. Сдвигает отрицательные элементы с начало массива сохраняя последовательность следования всех остальных, при этом порядок следования отрицательных также сохраняется. Удачи! Приложение: const N = 20; var A : array[1..N] of integer; function fneg(k:integer):integer; { ищет первое отрицательное число начиная с k-ого элемента } var i,res : integer; begin i := k; res := -1; while (i <= N)and(res=-1) do begin if A[i] < 0 then res := i; inc(i); end; fneg := res; end; procedure move(i,k:integer); { сдвигает k элементов массива начиная i-ого на одну позицию вправо на i-ую позицию записывается (i+k)-ый элемент } var j, tmp : integer; begin tmp := A[k]; for j := k-1 downto i do A[j+1] := A[j]; A[i] := tmp; end; var i, k : integer; begin randomize; for i := 1 to N do begin A[i] := random(30)-random(20); Write(A[i]:4); end; WriteLn; i := 1; k := fneg(i); while k <> -1 do begin move(i,k); inc(i); k := fneg(i); end; for i := 1 to N do begin Write(A[i]:4); end; ReadLn; end. Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 28.03.2008, 07:14 Отвечает: Костя Симанович Здравствуйте, Milya.90! По второй задаче могу предложить почитать тут: http://nataliya.kiev.ua/?id=105 и тут : http://fmi.asf.ru/Library/Book/LabInf2/Lab3.html В приложении код задачи. В задаче сортируется от максимума к минимуму. Удачи. Приложение: program sort; uses crt; type TMatrix=array[1..15,1..15]of integer; procedure InputMatrix(var a:tMatrix;m,n:byte); var i,j:byte; q:char; begin Writeln('Вводим в ручную или автоматом(y/n)'); Readln(q); Randomize; for i:=1 to m do for j:=1 to n do if (q<>'y')and(q<>'Y')then a[i,j]:=random(99) else begin write('A[',i,',',j,']=');readln(a[i,j]); end; end; procedure OutputMatrix(const a:TMatrix;m,n:byte); var i,j:byte; begin for i:=1 to m do begin for j:=1 to n do write(a[i,j]:4); writeln;end; end; procedure MinMax(const a:TMatrix;m,n,i:byte;var j1,j2:byte); var j:byte; Min,Max:integer; begin j1:=1;j2:=1; Min:=a[i,1];Max:=a[i,1]; for j:=1 to n do begin if a[i,j]<min then begin min:=a[i,j]; j1:=j end; if a[i,j]>max then begin max:=a[i,j]; j2:=j end; end; if j1>j2 then begin j:=j1; j1:=j2; j2:=j end; end; procedure Sort(var a:TMatrix;m,n,l,j1,j2:byte); {сортируем от } var i,j:byte;b:integer; {max к min} begin for i:=j2 downto j1 do begin b:=a[l,i]; j:=i; while (a[l,j+1]>b)and(j<j2)do begin a[l,j]:=a[l,j+1]; j:=j+1; end; a[l,j]:=b; end; end; procedure Main(var a:tmatrix;m,n:byte); var i,j,j1,j2:byte; begin for i:=1 to m do begin MinMax(a,m,n,i,j1,j2); Sort(a,m,n,i,j1,j2); end; end; var Matrix:TMatrix; m,n:byte; begin clrscr; write('m=');readln(m); {кол-во строк} write('n=');readln(n); {кол-во столбцов} InputMatrix(Matrix,m,n); OutPutMatrix(Matrix,m,n); Main(Matrix,m,n); writeln('Result:'); OutPutMatrix(Matrix,m,n); readln; end. Ответ отправил: Костя Симанович (статус: 2-ой класс) Ответ отправлен: 28.03.2008, 22:01 Вопрос № 129.469 здраствуйте уважаемые эксперты! большое Вам спасибо за предоставленые решения моих задач! у меня к вам еще одна просьба: с помощью модулей решить следующую задачу: Даны натуральные числа K, L, действительная матрица E(n,m). Поменять в матрице местами K-й и L-й столбцы. надеюсь вы справитесь и с этой вышеизложенной моей проблемой. Прошу Вас, не оставляйте меня без внимания! Я очень Вас прошу, т.к. очень нуждаюсь в помощи по программированию! Отправлен: 28.03.2008, 15:57 Вопрос задала: Ahmadullina Mila Raufovna (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Пупорев Юрий Борисович Здравствуйте, Ahmadullina Mila Raufovna! В приложении модуль проекта и сама программа. В модуль я убрал процедуры ввода матрицы, перестановки столбцов и вывода результата. Когда наберете текст модуля (буквально как написано), сохраните его под тем же именем, что и название модуля. Нажмете Ctrl+F9, выйдет окно с сообщением «Cannot run a unit». Нажмете OK и у вас автоматически создастся файл с таким же именем, но с расширением *.TPU. Это и будет модуль. Затем набираете в новом окне текст программы и работаете. Модуль и программу я тестировал, все работает. Короче, удачи Вам! Приложение: Модуль. unit Per_stl; interface type Matr=array[1..20,1..20]of word; procedure Vvod(n,m:word;var a:Matr); procedure Perest(n,m,p,q:word;var a:Matr); procedure Vyvod(n,m:word;var a:Matr); implementation procedure Vvod(n,m:word;var a:Matr); var i,j:word; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(20)+1; write(a[i,j]:4); end; writeln; end; end; procedure Perest(n,m,p,q:word;var a:Matr); var i,j,x:word; begin for i:=1 to n do begin x:=a[i,p]; a[i,p]:=a[i,q]; a[i,q]:=x; end; end; procedure Vyvod(n,m:word;var a:Matr); var i,j:word; begin for i:=1 to n do begin for j:=1 to m do begin write(a[i,j]:4); end; writeln; end; end; end. Программа. uses crt,per_stl; const n=5; m=6; var E:Matr; K,L,i,j,x:word; begin clrscr; randomize; write('Vvedite 1<K<=m = ');readln(K); write('Vvedite 1<L<=m, L<>K = ');readln(L); writeln('Ishodnaia matrica:'); writeln; Vvod(n,m,E); readln; Perest(n,m,K,L,E); writeln('Rezultat:'); writeln; Vyvod(n,m,E); readln end. Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 28.03.2008, 18:16 Вопрос № 129.505 Здравствуйте, Уважаемые Эксперты! Помогите решить задачу на Pascal: Существует n магазинов, в которые привозят n типов продукций. Определить какой из этих n продукций нет ни в одном магазине. Отправлен: 28.03.2008, 21:17 Вопрос задал: Pospelov Eugenio Andreevich (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1) Отвечает: Пупорев Юрий Борисович Здравствуйте, Pospelov Eugenio Andreevich! Мне кажется это задача на множества, такие часто задают, когда только начинают проходить эту тему. Алгоритм простенький, зпто писанины много. Если я правильно понял, то вполне рабочий код в приложении. Простор для Вашего творчества по поводу товаров, их количества и т.д. безграничный. Удачи! Приложение: program tovar; uses crt; type tov=set of (a,b,c,d,e,f); {список товаров латинскими символами или цифрами} var m1,m2,m3,m4,m5,m6:tov; {магазины} m:array[1..6]of tov; {символ товара} s:array[1..6]of string; {название товара по-русски} i:integer; begin clrscr; m1:=[a,b,c]; m2:=[a,b,d]; m3:=[a,c,d,e]; m4:=[b,d,e]; m5:=[a,c,d,e]; m3:=[c,d,e]; m[1]:=[a];m[2]:=[b];m[3]:=[c];m[4]:=[d];m[5]:=[e];m[6]:=[f]; s[1]:='Обувь';s[2]:='Носки';s[3]:='Сорочки'; s[4]:='Галстуки';s[5]:='Пиджаки';s[6]:='Брюки'; for i:=1 to 6 do begin if (m[i]*m1<>m[i])and(m[i]*m2<>m[i])and(m[i]*m3<>m[i]) and(m[i]*m4<>m[i])and(m[i]*m5<>m[i])and(m[i]*m6<>m[i]) then writeln('Нет ни в одном магазине товара "',s[i],'".'); end; readln end. Ответ отправил: Пупорев Юрий Борисович (статус: Студент) Ответ отправлен: 29.03.2008, 10:32 Вопрос № 129.506 Мир вам, уважаемые эксперты! Возник вопрос теоретического плана, а именно: возможно ли сделать так, чтобы значение локальной переменной процедуры/функции ГАРАНТИРОВАННО сохранялось между ее (функции) вызовами? С уважением, Лука. P.S. Вопрос сугубо по синтаксису, так что советовать использовать для этих целей глобальные переменные не надо ;) Отправлен: 28.03.2008, 21:27 Вопрос задал: Лука (статус: Студент) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 16) Отвечает: Зенченко Константин Николаевич Здравствуйте, Лука! Чисто теоретически, да и практически можно. Вся проблема заключается в том, что при каждом вызове процедуры(функции) компилятор в её начало подставляет код вызова процедуры контроля стека call @__StackCheck$q4Word ; Stack overflow check (AX) которая затирает ближайшие значения стека, т.к. любая процедура(функция) для организации локальных переменных использует стековый буфер (программисты на ассемблере его называют ещё стековым кадром) и прогамма в приложении показывает как это можно обойти. ps:массив ZZ - служит только для того, чтобы защитится от изменения стека процедурой контроля. Удачи Вам! Приложение: procedure A; var zz:array[1..100]of integer; aa:integer; begin aa:=10; writeln('a:',aa);{выводим установленное значение} end; procedure B; var zz:array[1..100]of integer; bb:integer; begin writeln('b-',bb);{выводим не определенное значение} bb:=100; writeln('b:',bb);{выводим установленное значение} end; procedure C; var zz:array[1..100]of integer; cc:integer; begin inc(cc); writeln('c:',cc);{выводим не опраделенное инкрементированое заначение} end; begin A; B; C; B; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт! Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 28.03.2008, 23:06 Оценка за ответ: 5 Комментарий оценки: На самом деле этот пример показывает скорее то, что сделать так, как мне нужно нельзя, так как я хотел, чтобы НИКАКИЕ действия между вызовами не меняли значения локальных переменных. Так как используется стек - это не возможно. Но хоть это и не то, что мне нужно, все равно очень поучительно. Спасибо. Отвечает: Boriss Здравствуйте, Лука! Мужики!!! Хотел в минифоруме написать, но .... Значения локальных типизированных констант (тех же переменных, но в другом сегменте данных размещаются) сохраняются !!!! procedure a; const b: Integer = 0; begin inc(b); writeln(b); end; BEGIN a; a; a; END. --------- Вывод - то место в тексте, где вы устали думать Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ---- Ответ отправлен: 29.03.2008, 08:00 Оценка за ответ: 5 Комментарий оценки: Вот. Спасибо, это именно то, что я искал! Добавлю только, что чтобы в Дельфи типизированные константы можно было изменять в коде, должен быть включен флаг {$J+} Вы имеете возможность оценить этот выпуск рассылки. Нам очень важно Ваше мнение! Оценить этот выпуск рассылки >> Отправить вопрос экспертам этой рассылки Приложение (если необходимо): * Код программы, выдержки из закона и т.п. дополнение к вопросу. Эта информация будет отображена в аналогичном окне как есть. Обратите внимание! Вопрос будет отправлен всем экспертам данной рассылки! Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru. Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)! Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru. © 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.72.6 beta от 22.03.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}