Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
12.04.2010, 12:16
|
|
Познающий
Регистрация: 06.04.2010
Сообщений: 42
Провел на форуме:
85502
Репутация:
10
|
|
Сообщение от EndLeSSDre@M
из всего написанного я так и не понял что требуется??? и кстати там точки с запятой после врайта не хватает))) поясни свой вопрос в 2х словах!
Учюсь по книгам Паскалю примеры не могу выполнить с книги,То выпевает ошибка,или не сходиться с ответом в книги!
|
|
|
12.04.2010, 12:26
|
|
Познающий
Регистрация: 06.04.2010
Сообщений: 42
Провел на форуме:
85502
Репутация:
10
|
|
Сообщение от EndLeSSDre@M
из всего написанного я так и не понял что требуется??? и кстати там точки с запятой после врайта не хватает))) поясни свой вопрос в 2х словах! и readln в конце не забывай добавлять чтоб результат посмотреть!
PHP код:
program vivod;
uses crt;
begin
write('Begin!');
write(8+1);
write(5-2);
readln;
end.
Получилось Ура!Молодец!
Вот скажи почему в книге написано
По другому с ошибками?
Посоветуй хорошую книгу пожалуйста!
|
|
|
|
12.04.2010, 12:29
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от DdoNbAsS
Получилось Ура!Молодец!
Вот скажи почему в книге написано
По другому с ошибками?
Посоветуй хорошую книгу пожалуйста!
Учиться по книгам не сильно поможет... лучше искать задачи на паскале или самому придумывать, а потом в гугле искать функции которые тебе помогут... книг не посоветую.. так как сам не знаю...
И многое от книги зависит, может там другая версия паскаля... везде по разному. У меня Turbo Pascal 7.1 стоит... и то когда писал тебе эти строчки, даже не проверял на работоспособность((( это слишком легко... и ты так когда нить думать будешь)) так что учись на практике!
|
|
|
|
12.04.2010, 16:32
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
JnK,
не работают эти два примера.
но спасибо за это. |
|
|
|
12.04.2010, 16:45
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084
Репутация:
79
|
|
DdoNbAsS, ты в конец каждой проги дописывай readln(что бы окошко не закрывалось сразу) или жми Alf+f5. И все отлично будет. А вообще учить по книгам не гуд
|
|
|
|
12.04.2010, 20:55
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
Провел на форуме:
2793173
Репутация:
297
|
|
Можно отправлять зашифрованные гет запросы?
Как?
|
|
|
|
12.04.2010, 21:08
|
|
Участник форума
Регистрация: 26.02.2009
Сообщений: 227
Провел на форуме:
1564765
Репутация:
208
|
|
del
Последний раз редактировалось Baofy; 12.04.2010 в 21:35..
|
|
|
|
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: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: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
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
