Получить таблицу значений функции y = 5 ^ x-8lnx для всех значений х [0.5; 2.5] с шагом h = 0.25

Question

Информатика: Получить таблицу значений функции y = 5 ^ x-8lnx для всех значений х [0.5; 2.5] с шагом h = 0.25

smolich · Accepted Answer

Ну, в общем, лови решение. { FreePascal 2.6.4} program test; uses     crt; var     a, b, c, d  : integer;     f : longint; procedure swap (var x : integer; var y : integer); var z : integer; begin     z := x;     x := y;     y := z; end; function nod (m, n : integer) : integer; begin     while m n do begin         if m n         then             m:=m-n         else             n:=n-m;     end;     nod := m; end; function max (a,b : integer) : integer; begin     if a b     then max := a     else...

MOGZ ответил