SaveText.Ru

123
  1. 1 задание
  2. var
  3.   a,x1,x2,dx,x,y:real;
  4.   n,i:byte;
  5.  
  6. begin
  7.   //ввод исходных данных
  8.   a := StrToFloat(Edit1.text);
  9.   x1 := StrToFloat(Edit2.text);
  10.   x2 := StrToFloat(Edit3.text);
  11.   dx := StrToFloat(Edit4.text);
  12.   //вычисления
  13.   x := x1;
  14.   n := Round((x2-x1)/dx)+1;
  15.   memo1.Lines.Add('  x           y');
  16.   for I := 1 to n do
  17.     begin
  18.       y := sqr(a)*a/(sqr(a)+sqr(x));
  19.       memo1.Lines.Add(FloatToStrF(x,fffixed,6,3)+'    '+FloatToStrF(y,fffixed,6,3));
  20.       x := x + dx;
  21.     end;
  22. 2 задание
  23. var
  24.   a,x1,x2,dx,x,y:real;
  25.   n,i:byte;
  26.  
  27. begin
  28.   //ввод исходных данных
  29.   a := StrToFloat(Edit1.text);
  30.   x1 := StrToFloat(Edit2.text);
  31.   x2 := StrToFloat(Edit3.text);
  32.   dx := StrToFloat(Edit4.text);
  33.   //вычисления
  34.   x := x1;
  35.   n := Round((x2-x1)/dx)+1;
  36.   memo1.Lines.Add('  x           y');
  37.   for I := 1 to n do
  38.     begin
  39.       y := sqr(a)*a/(sqr(a)+sqr(x));
  40.            if x < 1.4 then
  41.         y:=pi*sqr(x)-7/sqr(x)
  42.       else if x >= 1.4+dx then
  43.         y:=ln(x+7*sqrt(abs(x+a)))
  44.       else
  45.         y:=a/(sqr(x)*x)+7*sqrt(x);
  46.  
  47.       memo1.Lines.Add(FloatToStrF(x,fffixed,6,3)+'    '+FloatToStrF(y,fffixed,6,3));
  48.       x := x + dx;
  49.     end;
  50.  
  51. 3 задание
  52. var
  53.   b,x1,x2,dx,x,q:real;
  54.   n,i:byte;
  55.  
  56. begin
  57.   //ввод исходных данных
  58.   b := StrToFloat(Edit1.text);
  59.   x1 := StrToFloat(Edit2.text);
  60.   x2 := StrToFloat(Edit3.text);
  61.   dx := StrToFloat(Edit4.text);
  62.   //вычисления
  63.   x := x1;
  64.   n := Round((x2-x1)/dx)+1;
  65.   memo1.Lines.Add('  x           Q');
  66.   for I := 1 to n do
  67.     begin
  68.       q := sqr(b)*b/(sqr(b)+sqr(x));
  69.            if x < 1 then
  70.         q:=(b*x)-ln(b*x)
  71.       else if x >= 1+dx then
  72.         q:=(b*x)+ln(b*x)
  73.       else
  74.         q:=1;
  75.  
  76.       memo1.Lines.Add(FloatToStrF(x,fffixed,6,3)+'    '+FloatToStrF(q,fffixed,6,3));
  77.       x := x + dx;
  78.     end;

Share with your friends:

Print