22 lines
337 B
ObjectPascal
22 lines
337 B
ObjectPascal
// Îïðåäåëåíèå ôóíêöèè. Âûâîä òàáëèöû åå çíà÷åíèé
|
|
|
|
function MyFun(x: real): real;
|
|
begin
|
|
Result := x*sin(x);
|
|
end;
|
|
|
|
const
|
|
a = 0.0;
|
|
b = 2*Pi;
|
|
n = 10;
|
|
|
|
begin
|
|
var h := (b-a)/n;
|
|
var x := a;
|
|
writeln('Òàáëèöà çíà÷åíèé ôóíêöèè MyFun:');
|
|
for var i := 0 to n do
|
|
begin
|
|
writeln(x:5:2,MyFun(x):10:4);
|
|
x += h;
|
|
end;
|
|
end. |