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

←   Май 2004   →
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30
31

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

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

Автор

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

Статистика

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

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

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

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

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

---

---

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

Выпуск № 289
от 18.05.2004, 11:50

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

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

---

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

Boriss Статус: Профессиональный Общий рейтинг: 161.63 URL: Программирование на Паскале [Подробней >>]

sir henry Статус: Профессиональный Общий рейтинг: 161.3 [Подробней >>]

CrackLab Статус: Доверительный Общий рейтинг: 156.25 [Подробней >>]

---

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

Вопрос № 482. Уважаемые эксперты! Помогите разобраться! В программе должна транспонироваться матрица, только что з... (ответов: 2)
Вопрос № 483. Всем экспертам доброго времени суток! Это опять я, и опять прошу, если у кого есть то выслать мне ис... (ответов: 3)

---

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

---

Вопрос № 482

Уважаемые эксперты! Помогите разобраться! В программе должна транспонироваться матрица, только что здесь нужно вводить при запуске, чтобы она работала? Размер массива, а потом сам массив? Или как-то по-другому? И как можно дописать программу, чтобы она вычисляла сумму элементов по диагонали матрицы?

Приложение:
program Diag; type Mas=array[1..2] of integer; MasUk=array[1..2] of ^Mas; var M:^MasUk; N,I,J,R:integer; begin {$R-} Read(N); GetMem(M,SizeOf(Mas)*N); for I:=1 to N do begin GetMem(M^[I],2*N); for J:=1 to N do Read(M^[I]^[J]); end; for I:=1 to N do if I<N then for J:=I+1 to N do begin R:=M^[I]^[J]; M^[I]^[J]:=M^[J]^[I]; M^[J]^[I]:=R; end; for I:=1 to N do begin writeln; for J:=1 to N do Write(M^[I]^[J],''); FreeMem(M^[I],2*N); end; FreeMem(M,Sizeof(MaS)*N); {$R+} end.

---

Вопрос отправлен: 14.05.2004, 17:04
Отправитель: Romashka
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Boriss

Приветствую Вас, Romashka!
Добавил вывод и сумму. Надеюсь, поймете. Нет - спросите еще раз

Приложение:
program Diag; uses CRT; type Mas=array[1..2] of integer; MasUk=array[1..2] of ^Mas; var M:^MasUk; N,I,J,R:integer; SumDiagEl: Integer; begin {$R-} Write('Введите размерность матрицы (целое число): '); Read(N); GetMem(M,SizeOf(Mas)*N); WriteLn('Введите элементы матрицы:'); for I:=1 to N do begin GetMem(M^[I],2*N); for J:=1 to N do begin write('M[',i:2,',',j:2,']='); Read(M^[I]^[J]); end; end; ClrScr; WriteLn('Исходная матрца'); for I:=1 to N do begin for J:=1 to N do Write(M^[I]^[J]:8); WriteLn; end; for I:=1 to N do if I<N then for J:=I+1 to N do begin R:=M^[I]^[J]; M^[I]^[J]:=M^[J]^[I]; M^[J]^[I]:=R; end; WriteLn('Транспонированная:'); for I:=1 to N do begin for J:=1 to N do Write(M^[I]^[J]:8); WriteLn; end; SumDiagEl:=0; for I:=1 to N do SumDiagEl:=SumDiagEl + M^[I]^[I]; WriteLn('Сумма диагональных элементов равна ', SumDiagEl); for I:=1 to N do FreeMem(M^[I],2*N); FreeMem(M,Sizeof(MaS)*N); {$R+} end.

---

Ответ отправлен: 14.05.2004, 18:21
Отправитель: Boriss

---

Отвечает sir henry

Доброе время суток, Romashka!

---

Ответ отправлен: 17.05.2004, 05:16
Отправитель: sir henry

---

Вопрос № 483

Всем экспертам доброго времени суток!
Это опять я, и опять прошу, если у кого есть то выслать мне исходники по следующей проблеме!
Создал интерактивное меню работающее с клавиатурой, все нормально выводиться и отображаеться, теперь нужно немножко др. штука - точнее нужен пример меню, только не для выбора а для ввода (например посеридине эрана появляеться маленкий квадратик, куда надо ввести какое либо значение или там уже есть значение, но его нужно изменить) - см. приложение
И второй вопрос: нет ли у кого из вас исходников для работы с графикой, а точнее построение диаграм разних видов с пидписями их значений!

