Меню сайта

Задача №21

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


program cikl_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-

while x&lt-pi/2 do

begin

y:=х-sin(x)-

x:=x+h-

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

end-

readln-

end.

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

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