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

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

Статистика

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

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

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

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

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

← Июнь 2010 →
	1	2	3	4 04.06.2010 00:04:42 21:29:10	5	6
7	8 08.06.2010 00:18:54 23:04:16	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 за неделю

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

Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

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

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

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

Номер выпуска:	1104
Дата выхода:	09.06.2010, 23:30
Администратор рассылки:	Boriss, Академик
Подписчиков / экспертов:	203 / 178
Вопросов / ответов:	4 / 5

Вопрос № 178847: Добрый день! Помогите пожалуйста,вот с таким заданием на Pascal ABC Проверить,встречается ли в файле целых чисел отрицательное число между первыми двумя вхождениями нуля...

Вопрос № 178848: Добрый день,уважаемые эксперты: Помогите пожалуйста разобраться с таким заданием: Описать процедуру,которая переписывает содержимое одного текстового файла в другой,оставляя в каждой строке все символы от первого вхождения, в текущей строке, си...

Вопрос № 178850: Добрый день! Помогите пожалуйста,вот с такой задачей: В текстовом файле t1 записана последовательность вещественных чисел,разделенными пробелами.Описать процедуру WriteMore(t1,t2) записывающую в текстовый файл t2 все числа из t1,большие полусум...

Вопрос № 178851: Добрый день! Помогите разобраться вот с таким заданием: В файл вещественных чисел,вставить нуль между каждыми двумя отрицательными элементами Среда- Pascal ABC...

Вопрос № 178847:

Добрый день! Помогите пожалуйста,вот с таким заданием на Pascal ABC
Проверить,встречается ли в файле целых чисел отрицательное число между первыми двумя вхождениями нуля

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

Отвечает Boriss, Академик :
Здравствуйте, angel.nero.
Вот в приложении код программы, решающей Вашу задачу
Пример окна вывода:

Код:

В файле 178847.dat отрицательное число находится в позиции 55
Нажмите ENTER

Если не будет второго нуля, можно увеличить длину генерируемого файла, увеличив постоянную max_count

Приложение:
CONST theFileName = \'178847.dat\'; max_count = 1000; random_max = 200; VAR f: File of Integer; n: Integer; firstzerou, nextzerou, negative: int64; i: int64; BEGIN // Сначала заполняем случайными Assign(f, theFileName); Rewrite(f); for i:=1 to max_count do Write(f, random(random_max) - random_max div 2); Close(f); Reset(f); // Открываем для чтения и анализа firstzerou := -1; nextzerou := -1; negative := -1; While not(eof(f)) do begin Read(f, n); if (n = 0) then if (firstzerou = -1) then firstzerou := filepos(f)-1 else if (nextzerou = -1) then begin nextzerou := filepos(f) -1; seek(f, firstzerou); for i := firstzerou to nextzerou do begin Read(f, n); if n < 0 then begin negative := filepos(f) - 1; Break; end; end; Break; end; end; Close(f); if nextzerou = -1 then WriteLn(\'В файле \',theFileName,\' нет двух нулей\') else if negative = -1 then WriteLn(\'В файле \',theFileName,\' между двумя нулями нет отрицательных\') else WriteLn(\'В файле \',theFileName, \' отрицательное число находится в позиции \', negative); WriteLn(\'Нажмите ENTER\'); ReadLn; END.
-----
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss, Академик
Ответ отправлен: 04.06.2010, 13:45
Номер ответа: 261872

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

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

Отправить WebMoney:

Вопрос № 178848:

Добрый день,уважаемые эксперты:
Помогите пожалуйста разобраться с таким заданием:
Описать процедуру,которая переписывает содержимое одного текстового файла в другой,оставляя в каждой строке все символы от первого вхождения, в текущей строке, символа "*" до конца строки.Если в строке нет такого символа,то в выходном файле записать вместо неё пустую строку

Отправлен: 04.06.2010, 14:01
Вопрос задал: angel.nero, Посетитель
Всего ответов: 2
Страница вопроса »

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