Приложение:
Пример поля ввода: **************** *_ * **************** Вот что то такова!

---

Вопрос отправлен: 15.05.2004, 11:48
Отправитель: monster (monster@polarcom.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает CrackLab

Добрый день, monster!
Глянь и разбери мою старую лабораторную работу (см. приложение)

Приложение:
{$m 16000,0,3200} { Author MozgC [TSRh] } { http://tsrh.crackz.ws http://MozgC.wapz.net } program TextEditor; uses crt, dos; type V = array[1..25,1..80] of record c : Char; a : Byte; end; var A : V absolute $B800:0; DefaultWidth, m, j, i : Integer; c : Char; firsttime, ConstFile, FirstOpt, CorrectOutputName, CorrectInputName : Boolean; OptFilename, InputFileName, OutputFileName, DF, WorkStr, NewStr,word:string; input, output : Text; function CheckFileName(s:string):boolean; var correct, symb : boolean; begin correct:=true; symb:=false; for i:=1 to length(s) do if (s[i]='_')or((s[i]>='a')and(s[i]<='z'))or((s[i]>='A')and(s[i]<='Z')) or((s[i]>='0')and(s[i]<='9')) then begin symb:=true; break end; if symb then for i:=1 to length(s) do if (s[i]='.')or(s[i]='_')or((s[i]>='a')and(s[i]<='z'))or((s[i]>='A')and(s[i]<='Z')) or((s[i]>='0')and(s[i]<='9')) then else begin correct:=false; break end; if not symb then correct:=false; if correct and (s<>'') and (s[length(s)]<>'.') then CheckFileName:=true else CheckFileName:=false; end; procedure CreateWindow(x1,y1,x2,y2,BgC,BC:integer; Caption:string); begin window(x1,y1,x2,y2); textbackground(BgC); TextColor(BC); clrscr; gotoxy(1,1); write('Й'); for i:=1 to x2-x1-1 do write('Н');write('»'); for i:=2 to y2-y1 do begin gotoxy(1,i); write('є'); end; gotoxy(1,y2-y1+1); write('И'); for i:=1 to x2-x1-1 do write('Н'); for i:=2 to y2-y1 do begin gotoxy(x2-x1+1,i); write('є'); end; A[y2,x2].a:=BgC*16+BC;; A[y2,x2].c:='ј'; gotoxy(trunc((x2-x1)/2)-trunc(length(Caption)/2)+1,1); write(Caption); window(1,1,80,25); end; Procedure ct(y:integer; str:string); begin gotoxy(40-trunc(length(str)/2),y); write(str); end; procedure ReadFileName; var FileExists : boolean; begin repeat clrscr; readln(InputFileName); {$I-} Assign(input, InputFileName); Reset(input); Close(input); {$I+} FileExists := (IOResult = 0) and (InputFileName <> ''); until (FileExists); end; procedure GetDFString; begin end; function min(m1,m2:integer):integer; begin if m1<m2 then min:=m1 else min:=m2; end; procedure BeginFormatting; begin Assign(input, InputFileName); reset(input); Assign(output, OutputFileName); rewrite(output); while not EOF(input) do begin readln(input, WorkStr); NewStr:=''; Word:=''; for i:=1 to min(length(WorkStr),DefaultWidth) do if WorkStr[i]<>' ' then word:=word+WorkStr[i] else begin if (length(NewStr)+length(word)) <= DefaultWidth then NewStr:=NewStr+word+' '; word:=''; end; if (length(NewStr)+length(word)) <= DefaultWidth then NewStr:=NewStr+word; writeln(output,NewStr); GetDFString; end; Close(input); Close(output); end; procedure Format; begin OutputFileName := OptFileName; CreateWindow(1,1,80,25,1,15,'PreFormat Window'); CreateWindow(17,7,63,9,1,15,'Input File Name'); window(19,8,61,8); ReadFileName; ct(8,InputFileName); if not ConstFile or (not CheckFileName(OutputFileName)) then begin CreateWindow(17,11,63,13,1,15,'Output File Name'); window(19,12,61,12); repeat readln(OutputFileName); until CheckFileName(OutputFileName); ct(12,OutputFileName); CreateWindow(17,15,63,17,1,15,'To Save Formatted Text to '+OutputFileName); ct(16,'Press Enter'); end else begin CreateWindow(17,11,63,13,1,15,'To Save Formatted Text to '+OutputFileName); ct(12,'Press Enter'); end; ct(23,'Press ESC to Abort File Formatting and Return to the Main Menu'); repeat c:=readkey; until (c=#13) or (c=#27); if c=#13 then BeginFormatting; firsttime:=true; end; procedure ShowOptions; begin if FirstOpt then CreateWindow(1,1,80,25,1,15,'Application Options'); CreateWindow(17,3,63,7,1,15,'Press Enter to Check/Uncheck the Option'); if ConstFile then ct(5,'ы Always Save Formatted Text to One File') else ct(5,'Ask FileName Every Time before Formatting'); CreateWindow(17,9,63,11,1,15,'Press "w" to Set String Width [10 ; 255]'); Str(DefaultWidth,DF); ct(10,DF); CreateWindow(17,13,63,15,1,15,'Press Space to Set the FileName'); if CheckFileName(OptFileName) then ct(14,OptFileName) else ct(14,'File not Set'); CreateWindow(17,17,63,22,1,15,'To Close the Options Window'); ct(19,'Press ESC to Save the Options'); ct(20,'and Return to the Main Menu'); c:=readkey; if c=#0 then c:=readkey; case c of #13: if ConstFile then ConstFile:=false else ConstFile:=true; ' ': begin Window(19,14,61,14); ClrScr; readln(OptFileName); end; #27: begin Firsttime:=true; exit; end; 'w': begin Window(19,10,61,10); ClrScr; repeat clrscr; {$I-} readln(DefaultWidth); {$I+} until (ioresult=0) and(DefaultWidth>=10) and (DefaultWidth<=255); end; end; FirstOpt:=false; ShowOptions; end; procedure ShowAbout; begin CreateWindow(1,1,80,25,1,15,'About the Application'); CreateWindow(17,5,63,7,1,15,'The Author'); ct(6,'MozgC [TSRh]'); CreateWindow(17,9,63,11,1,15,'Creation Date'); ct(10,'8th of April, 2002'); CreateWindow(17,13,63,16,1,15,'The Meaning'); ct(14,'The Program Formates the Text from One File'); ct(15,'And then Saves it to Another File'); CreateWindow(17,18,63,20,1,15,'To Close the About Window'); ct(19,'-=Press Any Key to Continue=-'); c:=readkey; if c=#0 then readkey; firsttime:=true; end; procedure Center(y,tc,bc:integer; str:string); begin textcolor(tc); textbackground(bc); gotoxy(20,y); write(' '); gotoxy(40-trunc(length(str)/2),y); write(str); end; Procedure Files; begin swapvectors; exec(getenv('comspec'),'/c edit.com'); swapvectors; firsttime:=true; end; procedure drawmenu; begin center(10,15,1,'Format a Text File'); center(11,15,1,'Run Edit.com'); center(12,15,1,'Options'); center(13,15,1,'About'); center(14,15,1,'Exit'); end; procedure menu; begin textcolor(1); if firsttime then begin CreateWindow(1,1,80,25,1,15,'Text Formatter'); CreateWindow(18,9,62,15,1,15,''); drawmenu; m:=1; end; if firsttime then center(10,15,4,'-=Format a Text File=-'); c:=readkey; if c=#0 then c:=readkey; case c of #72 : if m=1 then m:=5 else m:=m-1; #80 : if m=5 then m:=1 else m:=m+1; end; case m of 1 : begin drawmenu; center(10,15,4,'-=Format a Text File=-'); end; 2 : begin drawmenu; center(11,15,4,'-=Run Edit.com=-'); end; 3 : begin drawmenu; center(12,15,4,'-=Options=-'); end; 4 : begin drawmenu; center(13,15,4,'-=About=-'); end; 5 : begin drawmenu; center(14,15,4,'-=Exit=-'); end; end; firsttime:=false; if c=#13 then case m of 1: Format; 2: Files; 3: begin FirstOpt:=true; ShowOptions; end; 4: ShowAbout; 5: Exit; end; menu; end; begin TextMode(3); firsttime:=true; ConstFile:=false; DefaultWidth:=80; DF:='80'; MENU; textbackground(0); textcolor(7); clrscr; end.

---

Ответ отправлен: 15.05.2004, 12:15
Отправитель: CrackLab

---

Отвечает Boriss

Здравствуйте, monster!
1) В приложении то, что наваял. Слишком не усложнял. Не разберетесь - пишите
2) Писал когда-то программу для вывода графиков из текстовых файлов, организованных в виде таблиц. Вас что интересует - исходник (ессно, получился не слишком малым) или сама прога?

