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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 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
Выпуск № 631
от 13.04.2008, 09:05

Администратор:	Калашников О.А.
В рассылке:	Подписчиков: 253, Экспертов: 46
В номере:	Вопросов: 6, Ответов: 7

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

Вопрос № 130996: Уважаемые эксперты помогите пожалуйста с этими задачками ну оочень нужно. 1. Дано число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение элементов k-го столбца данной матрицы. 2. Дана квадратная матрица порядка M. Выв...

Вопрос № 131039: Здравствуйте, и снова у меня 2-е задачки на массивы: 1. Уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненные нулями (оформить в виде процедуры). 2. Найти номер первой из строк, содержащих хотя бы один положительный элемент ...

Вопрос № 131040: Уважаемые эксперты! Есть задача: В массиве случайных чисел необходимо найти последовательности положительных чисел, где максимальное и минимальное значения в этой последовательности ближе всего друг к другу. ∙ 0 считается положительным ч...

Вопрос № 131042: Пусть вводиться последовательность вещественных чисел оканчивающиеся нулем состоящая более чем из одного ненулевого элемента. Определите: а) содержит ли последовательность хотя бы одну пару равных соседних элементов. б) сколько раз в посл...

Вопрос № 131044: Уважаемые помогите пожалуйста! Даны две вещественные матрицы А(7,7) и В(5,5). Из матрицы сформировать одномерный массив С по правилу Из разностей наибольших и наименьших значений элементов строки.А из матрицы В по этому же правилу сформировать одноме...

Вопрос № 131048: Здравствуйте уважаемые эксперты! У меня возник вопрос как решить такое задание: В типизированном файле нужно записать информацию про книгу(автор, название, год издания). А после этого создать динамическую структуру, в которую мы записываем информ...

Вопрос № 130.996

Уважаемые эксперты помогите пожалуйста с этими задачками ну оочень нужно.
1. Дано число k (0 < k < 11) и матрица размера 4 x 10. Найти сумму и произведение элементов k-го столбца данной матрицы.
2. Дана квадратная матрица порядка M. Вывести минимальные|максимальные из элементов каждой ее диагонали, параллельной главной|побочной (начиная с одноэлементной диагонали A[1,M]|A[1,1]).

Отправлен: 07.04.2008, 14:16
Вопрос задал: Stamp (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Delph
Здравствуйте, Stamp!

В приложении - решение первой из Ваших задач.
Приложение:
Program Pr130996_1; Uses CRT; Const M = 4; N = 10; Var Arr : Array[1..M, 1..N] of Integer; i, j, k, Mul, Sum : Integer; Begin ClrScr; Randomize; WriteLn('Содержимое исходной матрицы: '); for i := 1 to M do begin for j := 1 to N do begin Arr[i, j] := Random(16); Write(Arr[i, j]: 4); end; WriteLn; end; WriteLn; {Ждём ввода правильного значения} Repeat Write('Введите номер столбца k: '); ReadLn(k); Until (k > 0) and (k <= N); Sum := 0; Mul := 1; for i := 1 to M do begin Mul := Mul * Arr[i, k]; Sum := Sum + Arr[i, k]; end; WriteLn('Сумма ', k, '-го столбца: ', Sum); WriteLn('Произведение ', k, '-го столбца: ', Mul); ReadLn; End.
---------
Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент)
Ответ отправлен: 07.04.2008, 14:43
Оценка за ответ: 5
Комментарий оценки:
Большое спасибо)

Вопрос № 131.039

Здравствуйте, и снова у меня 2-е задачки на массивы:
1. Уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненные нулями (оформить в виде процедуры).
2. Найти номер первой из строк, содержащих хотя бы один положительный элемент (оформить в виде функции).

Отправлен: 07.04.2008, 17:19
Вопрос задал: Брель В.А (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Брель В.А!
Привожу решение второй задачи. Смотрите приложение.
Приложение:
uses crt; const n=6; m=4; type matr=array[1..n,1..m] of integer; var a:matr; i,j:integer; function Nstr(a:matr):integer; { функция, определяющая номер первой строки с положительным элементом} var k:integer; begin for i:=1 to n do begin k:=0; for j:=1 to m do if a[i,j]>0 then begin k:=k+1; end; if k>=1 then {если есть положительные} begin Nstr:=i; {записываем номер строки и заканчиваем цикл} break; end else if (i=n)and(k=0) then Nstr:=-1; {если таких строк нет, выводим -1} end; end; begin clrscr; randomize; writeln('Matrica A:'); for i:=1 to n do begin for j:=1 to m do begin A[i,j]:=random(10)-8; write(A[i,j]:3); end; writeln; end; readln; Writeln('Pervaia stroka c pol el=',Nstr(a));{вызываем функцию} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент)
Ответ отправлен: 07.04.2008, 19:17

