Question

Составить программу для расчёта z = a sin x^2 + b/x, где a=2, b - произвольное значение, x є [3, 12], δx= 0,5 (то есть x принимает значение от 3 до 12 с шагом 0,5).

Answer 1

Begin
var x:=3.0;
var b:integer;
repeat
b:=random(-100, 100);
writeln ('x=', x, '; b=', b, '; z=', 2*sin(sqr(x))+b/x);
x+=0.5;
until x>12;
end.