Pascalの宿題は俺にやらせろ！！Part2

Pascalの宿題は俺にやらせろ！！Part2 at TECH

672:デフォルトの名無しさん
07/11/08 12:24:28
>>671
program prog1(input, output);
var x,c: real;
function f(x,c : real) :real;
begin
　　　　f := x*x-c;
end;

function fd(x : real) :real;
begin
　　　　fd := 2*x;
end;
begin
　　　　writeln('ｘの平行根の近似値を求めます');
　　　　write('x : ');
　　　　read(c);
　　　　x := c;
　　　　while abs(f(x,c)) >0.0001do
　　　　begin
　　　　　　　　writeln(x,' ',f(x,c));
　　　　　　　　x := x-f(x,c)/fd(x);
　　　　end;
　　　　writeln(c,'の平行根の近似値は',x);
end.

次ページ

続きを表示

1を表示