F�rum D�vida r�pida. Lazarus. Media duas notas. #583035

28/06/2017

Boa tarde, sou iniciante e estou tentando criar um programa pra calcular a m�dia de duas notas e n�o estou conseguindo.
Segue o c�digo:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Windows, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);
  Var
  Nota1, Nota2, Media: Integer;

begin
  Nota1 := StrToInt (Edit1.Text);
  Nota2 := StrToInt (Edit2.Text);
  Media := StrToInt (Nota1+Nota2) div 2;
  Edit3.Text := IntToStr(Media);

end;

end.

Eis o erro:
unit1.pas(47,33) Error: Incompatible type for arg no. 1: Got "LongInt", expected "AnsiString"

Se algu�m puder ajudar agrade�o imensamente.

Abra�o.

Adriano Freitas

Curtir t�pico

+ 0

Responder

Posts

28/06/2017

Natanael Ferreira

N�o uso Lazarus, mas veja se o c�digo abaixo funciona:

procedure TForm1.Button1Click(Sender: TObject);
Var
Nota1, Nota2: Integer;
Media: Float;
begin
Nota1 := StrToInt (Edit1.Text);
Nota2 := StrToInt (Edit2.Text);
Media := (Nota1+Nota2) / 2;
Edit3.Text := FloatToStr(Media);
end;

Responder

Gostei + 0