Вопрос № 131.040

Уважаемые эксперты!
Есть задача:
В массиве случайных чисел необходимо найти последовательности положительных чисел, где максимальное и минимальное значения в этой последовательности ближе всего друг к другу.
∙ 0 считается положительным числом
∙ когда речь идет о какой-то последовательности чисел, имеется в виду последовательность с длиной, большей 1;

Никак не могу понять алгоритм вычисления. Буду очень благодарен, если поможете.

Отправлен: 07.04.2008, 17:27
Вопрос задал: Azazel (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Boriss
Здравствуйте, Azazel!
Посмотрите такой вариант, как в приложении. Я ограничиваюсь только 2 элементами. Если брать от 500 до -500, то два одинаковых ВСЕГДА находились
Приложение:
const M = 100; max = 10001; {random генерирует от 0 до M-1} max2 = max div 2; var src_ar:array[1..M] of Integer; i, k, mm, n1, n2: Integer; BEGIN WriteLn; Randomize; for k:=1 to M do begin mm := random(max); src_ar[k]:= max2 - mm; end; WriteLn; for k:=1 to M do write(src_ar[k]:8); WriteLn; n1:=0; n2:=0; for i:=1 to M-1 do begin if n1 = 0 then n1 := i; if src_ar[i] >= 0 then begin for k:=i+1 to M do if src_ar[k] >= 0 then begin if n2 =0 then n2 := k else if abs(src_ar[i] - src_ar[k]) < abs(src_ar[n1] - src_ar[n2]) then begin n1:=i; n2:=k end end end end; if n1 = 0 then writeLn('Положительных элементов нет') else if n2 = 0 then WriteLn('Здесь только один положительный элемент') else WriteLn(src_ar[n1]:5, src_ar[n2]:5,' (',n1:4,', ',n2:4,') '); END.
---------
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор)
Россия, Саранск
Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники
WWW: Программирование на Паскале
----
Ответ отправлен: 10.04.2008, 17:04

Вопрос № 131.042

Пусть вводиться последовательность вещественных чисел оканчивающиеся нулем состоящая более чем из одного ненулевого элемента.
Определите:
а) содержит ли последовательность хотя бы одну пару равных соседних элементов.
б) сколько раз в последовательности меняеться знак при переходе к следующему элементу.

