Mei 28, 2008 oleh retnoe
var a : Integer ;
string : string ;
begin
a:=StrToInt(edit1.text);
If (a mod 0) then
If (a>=0) then
ket :’genap positif ‘;
else
ket:’genap negatif ‘;
else
if (a<=0) then
ket :’ganjil negatif ‘;
else
ket :’ganjil positif ‘;
edit2.text:=ket ;
end;
end.
Ditulis dalam Tak Berkategori | Leave a Comment »
Mei 28, 2008 oleh retnoe
var a : Integer ;
string : string ;
begin
a:=StrToInt(edit1.text);
If (a mod 0) then
If (a>=0) then
ket :’genap positif ‘;
else
ket:’genap negatif ‘;
else
if (a<=0) then
ket :’ganjil negatif ‘;
else
ket :’ganjil positif ‘;
edit2.text:=ket ;
end;
end.
Ditulis dalam Tak Berkategori | Leave a Comment »
Mei 28, 2008 oleh retnoe
var a : Integer ;
string : string ;
begin
a:=StrToInt(edit1.text);
If (a mod 0) then
If (a>=0) then
ket :’genap positif ‘;
else
ket:’genap negatif ‘;
else
if (a<=0) then
ket :’ganjil negatif ‘;
else
ket :’ganjil positif ‘;
edit2.text:=ket ;
end;
end.
Ditulis dalam Tak Berkategori | Leave a Comment »
Mei 28, 2008 oleh retnoe
var a : Integer ;
string : string ;
begin
a:=StrToInt(edit1.text);
If (a mod 0) then
If (a>=0) then
ket :’genap positif ‘;
else
ket:’genap negatif ‘;
else
if (a<=0) then
ket :’ganjil negatif ‘;
else
ket :’ganjil positif ‘;
edit2.text:=ket ;
end;
end.
Ditulis dalam Tak Berkategori | Leave a Comment »
April 2, 2008 oleh retnoe
create database Rumah_Sakit_Enggal_Waras;
use Rumah_Sakit_Enggal_Waras;
create table dokter (nip varchar(10), nama varchar(30), spesialis varchar(15));
desc dokter;
create table perawat (nip varchar(10), nama varchar(30), jam_kerja varchar(15));
desc perawat;
create table pasien (nama varchar(30), umur varchar(15), alamat varchar(10), penyakit varchar(20), ruang_inap(15));
desc pasien;
create table pemeriksaan (nama_dokter varchar(30), hari_praktek varchar(10), jam_praktek varchar(15));
desc pemeriksaan;
create table reka_medis (nama varchar(30), umur varchar(15), penyakit varchar(20), dokter varchar(30));
desc reka_medis;
Ditulis dalam Tak Berkategori | Leave a Comment »
April 2, 2008 oleh retnoe
Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!
Ditulis dalam Tak Berkategori | 1 Komentar »