Написать код программы с использованием цикла while на PascalABC. Определить все значения [latex] \alpha = \sqrt{1+ x^{2} }+t [/latex] при условии [latex]1,909 \leq x \leq 6,23 [/latex] [latex] \alpha x=1,005 [/latex] [latex...
Написать код программы с использованием цикла while на PascalABC.
Определить все значения [latex] \alpha = \sqrt{1+ x^{2} }+t [/latex] при условии [latex]1,909 \leq x \leq 6,23 [/latex] [latex] \alpha x=1,005 [/latex] [latex]t=10[/latex] Δx=1,005 (шаг)
Гость
Ответ(ы) на вопрос:
Гостьconst
x0 = 1.909;
x1 = 6.23;
step = 1.005;
t=10;
var
i: real;
begin
i:=0;
while i<(x1-x0)/step do
begin
writeln('a(', x0+i, ') = ', sqrt(1+sqr(x0+i))+t);
i:=i+step;
end;
if (x0+i-step)<(x1) then writeln('a(', x1, ') = ', sqrt(1+sqr(x1))+t)
end.
Не нашли ответ?
Похожие вопросы