Отправлен: 07.04.2008, 17:28
Вопрос задал: Кузнецов Алексей Владимирович (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Tribak
Здравствуйте, Кузнецов Алексей Владимирович!
код в приложении:
Приложение:
program www; var a1,a2:real; b1,b2,znak,odinakov:boolean; begin readln(a2); if a2<0 then b2:=false else b2:=true; odinakov:=false; repeat a1:=a2; b1:=b2; readln(a2); if a2<>0 then begin if a2<0 then b2:=false else b2:=true; if b1 xor b2 then znak:=true; if a1=a2 then odinakov:=true; end; until a2=0; if znak then writeln('change znak'); if odinakov then writeln('ect odinakovie'); readln; end.

Ответ отправил: Tribak (статус: 9-ый класс)
Ответ отправлен: 07.04.2008, 18:19

Отвечает: Шемет Станислав Васильевич
Здравствуйте, Кузнецов Алексей Владимирович!
Программа в приложении
Удачи!!!!
Приложение:
Var R,r1:real; B:boolean; Col:word; Begin b:=false; col:=0; Readln(r); REpeat Readln(r1); If r=r1 then b:=true; If ((r>0)and(r1<0))or((r<0)and(r1>0)) then INc(col); until r=0; If b then WRiteln('Есть парa равных соседних элементов') else WRiteln('Нет пар равных соседних элементов') Writeln('Знак меняеться ',col,' раз'); readln end.
---------
Любовь это прекрасно!!!

Ответ отправил: Шемет Станислав Васильевич (статус: 5-ый класс)
Ответ отправлен: 07.04.2008, 21:26

Вопрос № 131.044

Уважаемые помогите пожалуйста! Даны две вещественные матрицы А(7,7) и В(5,5). Из матрицы сформировать одномерный массив С по правилу Из разностей наибольших и наименьших значений элементов строки.А из матрицы В по этому же правилу сформировать одномерный массив Д. Для ввода матриц, формирования одномерных массивов и вывода одномерных массивов применить три procedure При вводе матриц и выводе одномерных массивов вывести на
экран сообщение указанием соответственно имени вводимой матрицы или имени выводимого одномерного массива.

Отправлен: 07.04.2008, 17:47
Вопрос задала: Саппарова Юлия Владимировна (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович
Здравствуйте, Саппарова Юлия Владимировна!
Решение задачи, соответствующее вашему условию в приложении.
Приложение:
uses crt; type mass=array[1..10]of real; matr=array[1..10]of mass; var A,B:matr; C,D:mass; procedure Vvod(p:byte;var H:matr); {p-размерность матрицы} var i,j:byte; begin for i:=1 to p do begin for j:=1 to p do begin H[i,j]:=random(10)+random; write(H[i,j]:5:2); end; writeln; end; readln end; procedure FormMass(p:byte;H:matr;var V:mass); var i,j:byte; min,max:real; begin for i:=1 to p do begin min:=H[i,1];max:=H[i,1]; for j:=1 to p do begin if H[i,j]<min then min:=H[i,j] else if H[i,j]>max then max:=H[i,j]; end; V[i]:=max-min; {формируем массив из разности элеметов} end; end; procedure Vyvod(p:byte;var V:mass); var i:byte; begin for i:=1 to p do write(V[i]:5:2); readln end; begin {начало основной программы} clrscr; randomize; writeln('Matrica A:'); Vvod(7,A); {ввод матрицы А} writeln('Massiv C:'); FormMass(7,A,C); {формируем массив С} Vyvod(7,C); {выводим его на экран, далее все аналогично} writeln; writeln('Matrica B:'); Vvod(5,B); writeln('Massiv D:'); FormMass(5,B,D); Vyvod(5,D); end.

Ответ отправил: Пупорев Юрий Борисович (статус: Студент)
Ответ отправлен: 07.04.2008, 20:13
Оценка за ответ: 5

Вопрос № 131.048

Здравствуйте уважаемые эксперты! У меня возник вопрос как решить такое задание:
В типизированном файле нужно записать информацию про книгу(автор, название, год издания). А после этого создать динамическую структуру, в которую мы записываем информацию из созданого файла(т.е. информацию про книгу).
Заранее благодарю.

Отправлен: 07.04.2008, 18:11
Вопрос задал: bellick (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 9)

Отвечает: Зенченко Константин Николаевич
Здравствуйте, bellick!

Программа в приложении.
Т.к. список организован самый простой, то вывод производится в обратном порядке.
Удачи!
Приложение:
type TBook=^RBook; RBook=record Name,What:string[20]; When:integer; next:TBook; end; TFile=file of RBook; var a:RBook;{переменная для работы с файлом} b,c:TBook;{переменные динамичестой структыры} z:TFile;{файловая переменная} begin {открываем файл для записи} assign(z,'Q131048.txt'); rewrite(z); repeat {вводим имя автора} write('Name:'); readln(a.Name); {если имени нет конец ввода} if a.Name<>'' then begin {вводим остальные данные} write('What:'); readln(a.What); write('When:'); readln(a.When); {записываем в файл} write(z,a); end; until a.Name=''; {закрываем файл} close(z); {открываем для чтения} reset(z); c:=nil; while not(eof(z))do begin {читаем информацию об одном авторе-книге} read(z,a); {создаем динамическую переменную} new(b); {присваивеем ей значения} b^.Name:=a.Name; b^.What:=a.What; b^.When:=a.When; {включаемся в список} b^.Next:=c; c:=b; end; close(z); {выводим введенный список} while b<>nil do begin c:=b^.next;{запоминаем следующий элемент} writeln('A:':10,b^.Name:20,' B:':10,b^.What:20,' C:':6,b^.When:6);{выводим информацию} dispose(b);{освобождаем память от текущей переменной} b:=c;{делаем следующую переменную текущей} end; end.
---------
И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал)
Украина, Киев
Тел.: +380958380164
Адрес: Украина г.Киев
----
Ответ отправлен: 08.04.2008, 13:06

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

Оценить этот выпуск рассылки >>

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

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

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.

Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права \| Реклама на портале ∙ Версия системы: 4.90 pre 5.0 RC1 от 13.04.2008
RusFAQ.ru \| MosHoster.ru \| MosDesigner.ru \| RusIRC.ru Kalashnikoff.ru \| RadioLeader.ru \| RusFUCK.ru

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти">  <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}

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

Статистика

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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / PascalВыпуск № 631от 13.04.2008, 09:05

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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal
Выпуск № 631
от 13.04.2008, 09:05