F�rum Progress�o aritm�tica em Delphi xe8 #562724

22/09/2016

Bom Dia,

Sou novato no Delphi e na programa��o. Estou tentado criar um programa que calcule qualquer termo de uma progress�o aritm�tica (N�o o n-�simo termo, mas qualquer um, ou AN). Estou com problemas de l�gica e dando erros no compilador. N�o vou postar muitos erros, porque estou indo na tentativa e erro.

Eis a Unit:

unit ProgreArit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
A1,An,R,N: Integer;
Meu_Array : Array [0..50] of integer;


begin
Meu_Array[0]:= A1;
A1:=StrToInt(Edit2.Text);
Meu_Array = Array [0..50] of integer := N;
N:=StrToInt(Edit3.Text);
Meu_Array[0]:= (R+1);
R:= StrToInt(Edit4.Text);

An:=StrToInt(Edit1.Text);
An:=(A1 + (N - 1) * R);
An:=Meu_Array[0.50];
end;

end.

O �ltimo erro:

[dcc32 Error] ProgreArit.pas(44): E2010 Incompatible types: 'array[0..50] of Integer' and 'Set'

Vou ainda botar mais um Edit para dar a sa�da. Se Algu�m puder me dar algumas luzes, agrade�o imensamente.

Valew!

Adriano Freitas

Curtir t�pico

+ 0

Responder

Posts

22/09/2016

Natanael Ferreira

Voc� est� tentando fazer algo parecido com este link:
https://br.answers.yahoo.com/question/index?qid=20061101103046AAOsvjE

Teste assim:

Var
  A1, An, R: Real;
  Meu_Array: Array [0 .. 50] of Integer;
  N: Integer;
begin
  A1 := StrToInt(Edit2.Text); // Primeiro Termo
  R := StrToInt(Edit4.Text); // Razao

  for N := 0 to 50 do
  begin
    An := A1 + (N - 1) * R;
    Meu_Array[N] := Trunc(An);
  end;

  for N := 0 to 50 do
    ShowMessage(FloatToStr(Meu_Array[N]));
end;

Responder

Gostei + 0

22/09/2016

Natanael Ferreira

Corre��o do c�digo:

Var
  A1, An, R: Real;
  Meu_Array: Array [0 .. 50] of Integer;
  N: Integer;
begin
  A1 := StrToInt(Edit2.Text); // Primeiro Termo
  R := StrToInt(Edit4.Text); // Razao
 
  for N := 0 to 50 do
  begin
    An := A1 + N * R;
    Meu_Array[N] := Trunc(An);
  end;
 
  for N := 0 to 50 do
    ShowMessage(FloatToStr(Meu_Array[N]));
end;

Responder

Gostei + 0

22/09/2016

Adriano Freitas

Amigo, obrigado pelo esfor�o, mas ainda n�o � isso. O que eu gostaria � de um programa que calcule qualquer termo da progress�o, quando o usu�rio do mesmo forne�a a raz�o, a quantidade de termos, o primeiro termo e o n�mero do termo ou posi��o que ele deseja, AN.
N�o sei se tem l�gica mas seria isso. Se algu�m ou voc� puder dar uma luz, valew. Mas fico grato mesmo assim.
Meu abra�o!

Responder

Gostei + 0

23/09/2016

Natanael Ferreira

Neste caso, voc� deve utilizar Array Din�mico pois voc� n�o sabe quantos termos o usu�rio escolher�.

Coloque Edit's com os nomes:

- EditPrimeiroTermo
- EditRazao
- EditQuantTermos
- EditPosicao
- EditResultado

Teste o c�digo abaixo em um Click de um Bot�o:

Var
  PrimeiroTermo, Razao, Posicao2: Real;
  Meu_Array: Array of Integer;
  N, QuantTermos, Posicao: Integer;
begin
  PrimeiroTermo := StrToInt(EditPrimeiroTermo.Text); // Primeiro Termo
  Razao := StrToInt(EditRazao.Text); // Razao
  QuantTermos := StrToInt(EditQuantTermos.Text); // Quant. Termos
  Posicao := StrToInt(EditPosicao.Text); // Posicao desejada

  SetLength(Meu_Array, QuantTermos);

  for N := 0 to QuantTermos - 1 do
  begin
    Posicao2 := PrimeiroTermo + N * Razao;
    Meu_Array[N] := Trunc(Posicao2);
  end;

  EditResultado.Text := IntToStr(Meu_Array[Posicao - 1]);
end;

Responder

Gostei + 0