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

←   Декабрь 2002   →
						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.942 подписчиков
0 за неделю

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

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

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

Информационный Канал Subscribe.Ru

---

---

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

Выпуск № 066
от 12.12.2002, 09:40

Администратор: Имя: Sensey URL: Информационный ресурс ICQ: 105679124 Украина, Харьков

О рассылке: Задано вопросов: 114 Отправлено ответов: 306 Активность: 268.4 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

Список экспертов, ответы которых опубликованы в данном выпуске

Tancho Статус: Начальный Общий рейтинг: 128 [Подробней >>]	X-RayMan Статус: Начальный Общий рейтинг: 144.44 [Подробней >>]	Pinman Статус: Опытный Общий рейтинг: 149.03 URL: Программирование и заработок [Подробней >>]
Ace Статус: Доверительный Общий рейтинг: 148.48 [Подробней >>]	Necro Статус: Доверительный Общий рейтинг: 111.14 [Подробней >>]	Sensey Статус: Профессиональный Общий рейтинг: 122.41 URL: Страничка рассылки по Паскалю Телефон: +38 (0572) 41-76-04 дом. [Подробней >>]
Vadim Статус: Доверительный Общий рейтинг: 145.65 [Подробней >>]	vitya Статус: Профессиональный Общий рейтинг: 108.08 [Подробней >>]

---

Краткий перечень вопросов

Вопрос № 113. Помогите пожалуйста! Нужно написать прогу, с метками получается, но НУЖНО БЕЗ меток. Задание: Даны д... (ответов: 8)
Вопрос № 114. Доброго времени суток, уважаемые эксперты. Скажите мне, как эксперты - эксперту :). Как организовать... (ответов: 4)

---

Вопросов: 2, ответов: 12

---

Вопрос № 113

Помогите пожалуйста!
Нужно написать прогу, с метками получается, но НУЖНО БЕЗ меток.
Задание: Даны действительные числа a, b, c, d. Если a ≤ b ≤ c ≤ d, то каждое число заменить наибольшим из них; если a > b > c > d, то числа оставить без изменения; в противном случае все числа заменяются их квадратами.
Написал без меток, но при этом выдет два ответа.
Как сделать без меток?
P.S. только не сильно заумным языком, не давно начал паскаль изучать.

Приложение:
var a,b,c,d:real; begin write('vvedite 4 chisla: '); read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; d:=d; writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); goto exit; end; if (a>b) and (b>c) and (c>d) then writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2) else begin a:=sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d); writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end; end.

---

Вопрос отправлен: 08.12.2002, 13:54
Отправитель: MadMan (madman@pisem.net)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Tancho

Добрый день, MadMan!
Смотри в Приложению несколько видоизмененая
твоя прога!Здесь все как тебе нужно! Нет никаких меток!


Приложение:
var a,b,c,d:real; begin write('vvedite 4 chisla: '); read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; d:=d; writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); { goto exit;} end else if (a>b) and (b>c) and (c>d) then writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2) else begin a:=sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d); writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end end.

---

Ответ отправлен: 11.12.2002, 12:01
Отправитель: Tancho

---

Отвечает X-RayMan

Доброго времени суток, MadMan!
Смотри приложение.
Зачем проверять все три условия? Тем более, что при одном из них числа не меняются. Надо проверять только те при которых эти самые числа меняютя. Т.е. условие a≤b≤c≤d, и если НЕ выполняется условие a>b>c>d.

Приложение:
var a,b,c,d: Real; begin write('Введите 4 числа => '); Read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; end else if (a<=b) or (b<=c) or (c<=d) then begin a:=sqr(a);b:=sqr(b); c:=sqr(c);d:=sqr(d); end; WriteLn(a:4:2,' ',b:4:2,' ',c:4:2,' ',d:4:2); end.

---

Ответ отправлен: 08.12.2002, 23:26
Отправитель: X-RayMan

---

Отвечает Pinman

Добрый день, MadMan!
См. приложение.

Приложение:
var a,b,c,d:real; begin write('vvedite 4 chisla: '); read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; d:=d; writeln ('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end else if (a>b) and (b>c) and (c>d) then writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2) else begin a:=sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d); writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end; end.

---

Ответ отправлен: 08.12.2002, 21:55
Отправитель: Pinman

---

Отвечает Ace

Приветствую Вас, MadMan!
А что такое ? Если <=, то твоя задача решается следующим образом (см. приложение).

Приложение:
var a,b,c,d:real; begin write('vvedite 4 chisla: '); read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end else if (a>b) and (b>c) and (c>d) then writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2) else begin a:=sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d); writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end; end.

---

Ответ отправлен: 09.12.2002, 19:17
Отправитель: Ace

---

Отвечает Necro

Добрый день, MadMan!
Убери goto exit;и поставь после следующего за ним енда else вместо точки с запятой.

---

Ответ отправлен: 08.12.2002, 14:11
Отправитель: Necro

---

Отвечает Sensey

Доброе время суток, MadMan!
Держи, с минимальными исправлениями


Приложение:
var a,b,c,d:real; begin write('vvedite 4 chisla: '); read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; d:=d; writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end else if (a>b) and (b>c) and (c>d) then begin writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2) end else begin a:=sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d); writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end; end. 2 вариант var a,b,c,d:real; begin write('vvedite 4 chisla: '); read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; d:=d; end else if (a>b) and (b>c) and (c>d) then begin end else begin a:=sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d); end; writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end.

---

Ответ отправлен: 08.12.2002, 14:13
Отправитель: Sensey

---

Отвечает Vadim

