# табуляция

Посмотреть архив целиком
Табуляция
function f(x:real;y:real):real;
var func:real;
begin
if x>=1 then
func:=3*ln(x)*y;
f:=func;
end;
var x,y,shag1,shag2,c,b,fc:real;
begin
x:=1; y:=0; b:=2; c:=2.8;
shag1:=0.1; shag2:=0.4;
writeln('f(x,y)=3*ln(x)*y');
writeln('***************************');
writeln('* x * f(x,y)* y *');
writeln('***************************');
while (x<=b) and (y<=c) do
begin
fc:=f(x,y) ;
writeln('* ',x:5:3, ' * ', fc:5:3, ' * ', y:5:3,' *');
writeln ('***************************');
x:=x+shag1; y:=y+shag2;
end ;
end.

function f(x:real):real;
var p: integer;
func: real;
begin
func:=1;
p:=1;
while p<64 do
begin
p:=p*2;
func:=func*(x-p);
end;
f:=func;
end;

var x,shag, fc,b: real;

begin
x:=0;
b:=3;
shag:=0.5;
writeln('f(x)=(x-2)(x-4)(x-8)...(x-64)');
writeln('******************************');
writeln('* x * f(x) *');
writeln('******************************');
while x<=b do
begin
fc:=f(x);
writeln('* ',x:12:3,' *',fc:12:3,' *');
x:=x+shag;
writeln('******************************');
end;