calcular progressão aritmética no delphi?

Question

construa um programa que a partir de uma entrada do 1º termo e a razão de uma pa,escreva os 20 primeiros termos da pa

alguem pode me ajudar,pois eu sou iniciante?
quantos labels e edits e botoes posso colocar?
como fikariam os códigos:? plix

Answer 1

Olá,
Eu fiz um exemplo bem simples pra vê se consigo te ajudar.

-------------------------------

pra fazer isso eu usei:
- 2 TEdit (EditA1 e EditR);
- 1 TButton (BtnMostrarPA);
- 1 TListBox (LB);

no EdtA1 você escreve o 1º termo;
no EditR você entra com a razão;
o BtnMostrarPA faz o calculo;
e o LB mostra os 20 termos da PA.

-------------------------------
o único método que você vai precisar é o OnClick do Botão, que fica assim:

procedure TForm1.BtnMostrarClick(Sender: TObject);
var
n:integer;
An, A1, R: Real;
begin
A1:= StrToFloat(EditA1.Text);
R:= StrToFloat(EditR.Text);
LB.Clear;
for n:= 1 to 20 do
begin
An:= A1 + (n - 1) * R;
LB.Items.Add(FloatToStr(An));
end;
end;

Answer 2

Eu nem sei oq eh isso... sinto mtu..