Написать код программы с использованием цикла while на PascalABC.

Определить все значения при условии Δx=1,005 (шаг)

Question

Информатика

Милуша

7 марта, 02:03

Написать код программы с использованием цикла while на PascalABC.

Определить все значения при условии Δx=1,005 (шаг)

+3

Ответы (1)

Знаете ответ на вопрос?

Лилюся · Answer 1

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.

Написать код программы с использованием цикла while на PascalABC.Определить все значения при условии Δx=1,005 (шаг)

Написать код программы с использованием цикла while на PascalABC.

Определить все значения при условии Δx=1,005 (шаг)