Cara Buat Balikan Kata ( Kamus Malangan)
Rumusnya:
procedure
TForm1.Button1Click(Sender: TObject);
var
x,n
: integer;
y
, vkata: string;
begin
vkata:=
kata.Text;
N
:= length (vkata);
y:=
'';
for
x := N downto 1 do
begin
y:=
y + vkata [x];
end ;
balikan.text := y ;
if y = vkata then
kesimpulan.Text := 'kata tersebut polinomial'
else
kesimpulan.Text := ' kata
tersebut bukan polinimial';
end;
end.
- Menghitung Tabung
Rumusnya :
procedure
TTabung.HitungClick(Sender: TObject);
var
phi
, jari , tinggi, luas , volume : real;
begin
phi:= 22/7;
jari := strtofloat(r.Text) ;
tinggi := strtofloat (T.Text);
luas := 2*phi*jari*(jari+tinggi);
Lp.text := floattostr(luas);
volume := phi* jari* jari
*tinggi;
V.Text := floattostr(volume);
end;
end.
Konversi Berat
Rumusnya:
procedure TForm1.RadioButton1Click(Sender: TObject);
var
bberat: integer;
Bhasil: real;
begin
Bberat :=strtoint (berat.text) ;
Bhasil := Bberat/100;
hasil.text:= floattostr(bhasil);
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
var
bberat: integer;
bhasil: real;
begin
Bberat :=strtoint (berat.text) ;
Bhasil := Bberat/1000;
hasil.text:= floattostr(bhasil);
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
var
bberat: integer;
bhasil: real;
begin
Bberat :=strtoint (berat.text) ;
Bhasil := Bberat/100000;
hasil.text:= floattostr(bhasil);
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
var
bberat: integer;
bhasil: real;
begin
Bberat :=strtoint (berat.text) ;
Bhasil := Bberat/1000000;
hasil.text:= floattostr(bhasil);
end;
end.