Сортировка данных по алфавиту из текстового файла

[sidestep]

1. Помогите написать программу для сортировки по алфавиту данных из текстового файла
2. Написать программу для вычисления числа Pi (ПИ). Например, вычислив площадь четверти круга и разделив ее на соответствующее число.

[Lesha]

1)

procedure TForm1.Button1Click(Sender: TObject);
var s:TStringList;
begin
  s:= TStringList.Create;
  s.LoadFromFile('C:\myfile.txt');
  s.Sort;
  memo1.Lines:=s;
  s.free;
end;

2)

procedure TForm1.Button1Click(Sender: TObject);
var i,L,pL: integer;  ppi: double;
begin
  //http://ru.wikipedia.org/wiki/Пи_(число)
  L:=1;
  pL:=1;
  ppi:=0;
  for i := 0 to 5000 do begin
    ppi:=pL*1/L+ppi;
    pL:=-1*pL;
    L:=L+2;
  end;
  ppi:=ppi*4;
  ShowMessage(FloatToStr(ppi));
end;

[sidestep]

procedure TForm1.Button1Click(Sender: TObject) - компилятор ругается.
Можно проще написать для понимания?

[fizteh]

Видимо тебе стоит создать на форме Кнопочку)

[Lesha]

для первого надо мемо поле и кнопку

для второго только кнопку

[TinMan]

Sidestep, тебе нужно решение на каком языке?

[sidestep]

на паскале, более понятное

[Lesha]

ну тогда 2

program calc_pi;
uses crt;
var i,L,pL: integer;  
ppi: real;
begin
  {http://ru.wikipedia.org/wiki/Пи_(число)}
  L:=1;
  pL:=1;
  ppi:=0;
  for i := 0 to 5000 do begin
    ppi:=pL*1/L+ppi;
    pL:=-1*pL;
    L:=L+2;
  end;
  ppi:=ppi*4;
  clrscr;
  writeln('Число PI = ',ppi:5:5)
  readln;
end.