ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
30.09.2008, 23:16
|
|
Новичок
Регистрация: 26.09.2008
Сообщений: 5
Провел на форуме:
28246
Репутация:
5
|
|
Сообщение от Syntaxys
if g>d
then
k:=-b;
l:=K+SQRT(i);
n:=K-SQRT(i);
m:=l/2;
o:=l/2;
writeln (M, O);
else writeln (No decision)
end.
Условие в общем случае описывается:
Код:
if (условие_истинно) then действие_1
else действие_2;
или в операторных скобках begin end, если необходимо выполнить несколько действий сразу:
Код:
if (условие_истинно) then
begin
действие_1;
действие_2;
действие_3;
end
else
begin
действие_1;
действие_3;
end;
Перед "else" " ; " не ставится, а если хочешь во "WriteLn(No decision)" вывести текст, то необходимо заключить его в кавычки
Код:
WriteLn('No decision');
Это по синтаксису... Кажется так  , а также задумайся о книжке по Паскалю.
С математикой сам разберешься.
|
|
|
30.09.2008, 23:37
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
WinApi:
необходимо переместить курсор в мемо на самую последнюю строку не зная заренее количество строк.
|
|
|
|
01.10.2008, 00:16
|
|
Познающий
Регистрация: 02.03.2007
Сообщений: 43
Провел на форуме:
125800
Репутация:
42
|
|
Syntaxys
ИМХО темой ошибся. Лучше, наверное было бы сюда
Вот решение:
Код:
program descriminant;
var a,b,c,D:real;
begin
writeln('Solving a*x^2+b*x+c=0');
write('Input a=');
readln(a);
write('Input b=');
readln(b);
write('Input c=');
readln(c);
D:=b*b-4*a*c;
if D<0 then writeln('D<0 where are no solutions')
else if D=0 then writeln('Solution is x1=',-b/2/a)
else
begin
writeln('First solution is x1=',(-b+sqrt(D))/2/a);
writeln('Second solution is x2=',(-b-sqrt(D))/2/a);
end;
end.
|
|
|
|
01.10.2008, 00:51
|
|
Участник форума
Регистрация: 20.12.2007
Сообщений: 295
Провел на форуме:
1777055
Репутация:
347
|
|
Сообщение от t04
WinApi:
необходимо переместить курсор в мемо на самую последнюю строку не зная заренее количество строк.
вроде работает
Код:
SendMessage(memo1.Handle,EM_SETSEL,0,-1);
SendMessage(memo1.Handle,EM_SETSEL,-1,0);
SetFocus(memo1.Handle);
|
|
|
|
01.10.2008, 16:01
|
|
Новичок
Регистрация: 21.06.2008
Сообщений: 2
Провел на форуме:
10671
Репутация:
3
|
|
как сделать на дэлфи чтобы из программы можно было отправлять сообщение на мыло?
|
|
|
|
01.10.2008, 16:12
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
|
|
|
|
01.10.2008, 19:02
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме:
521298
Репутация:
20
|
|
Сообщение от eNGi
Код:
if (условие_истинно) then
begin
действие_1;
действие_2;
действие_3;
end
else
begin
действие_1;
действие_3;
end;
После первого end требует точки, которую, соответственно ставить нельзя.
mfcn, спасибо большое, но мне нужно не готовое халявное решение, а разобраться самому + код чем проще тем лучше, можно за счет "техничности", размера и тд. То есть больше переменных меньше операторов. Другой свой вопрос задам по ссылке приведенной Вами выше.
Последний раз редактировалось Syntaxys; 01.10.2008 в 19:08..
|
|
|
|
01.10.2008, 19:14
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме:
521298
Репутация:
20
|
|
Все разобрался кажись. Всем спасибо =)
|
|
|
|
02.10.2008, 19:19
|
|
Постоянный
Регистрация: 05.05.2006
Сообщений: 743
Провел на форуме:
2982851
Репутация:
107
|
|
Можно как то текст в ListBox добавить табуляцию?
|
|
|
|
02.10.2008, 20:20
|
|
Новичок
Регистрация: 26.09.2008
Сообщений: 5
Провел на форуме:
28246
Репутация:
5
|
|
Сообщение от _nic
Можно как то текст в ListBox добавить табуляцию?
Вообще-то мало что понял, но по ключевым словам в DelphiWorld'e можешь найти следующее:
В книгах и других источниках по Delphi часто приводится пример создания компонента, способного выводить текст в списке в несколько колонок. Между тем, мало кому известен факт, что стандартный компонент TListBox уже содержит свойство, которое позволяет это делать. Это свойство TabWidth (в Delphi 2 оно не описано в файлах помощи, хотя так же присутствует), которое наследуется от класса TCustomListBox и задает величину табуляции в пикселах. Установите его равным, скажем, половине ширины компонента ListBox, чтобы отображалось две колонки. Когда будете добавлять строки, всавьте в нужных местах символ табуляции (^I):
Код:
ListBox1.Items.Add('Колонка1'^I'Колонка2');
Недостаток такого подхода заключается в том, что ширина колонки не изменяется авоматически в зависимости от ширины выводимых строк, что, впрочем, легко исправить. Посмотрите на метод TextWidth класса TCanvas. Он возвращает ширину в пикселах передаваемой ему в качестве параметра строки. Тогда перед добавлением каждого нового элемента в список проверяем, превышает ли его ширина ширину колонки:
Код:
with ListBox do
begin
W := Canvas.TextWidth(Str);
if W > TabWidth then
TabWidth := W;
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