Приложение:
program a483; uses CRT; procedure ShowCursor; assembler; asm mov ah, 1 mov cl, 7 mov ch, 6 int 10h end; procedure HideCursor; assembler; asm mov ah, 1 mov cl, 1 mov ch, 20h int 10h end; function LineInput(mes: String; Inputlen: Integer): String; const border: array [1..6] of char = ('+','-','+','+','+','¦'); exitChars: Set of Char = [#27, #13]; {Esc и Enter} EmptyStr: String[80] = ''; var OldTextAttr: Byte; x0, y0, x1, y1: Integer; ch: char; Buf: String; begin FillChar(EmptyStr, 80, ' '); EmptyStr[0]:=chr(80); OldTextAttr:=TextAttr; if length(mes) + InputLen > 80 then begin if length(mes) > 23 then mes:=Copy(mes, 1, 20)+'...'; if InputLen > 57 then InputLen:=58; end; mes:=mes+' '; x1:= Length(mes) + InputLen + 1 ; x0:=(Lo(WindMax) - x1) div 2; x1:= x0 + x1; y0:=(Hi(WindMax) - 2) div 2; y1:=y0 + 2; LineInput:=''; Window(x0, y0, x1, y1); TextAttr:=$3e; ClrScr; {red} Window(x0, y0, x1+1, y1); {Рамка} TextAttr:=$3b; x1:=x1-x0+1; GotoXY(1,1); Write(border[1]); GotoXY(x1, 1); Write(border[3]); GotoXY(1,3); Write(border[5]); GotoXY(x1, 3); Write(border[4]); GotoXY(1,2); Write(border[6]); GotoXY(x1, 2); Write(border[6]); for x0:=2 to x1-1 do begin GotoXY(x0,1); Write(border[2]); GotoXY(x0, 3); Write(border[2]); end; x1:=Length(mes)+2; TextAttr:=$3e; GotoXY(2, 2); Write(mes); TextAttr:=$1f; Write(' ':InputLen); Buf:=''; repeat GotoXY(x1, 2); Write(buf); ShowCursor; {+Copy(emptyStr, 1, InputLen - length(buf))); - для очистки при добавлении возможности редактирования} if length(buf) >= InputLen then HideCursor; GotoXY(x1, 2 + Length(buf)); ch:=ReadKey; if (ch >= ' ') and (length(buf) < InputLen) then Buf:=Buf+ch until ch in ExitChars; Window(1, 1, 80, 25); TextAttr:=OldTextAttr; if ch = #13 then LineInput:=buf end; var s: String; BEGIN ClrScr; s:= LineInput('Вводите', 20); WriteLn(s); END.

---

Ответ отправлен: 17.05.2004, 13:33
Отправитель: Boriss

---

Отвечает sir henry

Доброе время суток, monster!
1. Это легко. Делаете окошко в одну строку и другим цветом фона, чем остальной экран. Остальное, в принципе, может и ReadWrite сделать.
2. Загляните на http://pascal.sources.ru, там столько всего интересного :)).

---

Ответ отправлен: 17.05.2004, 05:31
Отправитель: sir henry

---

---

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

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

---

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

Ваше имя:

Ваш e-mail:

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

---

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

Ваш вопрос:


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


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

---

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

Программисту Assembler (24) C / C++ (14) Perl (2) Builder / Delphi (16) Pascal (18) Basic / VBA (2) Java / JavaScript (3) PHP (11) Криптография (5) WinAPI (7) Радиоэлектроника (5)

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

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

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

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

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

---

© 2001-2004 Россия, Москва. Авторское право: Калашников О.А.

---

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}