вопрос по Pascal ABC NET << На главную или назад  

53 ответов в теме “вопрос по Pascal ABC NET”

1. 4
   Иван Седых ответил:
   24 марта 2009 в 13:02

   Помогите сделать лабу.

   Вычислить значения сумм ряда S=1+(cosx/1!)+…+(cosnx/n!, с заданной точностью E=<|0.15*10^-3| для значений х из диапазона 0,1=<x=<1.0 с шагом х=0,2. полученные суммы сравнить с функцией y=e^cosx*cos(sinx).

2. 3
   Евгений Гаврин ответил:
   16 марта 2009 в 15:00

   я тут функцию нашел – аналог сишной
   Поглядите – вдруг поможет.

   function kbhit : boolean;

   var regs : registers;

   Begin

   regs.ah := 1;

   intr( $16, regs );

   if (regs.flags and fzero) > 0 then kbhit := true else kbhit := false

   End;

3. 2
   Дмитрий Бородин ответил:
   16 марта 2009 в 14:01

   нет. это не годится – readln стопорит весь цикл, потому что программа на каждом шагу будет ждать ввода числа и нажатия"ентер", а нужна команда,которая реагирует на нажатие клавиши

4. 1
   Евгений Гаврин ответил:
   16 марта 2009 в 0:00

   попробуйте readln