ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
12.04.2010, 21:08
|
|
Участник форума
Регистрация: 26.02.2009
Сообщений: 227
Провел на форуме:
1564765
Репутация:
208
|
|
del
Последний раз редактировалось Baofy; 12.04.2010 в 21:35..
|
|
|
12.04.2010, 21:32
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от Baofy
элементы одномерного массива Т(К) получаются по формуле T(K)=tg(2K)-Kcos(K) где К-позиция элемента в массиве Т(К). Необходимо сформировать новый массив В(К) в котором элементы массива Т(К) стоящие на позиции кратной трем будут заменены средним арифметическим значением этих элементов
помогите решить пожалуйста
PHP код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,math;
var k,i:integer;
T,B:array[1..255] of real;
sum,sr:real;
begin
writeln('vvedite I');
readln(i);
for k:=1 to i do
begin
t[k]:=tan(2*k)-k*cos(k);
sum:=sum+t[k];
write(round(t[k]),' ');
end;
writeln;
sr:=sum/k;
writeln(round(sr));
for k:=1 to i do
begin
if k mod 3=0 then b[k]:=sr else b[k]:=t[k];
write(round(b[k]),' ');
end;
readln;
end.
и вопрос, среднее арифметическое элементов которые стоят на позиции кратной трем или всех элементов??? просто у меня среднее арифм всех элементов..
Последний раз редактировалось EndLeSSDre@M; 12.04.2010 в 21:36..
|
|
|
|
12.04.2010, 21:14
|
|
Новичок
Регистрация: 15.01.2010
Сообщений: 28
Провел на форуме:
466864
Репутация:
3
|
|
Надо отправить текст из мемо1 на электронную почту делаю так:
idmessage1.Body := memo1.Lines;
idmessage1.From.Text := 'получатель@mail.ru';
idmessage1.Recipients.Add;
idmessage1.Recipients.Items[0].Text := 'отправитель@mail.ru';
idmessage1.Subject := '+1akk' ;
idsmtp1.Host := 'mail.ru';
idsmtp1.Port := 25;
idsmtp1.Username := 'ящик отправителя' ;
idsmtp1.Password :='пароль от ящика';
idsmtp1.AuthenticationType :=atLogin;
IdSMTP1.Connect(10);
if IdSMTP1.Connected then
begin
IdSMTP1.Send(Idmessage1)
end;
IdSMTP1.Disconnect;
end;
Запускаю прогу, выпрыгивает ошибка connection closed gracefully что делать?
уже не надо нашёл видео урок
http://delphiexpert.ru/view_lesson.php?id=46
Последний раз редактировалось logger; 12.04.2010 в 21:26..
|
|
|
|
12.04.2010, 21:34
|
|
Познающий
Регистрация: 26.02.2010
Сообщений: 76
Провел на форуме:
522804
Репутация:
16
|
|
logger, это не ошибка, это сообщение, что предыдущее соединение завершено.
PHP код:
SMTP.Host:='smtp.mail.ru';
SMTP.Port:=25;
SMTP.Username:='ящик отправителя';
SMTP.Password:='пароль от ящика';
SMTP.AuthenticationType:=atLogin;
with IdMessage do
begin
From.Text := 'отправитель@mail.ru';
Recipients.EMailAddresses := 'получатель@mail.ru';
Subject := '1akk';
IdMessage.Body.Add('bla bla bla' + memo1.Lines);
end;
SMTP.Connect;
try
SMTP.Send(IdMessage);
finally
SMTP.Disconnect;';
Брось на форму: POP3; IdMessage; SMTP
|
|
|
|
12.04.2010, 21:37
|
|
Участник форума
Регистрация: 26.02.2009
Сообщений: 227
Провел на форуме:
1564765
Репутация:
208
|
|
EndLeSSDre@M спасибо большое
|
|
|
|
13.04.2010, 08:04
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
DdoNbAsS, нет, книга под рукой должна быть. Но лучше брать какие нибудь задачи и пробовать решать, заодно и вв гугле искать научишься. На intuit.ru курсы есть неплохие.
|
|
|
|
13.04.2010, 08:58
|
|
Новичок
Регистрация: 15.01.2010
Сообщений: 28
Провел на форуме:
466864
Репутация:
3
|
|
Подскажите авторизация вконтакте делаю так:
Http := TIdHTTP.Create(Self);
Data := TStringList.Create;
Data.Add('email='+Edit1.Text);
Data.Add('pass='+Edit2.Text);
Data.Add('expire=');
Data.Add('vk=');
StrPage := Http.Post('http://vkontakte.ru/login.php', Data);
WebBrowser1.Navigate('http://vkontakte.ru/apps.php');
Но веб браузер выводит не авторизованную страницу.
|
|
|
|
13.04.2010, 09:35
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Сообщение от logger
Подскажите авторизация вконтакте делаю так:
Http := TIdHTTP.Create(Self);
Data := TStringList.Create;
Data.Add('email='+Edit1.Text);
Data.Add('pass='+Edit2.Text);
Data.Add('expire=');
Data.Add('vk=');
StrPage := Http.Post('http://vkontakte.ru/login.php', Data);
WebBrowser1.Navigate('http://vkontakte.ru/apps.php');
Но веб браузер выводит не авторизованную страницу.
Ты авторизируешся через idhttp, а не через webbrowser.
Они между собой никак не взаимодействуют.
И вообще авторизация через инди не так делается.
|
|
|
|
13.04.2010, 10:25
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
logger, вконтакте вообще 3 авторизация вроде.
Vkontakte.ru/login.php
login.vk.com/?act=login
Vkontakte.ru/login.php
и потом в profile.php кидает
Вроде так
|
|
|
|
13.04.2010, 11:19
|
|
Новичок
Регистрация: 15.01.2010
Сообщений: 28
Провел на форуме:
466864
Репутация:
3
|
|
А что ни как не сделать, чтобы браузер был связан с IDHTTP и при нажатии на кнопку кидал уже на авторизованную страницу?
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
