Табулирования функции на заданном отрезке с заданным шагом

@GabAlfiya · Регистрация: 20.11.2012

Помогите пожалуйста решить задачу:
Составить программу табулирования функции на данном отрезке с данным шагом:
y=корень из |sinx| на интервале [0,2] с шагом 0.1

Очень нужно

Kodzaev · 21.11.2012, 11:30

Pascal

Var
  y,x: Real;
BEGIN
While x<2.1 do
begin
  y:=Sqrt(Abs(Sin(x)));
  Writeln('X= ',x:2:1,'           Y= ',y:5:4);
  x:=x+0.1;
end;
Readln
END.

@GabAlfiya · 21.11.2012, 11:53 **[ТС]**

спасибо

Добавлено через 15 минут
там нету ни одной процедуры и ни одной функции(( можно как-либо исправить?..

@Leshak · 21.11.2012, 12:01

Pascal

var
 a, b, h, f, x: real;
 
function func ( x: real):real;
var 
  y: real;
begin
  y:=Sqrt(Abs(Sin(x)));
  func:=y;
end;
 
begin
a:=0;b:=2;h:=0.1;x:=a;
While x<=b do
begin
  f:=func(x);
  Writeln('X= ',x:2:1,'           F= ',f:5:4);
  x:=x+h;
end;
Readln
END.

Kodzaev · 21.11.2012, 12:01

Pascal

Function Tab(Var x: Real): Real;
begin
  Tab:=Sqrt(Abs(Sin(x)));
  x:=x+0.1;
end;
Var
  x: Real;
BEGIN
While x<2.1 do
Writeln('X= ',x:2:1,'       Y= ',Tab(x):5:4);
Readln
END.

Табулирования функции на заданном отрезке с заданным шагом

Решение

Решение

Решение

@GabAlfiya 0 / 0 / 0 Регистрация: 20.11.2012 Сообщений: 29
		1
	Табулирования функции на заданном отрезке с заданным шагом 21.11.2012, 11:22. Показов 3415. Ответов 4 Метки нет (Все метки) Помогите пожалуйста решить задачу: Составить программу табулирования функции на данном отрезке с данным шагом: y=корень из \|sinx\| на интервале [0,2] с шагом 0.1 Очень нужно 0

@GabAlfiya 0 / 0 / 0 Регистрация: 20.11.2012 Сообщений: 29
	21.11.2012, 11:53 [ТС]	3
	спасибо Добавлено через 15 минут там нету ни одной процедуры и ни одной функции(( можно как-либо исправить?.. 0

Опции темы