[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

ну фи - это переменная, это понятно.
Вот если вводишь sqrt(1-0,1*sin^2*x) - то выходит ошибка..

 

1) Числа с точкой идут, тоесть 0.1
2) ты sin(число) пиши а не просто sin и ещё значёк ^ хз чё делает

 

sin^2*x ?? =-O это чё?
если синус квадрат то sin(x)* sin(x)

 

т.е. формулу нужно записать так:
y=sqrt(1-0.1*sin(х)*sin(x)) ?

А как записать:
y=log(5снизу)х / корень квадратный(x) - 1 ?

 

SHAXID, чё за 5снизу?

 

Вот так)

 

Паскаль вроде не считает логарифмы по умалчанию, кроме ln

 

да, меняй иконку или отредактируй ее, у меня была такая фишка, тоже немного удивился

 

Code:

log (x) / log (5) / (sqrt (x) - 1)

 

У тебя как будто нету доступа к изменению файла Project1.res, обычно такое бывает в Win7 на системных дисках. А иконка как мы знаем при компиляции программы сохраняется в файле .res

 

Подскажите как при окончании progressbar1 закрывалась form1 и открывалась form2 ?
процедура на таймере

 

Code:

if ProgressBar1.Position=ProgressBar1.Max then
  begin
    Form2.show;
    Form1.hide;
  end;

 

Seven[up] если использовать Form1.Close; то закроется весь проект, лучше использовать Form1.hide;

 

Линейный-односвязный список

Ребят, нужна помощь в создании токого списка, и добавление 1 эл после заданного.
Данно
type
tpel:^element;
element:record
num:inteher;
p:tpel;
end;
var
first(ук на 1 эл списка) ,n(ук на эл перед которым доб новый),f(ук на эл после которого доб новый эл),q (ук на новый эл):tpel;
Num-это информ поле, любое число (1,2,3,4,5...)

 

ПРивет, всем!
короче у меня есть прога, в ней две задачи, и есть модуль с помощью которого она работает!
Задача: разбить прогу на две части, т.е. в 1-й проге - 1-я задача, во 2-й соответственно вторая, ну и с модулем там что нить намутить)
плиз в асю - 282435
НУЖНО СРОЧНО, т.е. СЕГОДНЯ

 

Как спарсить все id с страницы поиска вк?
делаю гет запрос, выводится спиок. Могу один спарсить ид а остальные хз как..

 

Циклом перебирать всю страницу, не?

 

да. можешь дать пример?

 

for i := 0 to ResultPage.Count -1 do
begin
//Тут if Pos()
//Copy, Delete
//Записываешь результат, допустим в memo
end;

 

Качаешь мой модуль парсера :
http://paste.org/pastebin/view/19254

Тебе там нужна функция MultiParseString


Вызываешь так :

Code:

Var sa : TStringArray;
    _html : String;
Begin
      //Тут получешь html страницы поиска и заосишь в переменную _html
      sa := MultiParseString('addToFriends(', ', this.parentNode);', _html, false);
      //Теперь в массиве sa будут в каждой ячейке ID пользователя в формате String.