Приложение:
uses crt; var f,g:text; i:byte; nf,ng,s,s1:string; begin clrscr; write(\'Имя файла для чтения: \'); readln(nf); nf:=nf+\'.txt\'; assign(f,nf); {$I-} reset(f); {$I+}{пытаемся открыть файл для чтения} if IOResult <> 0 then begin writeLn(\'Файл \',nf,\' не найден!\'); writeLn(\'Работа программы завершена. Нажмите ENTER\'); readln; exit; end; write(\'Имя файла для записи: \'); readln(ng); ng:=ng+\'.txt\'; assign(g,ng); rewrite(g); while not eof(f) do{пока не конец файла} begin readln(f,s);{читаем строки} if pos(\'*\',s)=0 then writeln(g,\'\'){если нет звездочки пишем пустую строку} else writeln(g,copy(s,pos(\'*\',s),length(s)-pos(\'*\',s)+1));{если есть, конец строки начиная от первой звездочки} end; close(f); close(g); write(\'Файл \',nf,\' переписан в файл \',ng); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 04.06.2010, 14:17
Номер ответа: 261874

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

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

Отправить WebMoney:

Отвечает Великий Александр, 3-й класс :
Здравствуйте, angel.nero.
Предлагаю Вам свой вариант программы с комментариями (в приложении)

Приложение:
program refiles; {любое имя программы, а можно и вообще без него} var f1, f2: text; {переменные для текстовых файлов} st: string; b: boolean; begin Assign(f1,\'from.txt\'); {файл откуда считывать строки (находится в папке с программой) from.txt} Assign(f2,\'to.txt\'); {файл куда записывать результат (создавать не обязательно) to.txt} Reset(f1); {определение их параметров просмотра} Rewrite(f2); while not eof(f1) do {пока не просмотрит весь файл повторять} begin ReadLn(f1, st); {считывать строку} b:= false; while ((ord(st[0])>0) and (not b)) do {искать первое вхождение в нее символа *} begin if st[1]=\'*\' then b:=true; delete(st,1,1); end; WriteLn(f2,st); {записывать полученную строку - так уж получается что в случае если символ * не был обнаружен в строке, то st будет равна пустой строке, что и требуется} end; Close(f1); {закрываем файлы, если этого не сделать то возможно потеря данных (конкретно результатов). Дело в том что pascal при этой команде принудительно записывает данные в файл и кеша} Close(f2); end.

Ответ отправил: Великий Александр, 3-й класс
Ответ отправлен: 04.06.2010, 15:53
Номер ответа: 261877

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

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

Отправить WebMoney:

Вопрос № 178850:

Добрый день!
Помогите пожалуйста,вот с такой задачей:
В текстовом файле t1 записана последовательность вещественных чисел,разделенными пробелами.Описать процедуру WriteMore(t1,t2) записывающую в текстовый файл t2 все числа из t1,большие полусуммы минимального и максимальных элементов последовательности

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

Отвечает Пупорев Юрий Борисович, Специалист :
Здравствуйте, angel.nero!
Создайте, лучше в папке с программой текстовый файл, заполненный по условию, разделитель целой и дробной части обязательно точка. Типа так
1.23 5.36 12.56 45.89 0.23 54.23
-2.36 -0.23 2.36
Код программы в приложении.

Приложение:
uses crt; procedure WriteMore(var t1,t2:text); var a,mn,mx,sr:real; k:integer; begin reset(t1);{открываем файл для чтения} read(t1,mn);{читаем первое число} mx:=mn;{пока оно и минимум и максимум} while not eof(t1) do{пока не конец файла} begin read(t1,a);{читаем числа} if a<mn then mn:=a;{находим минимум} if a>mx then mx:=a;{максимум} end; close(t1);{закрываем файл} sr:=(mn+mx)/2;{среднее} writeln(\'Минимум=\',mn:0:2,\' максимум=\',mx:0:2,\' среднее=\',sr:0:2); reset(t1);{снова открываем} while not eof(t1) do begin read(t1,a); if a>sr then write(t2,\' \',a:0:2);{если больше среднего в новый файл} end; close(t1);{закрываем оба файла} close(t2); end; var f,g:text; a:real; nf,ng:string; begin clrscr; write(\'Имя файла для чтения: \'); readln(nf); nf:=nf+\'.txt\'; assign(f,nf); {$I-} reset(f); {$I+} if IOResult <> 0 then begin writeLn(\'Файл \',nf,\' не найден!\'); writeLn(\'Работа программы завершена. Нажмите ENTER\'); readln; exit; end; close(f); write(\'Имя файла для записи: \'); readln(ng); ng:=ng+\'.txt\'; assign(g,ng); rewrite(g); WriteMore(f,g); write(\'Файл \',nf,\' переписан в файл \',ng); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 04.06.2010, 15:36
Номер ответа: 261875

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

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

Отправить WebMoney:

Вопрос № 178851:

Добрый день!
Помогите разобраться вот с таким заданием:
В файл вещественных чисел,вставить нуль между каждыми двумя отрицательными элементами

Среда- Pascal ABC

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

Отвечает Boriss, Академик :
Здравствуйте, angel.nero.
Вот посмотри в приложении код
А вот пример окна вывода программы:

Код:

Исходный файл
-0.2737  0.1735  -0.1799  -0.171  -0.3104  0.2995  0.2798  -0.0076  0.4375  0.05
06  -0.2185  -0.0763  -0.4913  -0.4075  -0.0514  -0.1739  -0.3274  -0.3036  -0.3
614
 0.4591
После изменения
-0.2737  0.0000  0.1735  -0.1799  0.0000  -0.171  0.0000  -0.3104  0.0000  0.299
5  0.2798  -0.0076  0.0000  0.4375  0.0506  -0.2185  0.0000  -0.0763  0.0000  -0
.4913  0.0000  -0.4075  0.0000  -0.0514  0.0000  -0.1739  0.0000  -0.3274  0.000
0  -0.3036  0.0000  -0.3614  0.0000  0.4591  
Нажмите ENTER

Приложение:
const rFileName = \'178851.dat\'; count = 20; // Число чисел nul : Real = 0; VAR f : File of Real; i, n: int64; r, buf : Real; BEGIN // Заполним случайными WriteLn(\'Исходный файл\'); Assign(f, rFileName); Rewrite(f); for i := 1 to count do begin r := random - 0.5; Write(f, r); Write(r:6:4, \' \'); end; WriteLn; // Переходим к началу Reset(f); While NOT EOF(f) do begin Read(f, r); if r < 0 then begin n := FilePos(f); // положение отрицательного if n < FileSize(f) then begin i := FileSize(f); Seek(f, i + 1); // увеличиваем длину на 1 // Переписываем элементы - освобождаем место for i:= i downto n do begin Seek(f ,i-1); Read(f, buf); Write(f, buf); end; Seek(f, n); Write(f, nul); end end end; WriteLn(\'После изменения\'); Reset(f); While NOT EOF(f) do begin Read(f,r); Write(r:6:4,\' \'); end; Close(f); WriteLn; WriteLn(\'Нажмите ENTER\'); ReadLn; END.
-----
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss, Академик
Ответ отправлен: 05.06.2010, 23:21
Номер ответа: 261910

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

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

Отправить WebMoney:

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

← Июнь 2010 →

4 04.06.2010 00:04:42 21:29:10

8 08.06.2010 00:18:54 23:04:16

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

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

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

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

В избранное

{#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}