Não consigo fazer me ajudem

[jonathan.rocket]

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ã

[Ace Stryker™]

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 August 20, 2011 by Ace Stryker™

[raphael_suporte]

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)