Меню сайта

Задача №38

Составить программу вычисления значений функцийf(x) = —xsin(x) на отрезке [0,pi/2] с шагом —h= (ba)/m. Результаты представить с точностью 0,0001.


program ciklp_1-

uses crt-

var m:integer-

a,b,x,h,y:real-

begin

ClrScr-

a:=0- b:=pi/2- m:=10- h:=(b-a)/m-

x:=0-

repeat

y:=х-sin(x)-

x:=x+h-

writeln(‘x=’,x:6:4, ‘ y=’,y:6:4)-

until x&gt-pi/2-

readln-

end.

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

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