Табулирование

@Грей · Регистрация: 21.04.2011

Используя все три оператора цикла(While, Repeat, For) составить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m, где m - заданное число.
Данные:
Функция Sin(1/x)
a = pi/8
b = 2/pi
m = 15

@Грей · 06.06.2011, 14:17 **[ТС]**

Теперь сам могу ответить)
Вот для 3х циклов!)

Pascal

Program pro;
const m=15;
var
y,a,b,x,h:real;
begin
cls;
a:=pi/8;
x:=a;
b:=2/pi;
h:=(b-a)/m;
repeat
y:=sin(1/x);
writeln('x:=',x:0:5,'; y:=',y:0:5);
x:=x+h;
until x>b;
end.

Pascal

Program pro;
const m=15;
var
y,a,b,x,h:real;
i:integer;
begin
cls;
a:=pi/8;
x:=a;
b:=2/pi;
h:=(b-a)/m;
for i:=1 to m do
begin
y:=sin(1/x);
writeln('x:=',x:0:5,'; y:=',y:0:5);
x:=x+h;
end;
end.

Pascal

Program pro;
const m=15;
var
y,a,b,x,h:real;
begin
cls;
a:=pi/8;
x:=a;
b:=2/pi;
h:=(b-a)/m;
while x<b do
begin
y:=sin(1/x);
writeln('x:=',x,';y:=',y);
x:=x+h;
end;
end.

@Грей 0 / 0 / 5 Регистрация: 21.04.2011 Сообщений: 72
		1
	Табулирование 24.04.2011, 18:41. Показов 1158. Ответов 1 Метки нет (Все метки) Используя все три оператора цикла(While, Repeat, For) составить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m, где m - заданное число. Данные: Функция Sin(1/x) a = pi/8 b = 2/pi m = 15 0

Опции темы

Табулирование

Решение