Respostas

2014-04-29T10:45:18-03:00
=========================
*** Em Clipper
cls 
Do While .t. 
    d1:=d2:=d3:=d4:=0   
   @ 10,12 get d1 picture [9]   
   @ 10,13 get d2 picture [9] 
   @ 10,14 get d3 picture [9] 
   @ 10,15 get d4 picture [9] 
   read 
   if lastkey()=27     
      quit   
   end    
   @ 10,17 say [ => ]+Str(d1+d2-d3*d4,4)
enddo;

==================================
**ou Delphi.

unit Unit1;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm1 = class(TForm)    Edit1: TEdit;    Label1: TLabel;    procedure Edit1Change(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
var d1,d2,d3,d4: Integer;
begin 
 d1:=0;  d2:=0;  d3:=0;  d4:=0; 
 if Length(Edit1.Text)>=1 then     
   d1:=strtoint(copy(Edit1.Text,1,1)); 
if Length(Edit1.Text)>=2 then     
   d2:=strtoint(copy(Edit1.Text,2,1)); 
 if Length(Edit1.Text)>=3 then     
   d3:=strtoint(copy(Edit1.Text,3,1)); 
if Length(Edit1.Text)=4 then     
   d4:=strtoint(copy(Edit1.Text,4,1)); 
 Label1.Caption:=IntToStr(d1+d2-d3*d4);end;
end.