Меню сайта

Задача №36

Вывести на печать отрицательные значения функцииy=sin(x)+cos(5x) для х, изменяющегося на отрезке [-3-9] —c -шагом 0,9.


Program cikl_19-

Uses crt-

Var x,y,h:real-

Begin

ClrScr-

x:=-3- h:=0.9-

while x&lt-=9 do

begin

y:=sin(x)+cos (5*x)-

if y&lt-0 then writeln(‘x=’,x:4:2, ‘ y=’,y:4:2)-

x:=x+h-

end-

readln-

end.

Категория: Циклы | Дата: 12.11.12

Меню раздела
Блок