const A = 1.5; X1 = -2*A; dX = A/5; var x,y :real; beginx := X1;repeatif x<0 then y := Power(3,1/3)*A*(1-sqrt(-power(x,3))) else y := sqrt( sqrt( 16*power(A,4) + 4*sqr(a)*sqr(x) ) - sqr(x) - sqr(A) ); writeln('x:',x:6:2,'y:',y:6:2); x := x + dX;until real.IsNaN(y);end.
Объяснение:
sqr(x) -- квадрат x.
sqrt(x) -- квадратный корень x.
power(x, y) -- x в степени y.
real.IsNaN(x) -- x не является числом (условие).
В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).
Алгоритм можно написать по выше данному коду.
Пример работы:
"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."
1) а) на Java class example{ public static void main (String[] args){ int k = 0, j = 0; for (int i = 0; i < 10; i++){ k = k + 5; j = j + k; if (i == 9) System.out.print(k); else System.out.print(k + " + "); } System.out.print(" = " + j); } } б) на Pascal var a,b,c:integer; begin for a:=1 to 10 do begin b:=b+5; c:=c+b; if (a = 10) then write(b) else write(b, ' + ') end; write(' = ', c); end. 2) а) на Java class example{ public static void main(String args[]){ for (int x = 50; x >= 40; x--){ double y = (5 * x) + (Math.pow(x, 2)); int i = (int) y; System.out.println(i); } } } б) на Pascal var y:real; x:integer; begin for x:=50 downto 40 do begin y:=(5*x)+sqr(x); writeln(y:0:0); end; end.
Объяснение:
sqr(x) -- квадрат x.
sqrt(x) -- квадратный корень x.
power(x, y) -- x в степени y.
real.IsNaN(x) -- x не является числом (условие).
В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).
Алгоритм можно написать по выше данному коду.
Пример работы:
"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."