Jump to content
Fórum Script Brasil
  • 0

Não consigo fazer me ajudem


Question

Olá boa noite sou iniciante na logica de programação e queria uma ajuda esse exrcício:

· Uma Loja da Cidade esta oferecendo aos seus clientes as seguintes promoções: · Pagamento a vista 50% de desconto

· Pagamento em cheque 40% de desconto

· Pagamento com cheque pré datado 30 dias(20%)

· Pagamento com cheque pré datado 30 e 60 dias(10%)

· Pagamento com cheque pré datado 30 60 e 90 dias(5%)

· Cartão de Credito 30% de desconto

Alem disso cliente cadastrado tem um desconto de 5% adicional

me ajudem por favor é uma trabalho pra amanhã

Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Bem, qual é o seu problema?Vou passar um código em delphi bem explicado para ver se você entende o que estou fazendo.

function Pagamento(Tipo : string;preço : double) : Double;
var
Desconto : Doublle
begin //função que você coloca o tipo de pagamento e ela retorna uma Double
Case Tipo of //um case da string Tipo
'Cheque': begin //se o tipo for cheque
Desconto := preço /100 * 40 //pega o preço e pega 40% dele
Result := preço - Desconto;
end
'Cheque pré datado 1' : begin //cheque pré datado de 30 e 60 dias
Desconto := preço /100 * 10 //pega o preço e pega 10% dele
Result := preço - Desconto;
end
'Cheque pré datado 2' : begin //cheque pré datado de 30 e 60 e 90 dias
Desconto := preço /100 * 5 //pega o preço e pega 5% dele
Result := preço - Desconto;
end
'Cartao de Credito' : begin /Cartão de Crédito
Desconto := preço /100 * 30 //pega o preço e pega 30% dele
Result := preço - Desconto;
end
'A Vista' : begin //a vista
Desconto := preço /100 * 50 //pega o preço e pega 50% dele
Result := preço - Desconto;
end

/ significa dividido

* significa vezes

Result significa o valor que a função vai retornar

:= significa igual

Edited by Ace Stryker™
Link to post
Share on other sites
  • 0
Bem, qual é o seu problema?Vou passar um código em delphi bem explicado para ver se você entende o que estou fazendo.

function Pagamento(Tipo : string;preço : double) : Double;
var
Desconto : Doublle
begin //função que você coloca o tipo de pagamento e ela retorna uma Double
Case Tipo of //um case da string Tipo
'Cheque': begin //se o tipo for cheque
Desconto := preço /100 * 40 //pega o preço e pega 40% dele
Result := preço - Desconto;
end
'Cheque pré datado 1' : begin //cheque pré datado de 30 e 60 dias
Desconto := preço /100 * 10 //pega o preço e pega 10% dele
Result := preço - Desconto;
end
'Cheque pré datado 2' : begin //cheque pré datado de 30 e 60 e 90 dias
Desconto := preço /100 * 5 //pega o preço e pega 5% dele
Result := preço - Desconto;
end
'Cartao de Credito' : begin /Cartão de Crédito
Desconto := preço /100 * 30 //pega o preço e pega 30% dele
Result := preço - Desconto;
end
'A Vista' : begin //a vista
Desconto := preço /100 * 50 //pega o preço e pega 50% dele
Result := preço - Desconto;
end

/ significa dividido

* significa vezes

Result significa o valor que a função vai retornar

:= significa igual

Não sou programador Delphi, mas acredito que o sinal ':=', seja de atribuição e não igual (comparação)

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      149408
    • Total Posts
      645900
×
×
  • Create New...