Codigo delphi7

unit unt.saque;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg;

type Tfrmbanco = class(TForm) Image1: TImage; Image2: TImage; lblx1: TLabel; lblx2: TLabel; lblx3: TLabel; lblx4: TLabel; lblvsaque: TLabel; img10: TImage; img20: TImage; img50: TImage; img100: TImage; rdbmenorvalor: TRadioButton; rdbmaiorvalor: TRadioButton; edtvalor: TEdit; btnsaque: TButton; btnnovaop: TButton; procedure btnsaqueClick(Sender: TObject); procedure btnnovaopClick(Sender: TObject); private { Private declarations } public { Public declarations } end;

var frmbanco: Tfrmbanco; saque:integer; divisao,resto:integer; implementation {$R *.dfm} procedure cem(saque:integer); begin divisao:=saque div 100; resto:=saque mod 100; end; procedure cinquenta (saque:integer); begin divisao:=saque div 50; resto:=saque mod 50; end; procedure vinte(saque:integer); begin divisao:=saque div 20; resto:=saque mod 20; end; procedure dez(saque:integer); begin divisao:=saque div 10; resto:=saque mod 10; end; procedure Tfrmbanco.btnsaqueClick(Sender: TObject);

begin if (edtvalor.Text='') then begin showmessage('Favor digitar um valor para SAQUE'); end else begin saque:=strtoint(edtvalor.Text); end;

begin if (saque mod 10 0)then begin showmessage('Valor para saque inválido'); end else

if not(rdbmaiorvalor.Checked)and not (rdbmenorvalor.Checked)then begin showmessage('Você precisa escolher uma opção entre Maior e Menor Valor'); end else

begin if rdbmaiorvalor.checked then begin cem(saque);