var a: integer;
ket:string;
Begin
a:=StrToint(edit1.text);
if(a mod 2=0) then
begin
if x>0 then ket:=’Genap Positif’
else ket:=’Genap Negatif’
and
else
if a<0 then ket:=’Ganjil Negatif
else ket:=’Ganjil Positif’;
label2.caption:=ket;
end;
end.
Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!
Ditulis dalam Uncategorized | 1 Komentar »
Dokter
Kode Dokter Integer 5
Nama varchar 10
Alamat varchar 15
jenis kelamin Enum ‘L’,’P’
usia Integer 5
Spesialis varchar 10
No telp Integer 12
Pasien
Kode Pasien Integer 5
Nama pasien varchar 15
Alamat varchar 12
jenis kelamin Enum ‘L’,’P’
usia Integer 5
No Telp Integer 12
Perawat
Kode Perawat Integer 5
Nama varchar 10
alamat varchar 15
jenis kelamin enum ‘L’,’P’
usia Integer 5
No Telepon Integer 12
Pemeriksaan
Kode pasien Integer 4
kode dokter integer 5
nama dokter varchar 10
nama pasien varchar 8
tanggal pemeriksaan integer 8
diagnosa varchar 6
tindakan varchar 7
RM
kode RM integer 6
kode pasien integer 7
kode perawat integer 8
kode kamar integer 4
nama pasien varchar 12
jenis kelamin enum ‘L’,’P’
usia integer 5
alamat varchar 15
waktu&tanggal date time 10
penyakit varchar 10
tindakan medis varchar 8
Kamar
kode kamar integer 5
nama ruang varchar 8
jenis penyakit varchar 10
kelas integer 3
jumlah dokter integer 5
jumlah pasien integer 4
kapaistas ruang integer 5
kode pasien integer 6
Ditulis dalam Uncategorized | Leave a Comment »