Доброе время суток, MadMan!
У тебя все правильно! Судя по заданию у тебя и должен два раза выводится результат :)). См. приложение, программа bol.
А вот если задание сформулировать немного по другому, например так:
Задание:
Даны действительные числа a, b, c, d.
Если a <= b <= c <= d, то каждое число заменить наибольшим из них;
ИНАЧЕ, если a > b > c > d, то числа оставить без изменения;
в противном случае все числа заменяются их квадратами.
См. приложение, программа bol1.
Т.е. все дело в том, КАК СФОРМУЛИРОВАНО ЗАДАНИЕ. Без метки ты правильно выполнил задание, с меткой - НЕ ПРАВИЛЬНО.
В твоем задании, по-логике, у тебя две отдельные проверки данных, в том задании, которое сформулировал я, проверка КАСКАДНАЯ, т.е. ЕСЛИ не выполняется первое условие, ТО проверяется второе услоие. В результате получается ответ в едиственном числе.
Теперь посмотрим формулировку задания у тебя. ЕСЛИ выполняется первое условие, ТО печатаем результат первый раз. Вне зависимости от проверки первого условия проверяем второе и ЕСЛИ оно выполняется (или не выполняеися, а оно обязательно не выполняется, если выполняется первое условие) печатаем результат второй раз. Вот такие пироги с котятами :)).


Приложение:
Program bol; var a,b,c,d:real; begin write('vvedite 4 chisla: '); read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; {d:=d; это лишнее :) } writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end; if (a>b) and (b>c) and (c>d) then writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2) else begin a:=sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d); writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end; end. Program bol1; var a,b,c,d:real; begin write('vvedite 4 chisla: '); read(a,b,c,d); if (a<=b) and (b<=c) and (c<=d) then begin a:=d; b:=d; c:=d; {d:=d; это лишнее :) } writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end Else if (a>b) and (b>c) and (c>d) then writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2) else begin a:=sqr(a); b:=sqr(b); c:=sqr(c); d:=sqr(d); writeln('rezultat: ',a:5:2,', ',b:5:2,', ',c:5:2,', ',d:5:2); end; end.

---

Ответ отправлен: 09.12.2002, 08:20
Отправитель: Vadim

---

Отвечает vitya

Доброе время суток, MadMan!
Просто поставь перед вторым
if (a <= b) and (b <= c) and (c <= d) then
begin
...
end
else if (a > b) and (b > c) and (c > d) then
begin
...
end
else
begin
...
end;

---

Ответ отправлен: 09.12.2002, 11:09
Отправитель: vitya

---

Вопрос № 114

Доброго времени суток, уважаемые эксперты.
Скажите мне, как эксперты - эксперту :). Как организовать неопределенный список параметров? Например как в write - сколько введу, столько и будет.

---

Вопрос отправлен: 09.12.2002, 01:46
Отправитель: X-RayMan (x_rayman@vinnitsa.com)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Pinman

Доброе время суток, X-RayMan!
procedure MyWrite(var val:array of byte);
var i:byte;
begin
for i:=0 to High(val) do Write(val[i]);
end;
Учти, при этом индексация ВСЕГДА начинается с 0, а максимальный номер берем с помощью High.

---

Ответ отправлен: 09.12.2002, 22:01
Отправитель: Pinman

---

Отвечает Vadim

Добрый день, X-RayMan!
Боюсь, что просто так - никак. Дело в том, что Write - это не функция, это макрос (где-то в факах по паскалю об этом прочитал :). Неопределеный список параметров (кстати, что ты имел в виду - их количество или типы?) можно реализовать посылая в качестве параметра коллекцию объектов, типа:
Function MyFunc(C: PCollection): TypeOfResult;
Как ты вероятно знаешь, в коллекцию можно помещать указатели на что угодно, не только на объекты. Это по сути своей динамический массив указателей.
Как частный случай можно использовать массив неопределенной длины:
Function MyFunc(C: array of string): TypeOfResult;
или допустим
Function MyFunc(C: array of integer): TypeOfResult;
а дальше уже проводишь обработку элементов массива от 0 до High(C).
С массивами получается проще, но они должны быть всегда одного типа, а с коллекциями - универсальнее, объекты в них могут быть многотипны.

---

Ответ отправлен: 09.12.2002, 05:33
Отправитель: Vadim

---

Отвечает Necro

Добрый день, X-RayMan!
Я где-то читал, что write - это, в принципе, макрос, и поэтому ответ на твой вопрос - никак ^_^ Но есть выход - сделай параметром массив и число n - и первые n элементов массива считай параметрами.

---

Ответ отправлен: 09.12.2002, 07:52
Отправитель: Necro

---

Отвечает Sensey

Добрый день, X-RayMan!
В Паскале через левое плечо правой ногой :)
Можно передавать только массив
например
procedure p(a:array of pointer);
begin
end;
В этом случае ты сам должен контролировать кол-во параметров, например передавать первым...
И приводить к типу тоже вручную... Или передавать однотипные параметры...
В С++ это реализовано вроде, но по другому...

---

Ответ отправлен: 09.12.2002, 11:44
Отправитель: Sensey

---

---

Форма отправки вопроса

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

---

Вопрос и дополнение

Ваш вопрос:


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


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

Выбор рассылки

Программисту Assembler (41) C / C++ (30) Perl (7) Delphi (23) Pascal (26) Basic / VBA (10) Java / JavaScript (10) PHP (5) MySQL / MSSQL (7)

Пользователю Windows 95/98/Me (30) Windows NT/2000/XP (22) "Железо" (30) Поиск информации (12)

Администратору Windows NT/2000/XP (11) Linux / Unix (14)

Юристу Гражданское право (10) Семейное право (3) Трудовое право (6) КоАП (3)

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

---

---

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

---

http://subscribe.ru/ E-mail: ask@subscribe.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}