Паскаленок))

[GreenDay]

Я хз как решать данную задачу.
s007.radikal.ru/i301/1011/76/74c8583ff8d2.jpg
не понятен момент нахождения Z(w).
w это пойдет как цикл?

[Utkin]

Все там просто. Сначала находите Х и У, а затем уже Z. Вы правы, Z нужно искать в цикле по w в диапазоне от 100 до 1000.
Единственно, нужно иметь ввиду, что у вас для нахождения х и у используется деление. то есть нужно беспокоиться о возможности возникновения ситуации деления на нуль.

[GreenDay]

т.е. сначало идет цикл, потом вычисление Z?)
йа нуп)

[Utkin]

Все в цикле.
Цикл по w от 100 до 1000
Найдем Х по формуле
Найдем У по формуле
Найдем Z(w) по формуле
Выведем Z на экран
конец цикла

Примерно таким образом. Осталось только переложить на программу...

[GreenDay]

ну, я это и хотел сказать
спс!

получится чтот типо этого?)

program green322;
uses crt;
var l, c, r1, r2, x, y, z:real;
    w:integer;
begin
  clrscr;
  r1:= 200;
  r2:= 500;
  l:= 2;
  c:= 5;
  for w:=100 to 1000 do
    begin
      x:=r1*r2*(r1+r2)+r1*sqr(w*l-1/(w*c))/(sqr(r1+r2))+(sqr(w*l-(w*c)));
      y:=sqr (r1)*(w*l-1/(w*c))/(sqr(r1+r2))+sqr((w*l-1/(w*c)));
      z:=sqr (x)+sqr (y);
      writeln (z:4:2);
    end;
  readkey;
end.

From Stilet: А еще лучше будет получаться если ты пост будешь оформлять согласно правилам.