Erro de Compilação - Tipagem

[arthur1919 0]

GALERA AJUDA AI NÃO SEI COMO CONSERTAR ISSO

 

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

Total:integer;

J,L:integer;

begin

J:=StrToInt(InputBox('Valor','Digite o valor do produto!',''));

L:=StrToInt(InputBox('Valor','Digite o numero de parcelas do produto!',''));

Total:=J/L;

ShowMessage('O Valor a ser pago em cada parcela é:'+IntToStr(Total));

end;

end.

NÃO SEI COMO RESOLVER ISSO

dcc command line for "Project1.dpr"

[dcc32 Error] Unit1.pas(33): E2010 Incompatible types: 'Integer' and 'Extended'

[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Motta 645]

O erro deve estar nesta linha

 

Total:=J/L;

 

Pois o resultado pode não ser inteiro

 

Solução troque o "type" ou trate a divisão com trunc ou round e mod ( resto)

[arthur1919 0]

o erro é nessa linha mesmo!

 

mas não sei o que é trunc ou round nem sei como se usa!

 

e sobre trocar o type é o tipo da variavel?

[Ådriano 9]

Ola Boa noite...

Acho que é isso que vc quer...rsrsrsr..

procedure TForm1.FormCreate(Sender: TObject);

var

  L : integer;

  I, T : Double;

begin

  I := StrtoFloat(InputBox('Valor','Digite o valor do produto!',''));

  L := StrToInt(InputBox('Valor','Digite o numero de parcelas do produto!',''));

  T := I / l;

  ShowMessage('O Valor a ser pago em cada parcela é : R$ ' + FloattostrF(T,ffnumber,15,2));

end;

[Motta 645]

http://www.delphibasics.co.uk/RTL.asp?Name=Mod

 

http://www.delphibasics.co.uk/RTL.asp?Name=Round&ExpandCode1=Yes

 

http://www.delphibasics.co.uk/RTL.asp?Name=Trunc

[arthur1919 0]

Muito Obrigado!