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

Может у кого есть софтина узнать сколько у меня в списке skype друзей?

 

AdmSmsTel, спроси у AlexTheC0d3r. Он вроде со скайпом работал

 

AquaKlaster, есть у тя такая прога?

 

помогите с заданием:
последовательность z(i) задана соотношениями:

z(i)
/ i*i+cos(i)? если i-четное,
\lini/e, если i - нечетное.
i=1,2,...100
найти кол-во элементов больше 0,5.

 

Народ помогите плиз.Пост 5724

 

qwert135, пример уравнение напиши, и коротко, как его решать Тогда посмотрим

 

Блин глупый вопрос, но из головы вылетело. Как создать собственный тип со значениям 192..255, при том что 255+1 = 192?

 

type
myType = 192..255;

что-то вроде того, если я не путаю )))

 

Да это я знаю ) Но дело в том, что 255+1 не даст 192 )) Хотя взять тотже integer там high(int)+1=low(int)

 

легко
напиши в асю, дам

 

на писал

 

Почему когда я делаю get запрос, например:
memo1.text:=Idhttp1.get('ya.ru');
В memo вместо русских букв выводятся иероглифы какие то?
Так же происходит и тогда, когда исходник страницы сохраняешь не в memo, а в переменную...

 

TrueBit, попробуй кодировку менять, тут кто то писал как. Ну или обнови indy

 

Помогите написать программу подсчета суммы элементов стоящих на четных местах в массиве из 30 чисел. Обеспечить ввод чисел:
а) с клавиатуры
б)датчиком случайных чисел

Вывести значения массива и сумму элементов.

 

вот основа.. дальше сам допишешь?

Code:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var i,summ:integer;
    m : array[1..30] of integer;

begin
  summ := 0;
  writeln('type array of integer');
  for i:=1 to 30 do
    begin
      readln(m[i]);
    end;
  writeln('array is ready to work!');
  i := 2;
  while i <> 30 do
    begin
      summ := summ + (m[i]);
      inc(i);
    end;
  writeln('array:');
  for i:=1 to 30 do
    begin
      writeln(m[i]);
    end;
  writeln('summ: ' + inttostr(summ));
  readln;
end.

 

Пытаюсь в другой программе в текстовое окно вставить текст, ищу нужное окно, в нем через GetClassName получаю название класса, так как едитов много то GetClassName дает одинаковый результат для всех элементов, как их перебрать???? Если смотрю с помощью Autoit Info Tool, он находит: >>>> Control <<<< Class:TEditControl Instance:1.
Class:TEditControl - получает через GetClassName, а как получает Instance:1 - хз.

 

под а)

Code:

{$APPTYPE CONSOLE}

const
  size = 30;
var
  a: array [1..size] of integer;
  i: byte;
  sum: integer;
begin
  sum:=0;
  for i:=1 to size do
    begin
      readln(a[i]);
      if i mod 2 = 0 then inc(sum, a[i]);
    end;
  for i:=1 to size do write(a[i],' ');
  writeln;
  writeln(sum);
  readln;
end.

И под b)

Code:

{$APPTYPE CONSOLE}

const
  size = 30;
  ch = 500;
var
  a: array [1..size] of integer;
  i: byte;
  sum: integer;
begin
  sum:=0;
  randomize;
  for i:=1 to size do
    begin
      a[i]:=random(ch);
      if i mod 2 = 0 then inc(sum, a[i]);
    end;
  for i:=1 to size do write(a[i],' ');
  writeln;
  writeln(sum);
  readln;
end.

 

Как в TICQClient реализовать, что уин изпользовал Webaware(чтобы уины были видны в поиске, зелененьким цветом)

применяю функцию
SetAuthorization(false, true);

второй флаг из этой функции должен включать данную фичу, но в поиске уин (серенький) - inv

Посоветуйте что можно сделать?

 

Проект в котором реализована работа в winapi(там ты найдёшь что тебе нужно, и, я думаю, узнаешь много интересного)
http://depositfiles.com/files/i9dhpjgnz

 

Народ хелп ми плиз.. Сижу чёто тупикую

Вот вопрос:

Я загрузил текст в лист, ну не совсем текст а хтмл мне нужен только кусок этой страницы.

Кусок может быть разной длины!

Как удалить всё до куска и после него ? Заранее спасибо)