[Resolvido] Prestação em Pascal

[dablio 0]

Preciso de uma ajuda para resolver tal problema.

Uma loja vende seus produtos em uma entrada mais duas prestações, sendo a entrada maior do que ou igual as duas prestacoes, e as duas prestaçoes de valores iguais.

Especificar um algoritimo que leia o valor da mercadoria e forneça o valor da entrada e das prestaçoes, de acordo com as regras acima.

Desenvolvi um programa em pascal mas esta dando erro na posicao 9:20.na primeira formula.

 

Program prestacao;
uses crt;
var 
    vm,vp,ve:real;
begin
    clrscr;
    write ('informe o valor da mercadoria: ');
    readln (vm);
        vp:= vm div3;
        ve:= (vm mod3)+ vp;
    write ('valor da entrada é: ',ve:4:2,'e das duas
             prestacoes são cada: ', vp:4:2);
    readln;
end.

[quitZAUMMM 18]

Troca isso:

vp:= vm div3;

por isso:

vp:= vm div 3;

resolve?

[dablio 0]

não o operador é div3 se separar nao faz nada.

e apresenta outro erro.

[dablio 0]

Troca isso:

vp:= vm div3;

por isso:

vp:= vm div 3;

resolve?

 

realmente essa mudaça deve ser feita mas fica dando outro erro

incompatible type 'real" expectative "Longint"

 

fazendo uma mudança de real q deveria ser para inteiro da certo mas nao e isso q se precisa pro programa funcionar.

Preciso colocar numeros fracionarios.

Program prestacao;
uses crt;
var     
vm,vp,ve:integer;
begin    
clrscr;    
write ('informe o valor da mercadoria: ');    
readln (vm);        
vp:= vm div3;        
ve:= (vm mod3)+ vp;    
write ('valor da entrada é: ',ve,' e das duas             
prestacoes são cada: ', vp);    
readln;
end.

[quitZAUMMM 18]

ql a linha q ele aponta o erro?

 

[]s

[dablio 0]

ql a linha q ele aponta o erro?

 

[]s

 

na linha da formula.

[dablio 0]

 

ql a linha q ele aponta o erro?

 

[]s

 

na linha da formula.

 

fiz a mudança vp:= vm div 3;

 

e apresenou esse erro pas(9,17) Error: Incompatible types: got "Real" expected " LongInt"

[dablio 0]

 

 

ql a linha q ele aponta o erro?

 

[]s

 

na linha da formula.

 

fiz a mudança vp:= vm div 3;

 

e apresenou esse erro pas(9,17) Error: Incompatible types: got "Real" expected " LongInt"

 

Ja descobri, o div e mob nao processam vaores reais somente inteiro

por isso deve-se conveter o valor para inteiro com a comando

y := trunc(x)

rodo ok agora. vlw

[quitZAUMMM 18]

Opa, que bom q conseguiw!

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif