заранее спс..

[blimziash]

Напишите программу, которая вычисляет число л ("Пи") с заданной пользователем точностью. Для вычисления значения числа л воспользуйтесь тем, что значение частичной суммы ряда: 1-1/3+1/5-1/7+1/9-... при суммировании достаточно большого количества членов приближается к значению л/4. С клавиатуры введите точность вычислений t, например t=0.00001, суммирование продолжать пока значения членов ряда>t,
на экран выведите число л и количество суммирований ряда. Предусмотреть многократное вычисление числа л с разной точностью.

[Google2010]

язык какой?

[Пепел Феникса]

какой язык, а также какова цена?(ибо наработок не вижу, значит за деньги)

[RUSt88]

сделаю на любом из языков указанных ниже за небольшое вознаграждение

[CyberGenus]

повезло тебе blimziash, я когда то в молодости по этой теме научную работу делал... вот наработки в виде программы на Delphi остались:

unit pi;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var
   pi:real;	{ вычисляемое значение ПИ}
   toch:real;	{ точность вычисления}
   n:integer;	{ номер члена ряда}
   elem:real;	{ значение члена ряда}
begin
     pi:=0;
     n:=1;
     elem:=1; 
     toch:=StrToFloat(edit1.text);
	while elem >= toch do   {цикл while}
           begin
             elem:=1/(2*n-1);
	     if (n MOD 2) = 0
	     	then pi:=pi-elem
	     	else pi:=pi+elem;
	     n:=n+1;
	   end;
	pi:=pi*4;
	label1.caption:= 'Число ПИ равно '+ FloatToStr(pi) + #13
	           + 'Просуммировано '+IntTostr(n)+' членов ряда.';

end;

end.

а называется эта последовательность Рядом Лейбница...