Хід роботи

1. Розмістити на формі за зразком візуальні компоненти.

2. С творити процедуру обробки події OnClick для кнопки «Обчислити», в яку занести створення файлу, зчитування даних введених з клавіатури, обчислення членів прогресії, їх суми, запису результатів в файл і виведення прогресії в компонент Memo і суми в Label.

Фрагмент програми

Var

f: TextFile;

fName: String[80];

i, a, b, c, s: integer;

buf: String[80];

Begin

a:=StrToInt(Edit1.Text);

b:=StrToInt(Edit2.Text);

c:=StrToInt(Edit3.Text);

fName := Edit4.Text;

AssignFile(f, fName);

Rewrite(f);

s:=0;

for i:=0 to c do

Begin

a:=a+b;

Writeln(f, a);

s:=s+a;

End;

CloseFile(f);

MessageDlg('Дані ЗАПИСАНІ в файл ', mtInformation,[mbOk],0);

Reset(f);

While not EOF(f) do

Begin

Readln(f, buf);

Memo1.Lines.Add(buf);

End;

CloseFile(f);

Label7.Caption:= 'Сума дорівнює '+ IntToStr(s);

End;

3. Додати до форми кнопку «Вихід» для закриття програми

4. Зберегти проект на диск (File / Save projectAs…)

12