Question

Используя метод нисходящего проектирования,разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. (язык pascal)

Answer 1

// PascalABC.Net 3.0, версия 1066
function t(a,x:real):real;
begin
  if a>=x then t:=2*a*x
  else t:=a/(2*x)
end;

function w(a,x:real):real;
begin
  w:=sqr(x)+cos(a*x+t(a,x))
end;

var
  a,x:real;
begin
  a:=0.5;
  while a<=1.9 do begin
    Writeln('a=',a);
    x:=0.2;
    while x<=2.2 do begin
      Writeln('x=',x:3:1,', w=',w(a,x):9:6);
      x:=x+0.5
      end;
    a:=a+0.2
  end
end.

Результат выполнения программы:
a=0.5
x=0.2, w= 0.995336
x=0.7, w= 1.250221
x=1.2, w= 2.130705
x=1.7, w= 3.432775
x=2.2, w= 5.189615
a=0.7
x=0.2, w= 0.953089
x=0.7, w= 0.590626
x=1.2, w= 1.865152
x=1.7, w= 3.064023
x=2.2, w= 4.712057
a=0.9
x=0.2, w= 0.897709
x=0.7, w= 0.176189
x=1.2, w= 1.555538
x=1.7, w= 2.667957
x=2.2, w= 4.264064
a=1.1
x=0.2, w= 0.829992
x=0.7, w=-0.183700
x=1.2, w= 1.233950
x=1.7, w= 2.306743
x=2.2, w= 3.949154
a=1.3
x=0.2, w= 0.750914
x=0.7, w=-0.426485
x=1.2, w= 1.407617
x=1.7, w= 2.037078
x=2.2, w= 3.840096
a=1.5
x=0.2, w= 0.661610
x=0.7, w=-0.509965
x=1.2, w= 2.074693
x=1.7, w= 1.901291
x=2.2, w= 3.962090
a=1.7
x=0.2, w= 0.563366
x=0.7, w=-0.419629
x=1.2, w= 2.426715
x=1.7, w= 1.920695
x=2.2, w= 4.286946
a=1.9
x=0.2, w= 0.457595
x=0.7, w=-0.171179
x=1.2, w= 2.288943
x=1.7, w= 1.924966
x=2.2, w= 4.739599