Массивы. Где ошибка? и как надо правильно?

22.12.2013, 21:33. **Показов** 578. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Имеется значение A, которая изменяется по формуле, где присутствуют значения Z(изменяется 0,1 до 0,4 с шагом 0,15) и W(изменяется от 0 до 5). в выходных данных должно быть записано значение А при каждом шаге Z и W.
например,
А-1.5 W-0 Z-0.1;
А-1.54 W-0.5 Z-0.1
У меня проблема в том, что не получается толком ответ выразить, у меня просто конечное значение выдается и в циклах тоже беда
вот что у меня:

Pascal

const
K = 1.5; 
WP = 2.5;
Wk = 5;
Zh = 0.15;
var
N, C, T: array[0..100] of Real;
i, m: integer;
A, DW, Z, W, Zk, Zn: real;
begin
Zn := 0.1;
Zk := 0.4;
DW := 0.1 * Wk;
Z := 0.1;
W := 0;
for i := 1 to 2 do 
begin
N[i] := Z + Zh;
Z := N[i];
for m := 1 to 5 do 
begin
N[m] := W + DW;
end;
A := K * WP * WP / (Sqrt((WP * WP - W * W) * (WP * WP - W * W) + (4 * Z * Z * WP * WP * W * W)));
end;
writeln(z);
end.

@bormant · 22.12.2013, 22:50

Как-то вроде:

Pascal

const
  Zb=0.1; Ze=0.4; Zs=0.15;
  Wb=0; We=5; Ws=0.5;
var
  a, z, w: real;
begin
  z:=Zb;
  while z<=Ze do begin
    w:=Wb;
    while w<=We do begin
      a:=...;
      WriteLn('A=',a,' W=',w,' Z=',z);
      w:=w+Ws;
    end;
    z:=z+Zs;
  end;
end.

	22.12.2013, 22:50