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

я к этому коду не имею ни какого отношения) одна телка попросила..

 

Привет всем. Залейте плз на обменник файлик dclsockets70.bpl Просто ставил делфи лайт версию, а в гугле найти не могу его(

 

Лови: http://zalil.ru/30089639

 

Помогие написать в паскале или объясните Задан массив чисел X[1..15].
Определить значение переменной y.

А7 - произведение абсолютных значений элементов массива Х.
М1 - колчество элементов массива Х , значение которых меньше А1.
А1 - сумма элементов массива Х.


y = A7+10^3/1,7*A7 , елси A7 < 1,2*10^3 , A7+M1*1,23/1,8*A7 , если A7>=1,2*10^3 .

 

А должно? Ты хоть бы по минимому синтаксис подправил

 

A7 найди сам.

Code:

program xxx;

Var
 x:array[1..15] of real;
 i,k:byte;
 summ:real;
Begin
  Summ:=0;
  K:=0;
  
  For i:=1 to 15 do {Просим ввести значения массива}
    Begin
      Write('x[',i,']:');
      Readln(x[i]);
    End;

  For i:=1 to 15 do {Считаем сумму всех элементов массива в summ}
    Summ:=x[i]+summ;
  Writeln('Suumm:',summ);
  
  For i:=1 to 15 do {считаем количество элементов массива x,значение которых меньше суммы всех элементов массива в K}
   if x[i] < summ then k:= k+1;
  Writeln('K:',k);{k всегда будет 15}
End.

Надеюсь остальное допишешь сам.

 

Да пробывал я много чего изменять.. а выложил как есть!)

 

Voland-791

Ну это что сразу бросилось в глаза.
p/s Дальше код не читал.

 

Подскажите какой компонент использовать для использования клиенских возможностей куков, то бишь как в браузере.

 

эм, вроде так?

Code:

program ex;
var
 extfile: file of extended;
 textfile: text;
 x, y:  extended;
 i: word;
begin
  assign(textfile,'table.text');
  rewrite (textfile);
  x := 0.0;
  for i := 1 to 1000 do
    begin
      y := sin(x);
      writeln(textfile,y);
      x := x + 0.001;
    end;
  close(textfile);
  assign(extfile,'table.ext');
  rewrite(extfile);
  x := 0.0;
  for i := 1 to 1000 do
    begin
      y := sin (x);
      write(extfile,y);
      x := x + 0.001;
    end;
  close (extfile);
  Write('Работа программы закончена, нажмите «Enter» ;');
  Readln;
end.

PS: на заметку, там радианы, а не градусы..

 

idcookiemanager из инди, например

 

Для какой OS?

 

ящитаю, что это очень глупый вопрос.

 

Зря вы так считаете, учитывая гениальность создателей виндовса и не совместимость всего, что только возможно было не совместить!

До Win7 прекрасно работает код

Code:

  {Переместим курсор мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,Pt.X,Pt.Y,0,0);
  {Имитируем нажатие левой кнопки мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,Pt.X,Pt.Y,0,0);
  {Имитируем отпускание левой кнопки мыши}
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,Pt.X,Pt.Y,0,0);

В Win7 не пашет, как сделать там, самому интересно

 

а блин. мне почемуто подумалось про линукс, виндоус или, скажем, макось, а не про версии виндоуса

 

эт потому что вопрос был не совсем корректным. ведь по-сути WinXP, Vista, Win7 одна и та же ось, просто разные версии

 

согласен, сначала правильно написал, потом исправил зачем-то на ос

 

Подскажите где можно найти описание свойств и функций компонентов IdIRCServer и IdIRC? И вообще где можно найти описания по всем компонентам инди?

 

во-первых доки по инди входят в справку дельфи
во-вторых я составил гениальный поисковый запрос "indy documentation" и внезапно первая ссылка привела на доки

вот еще онлайн http://www.indyproject.org/docsite/html/frames.html?frmname=topic&frmfile=index.html

 

Помогите oписaть функцию, определяющую является ли сумма чисел, расположенных между мaксимальным и минимaльным числами (в сумму включить оба этих числа), кратным 10, в последовaтельности из 50 рaзличных чисел.