Помогите, пожалуйста, составить блок-схему для программы!
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.
Ответы
Ответ дал:
0
Такс дружище, зашел с компа в новом аккаунте, вот держи схему. asker195
Приложения:
![](https://st.uroker.com/files/c5a/c5ae0f420da642841fc32921297cdbad.jpg)
Аноним:
И у меня сразу же вопросик: Как я могу вставлять схемы и рисунки в свои ответы??? (Вопрос из серии" Дурак спросил (это я) и озадачил мудреца") Но Вы не озадачились... Научите меня, поскольку я ЧАЙНИК....
Вас заинтересует
1 год назад
1 год назад
6 лет назад
7 лет назад
7 лет назад