Функции, любой ЯП

[Andrew7]

Горю! Требуется помощь в решении задачи на любом языке программирование (желательно с описанием операций):

1. h=(10r-j)/c^2+e^m*ln(c+1)
y=(h*m-j^2)+(0,001c)^2
for c=2,1 r=1,4*10^(-4) m=7 j={4,2;0,3;1,7} пояснение j=4.2 j=0,3 j=1,7

2. h=(10r-j)/c^2+e^m*ln(c+1)
y=(h*m-j^2)+(0,001c)^2
While(Until) j=0(0,1)1,7 пояснение j = 0 0.1 0.2 и т.д. до 1,7
Заранее спасибо!

[Хыиуду]

Условие задачи неправильное, не указан аргумент функции h в функции у. Так что берем от балды.

Код: Выделить всё

const c=2.1; r=0.00014; m=7;
function h(j: real):real;
begin h:=(10*r-j)/sqr(c)+exp(m)*ln(c+1); end;
function y(j:real):real;
begin y:=(h(j)*m-sqr(j))+sqr(c*0.001);
var i:byte;
begin
  writeln (h(4.2), y(4.2));
  writeln (h(0.3), y(0.3));
  writeln (h(1.7), y(1.7));
for i:=0 to 17 do   writeln (h(i/10), y(i/10));
end.