Меню сайта

Задача №35

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


Program cikl_18-

Uses crt-

Var x,y,h:real-

Begin

ClrScr-

x:=-5- h:=1.2-

while x&lt-=5 do

begin

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

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

x:=x+h-

end-

readln-

end.

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

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