Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Delphi 7 - program na výpočet procent ze zadané ceny 

var
  cena, procento: Integer;
begin
  cena := StrToIntDef(Edit1.text, -1);
  procento := StrToIntDef(Edit2.Text, -1);
  if (cena = -1) or (procento = -1) then
    Label.Caption := 'chybné zadání'
  else
    Label.Caption := FormatFloat('0.00', cena/100*procento);
end;

Pokud potrebujes zadavat cenu a procenta ne na cela cisla, ale na desetinna mista, tak si to uprav.

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny