Написать программу в Pascal Найти: y=x^4+3/3x на промежутке [4; 10] с шагом 0.1 Использовать цикл с постусловием

Question

Информатика

Эрнест

8 апреля, 16:50

Написать программу в Pascal Найти: y=x^4+3/3x на промежутке [4; 10] с шагом 0.1 Использовать цикл с постусловием

+2

Ответы (1)

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

Ипполит · Answer 1

Const

dx = 0.1;

l = 4;

r = 10;

var

x, y:real;

begin

x : = l;

repeat

y : = sqr (sqr (x)) + 1/x;

writeln (x:4:1,' : ', y:0:3) ;

x : = x + dx;

until x > r;

end.