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.

    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.

    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.

    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.

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;