fork download

copy

unit pi_;
 
interface
 
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls;
 
type
 TForm1 = class(TForm)
 Edit1: TEdit; // точность вычисления
 Button1: TButton; // кнопка Вычислить
 Label1: TLabel;
 Label2: 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; // вычисляемое значение ПИ
 t:real; // точность вычисления
 n:integer; // номер члена ряда
 elem:real; // значение члена ряда
begin
 pi:=0;
 n:=1;
 t:=StrToFloat(edit1.text);
 elem:=1; // чтобы начать цикл
 while elem >= t do
 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.

prog.d(6): { } expected following aggregate declaration
prog.d(6): no identifier for declarator Windows
prog.d(10): expression expected, not 'class'
prog.d(11): semicolon expected, not 'Edit1'
prog.d(11): no identifier for declarator Edit1
prog.d(11): semicolon expected, not ':'
prog.d(11): Declaration expected, not ':'
prog.d(12): no identifier for declarator Button1
prog.d(12): semicolon expected, not ':'
prog.d(12): Declaration expected, not ':'
prog.d(13): no identifier for declarator Label1
prog.d(13): semicolon expected, not ':'
prog.d(13): Declaration expected, not ':'
prog.d(14): no identifier for declarator Label2
prog.d(14): semicolon expected, not ':'
prog.d(14): Declaration expected, not ':'
prog.d(15): found ':' when expecting ')'
prog.d(15): semicolon expected following function declaration
prog.d(15): no identifier for declarator TObject
prog.d(15): semicolon expected, not ')'
prog.d(15): Declaration expected, not ')'

Standard output is empty