Составить блок-схему для программы! program abc1; var k,i: integer; h,a,b: real; function f1(x: real): real; begin f1: =sin(x)/cos(x); end; begin write ('введите нижнюю границу корня уравнения : '); readln (a); write ('введите верхнюю границe корня уравнения : '); readln (b); write ('введите количество расчётов : '); readln (k); h: =abs(a-b)/(k-1); repeat writeln ('при х=',a,', значение функции равно ',f1(a)); i: =i+1; a: =a+h; until i> =k; end.
