Вычислить функцию на заданном интервале с указанным шагом

@tigraeto · Регистрация: 09.09.2014

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

Ввести Х. Вычислить функцию sin(x)/x на интервале [0;pi] c ша-гом 0.2 (Блок схемой нужно)

@Антон1985 · 22.09.2014, 21:35

Pascal

var
  x,xn,xk,dx,y:real;
begin
  cls;
  xn:=0; xk:=pi; dx:=0.2;
  x:=xn;
  repeat
    if x<>0 then y:=sin(x)/x;
    x:=x+dx;
    writeln(x:5:2,' - ',y:5:2);
  until x+dx>xk;
end.

@Puporev · 23.09.2014, 08:59

Pascal

var
  x,xn,xk,dx,y:real;
begin
  cls;
  xn:=0; xk:=pi; dx:=0.2;
  x:=xn;
  repeat
    if x=0 then y:=1 //предел sinx/x  при х=0 равен 1
    else y:=sin(x)/x;
    x:=x+dx;
    writeln(x:5:2,' - ',y:5:2);
  until x+dx>xk;
end.

@tigraeto 0 / 0 / 0 Регистрация: 09.09.2014 Сообщений: 17
		1
	Вычислить функцию на заданном интервале с указанным шагом 22.09.2014, 21:23. Показов 1456. Ответов 2 Метки нет (Все метки) Ввести Х. Вычислить функцию sin(x)/x на интервале [0;pi] c ша-гом 0.2 (Блок схемой нужно) 0

	23.09.2014, 08:59

Вычислить функцию на заданном интервале с указанным шагом

Решение