Вычислить значение функции

@masha_msf_app21 · Регистрация: 17.11.2012

Author24 — интернет-сервис помощи студентам

вычислить значение функции
z=b^2*y^3+ sqrt(0.7*b*y^2)+0.5*c . где y изменяется в интервале от –2 до 2 с шагом 0,4. Вывести
на печать значения z < 0 .
помогите с листингом программы .
Вот как начала делать я,но у меня он не выдает значения Z

Pascal

y:=-2;
 repeat
if y< 2  then
z:=sqr(b)*y*y*y+sqrt(0.7*b*y*y)+0.5*c;
y:=y+0.4; until y>2;
if z<0 then writeln ('z=',z)

@CodeR · 20.12.2012, 14:46

Pascal

y:=-2;
repeat
 if y< 2 then
 z:=sqr(b)*y*y*y+sqrt(0.7*b*y*y)+0.5*c;
 y:=y+0.4; 
 if z<0 then writeln ('z=',z)
until y>2;

Так потому что проверка z происходит вне цикла т.е проверяется на последнем вычисленном значение z

@masha_msf_app21 · 20.12.2012, 14:51 **[ТС]**

Спасибо большое)))теперь поняла свою ошибку,а то часа 1,5 голову ломала

@masha_msf_app21 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 15
	20.12.2012, 14:51 [ТС]	3
	Спасибо большое)))теперь поняла свою ошибку,а то часа 1,5 голову ломала 0