RUMUS kalkulator delpi 7

Rumus (+)

var a:integer;

b:integer;

c:integer;

begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=a+b;

edit3.Text:=IntToStr(c);

end;

(*)

var a:integer;

b:integer;

c:integer;

begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=a*b;

edit3.Text:=IntToStr(c);

end;

(-)

var a:integer;

b:integer;

c:integer;

begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=a-b;

edit3.Text:=IntToStr(c);

end;

(/)

var

a:integer;

b:integer;

c:real;

begin

a:=StrToInt(edit1.text);

b:=StrToInt(edit2.text);

c:=a/b;

edit3.Text:=FloatToStr(c);

end;

(kembali ke 0)

begin

edit1.Text:=' ';

edit2.Text:=' ';

edit3.text:=' ';

end;

(keluar)

close;

kesimpulan data bilangn I DAN II menggunakan edit dan tidak menggunakan rumus

keterangan : a= edit 1

                      b= edit 2

                      c= edit 3

Float  /  Int     = sama saja

Real                = pecahan

Integer           = bulat