Tugas SBD ke-2(menentukan bilangan genap-ganjil positif dan negatif)

Procedure TForm1.Button1Click(Sender: TObject);

var a: integer;

ket: string;

Begin

a : =StrToInt(edit1.Text);

if (a mod 2 = 0) and (a > 0) then

ket : = ‘Bilangan Genap positif’

else if (a mod 2 = 0) and (a < 0)  then

ket : = ‘Bilangan Genap negatif’

else if (a mod 2 = 1) and (a > 0) then

ket : = ‘Bilangan Ganjil positif’

else ket : = ‘Bilangan Ganjil negatif’;

label2.Caption : = ket;

end;

end.

Tugas Sistem Basis Data(database Rumah_Sakit)

Mysql>create database Rumah_Sakit;

Mysql>Use Rumah_Sakit;

Mysql>create table dokter (Nama varchar(10),Nip varchar(9),Jenis_Kelamin varchar(16),Spesialisasi varchar(10),Alamat varchar(15),Jadwal_Praktek varchar(10));

Mysql>desc dokter;

 

Field	Type	Null	Key	Default	Extra
Nama	Varchar(10)	Yes		Null
Nip	Varchar(9)	Yes		Null
Jenis_Kelamin	Varchar(6)	Yes		Null
Spesialisasi	Varchar(10)	Yes		Null
Alamat	Varchar(15)	Yes		Null
Jadwal_Praktek	Varchar(10)	Yes		Null

Mysql>create table perawat (Nama varchar(10),Nip varchar(9),Jenis_Kelamin varchar(6),Alamat varchar(15),Jadwal_Jaga varchar(10));

Mysql>desc perawat;

Field	Type	Null	Key	Default	Extra
Nama	Varchar(10)	Yes		Null
Nip	Varchar(9)	Yes		Null
Jenis_Kelamin	Varchar(6)	Yes		Null
Alamat	Varchar(15)	Yes		Null
Jadwal_Jaga	Varchar(10)	Yes		Null

Mysql>create table pasien(Nama varchar(10),Alamat varchar(15),Jenis_Kelamin varchar(6),Jenis_Penanganan varchar(10),Ruang_Perawatan varchar(7));

Mysql>desc pasien;

Field	Type	Null	Key	Default	Extra
Nama	Varchar(10)	Yes		Null
Alamat	Varchar(15)	Yes		Null
Jenis_Kelamin	Varchar(6)	Yes		Null
Jenis_Penanganan	Varchar(10)	Yes		Null
Ruang_Perawatan	Varchar(7)	Yes		Null

Mysql>create table Rekam_Medis(Nama_Dokter varchar(10),Nama_Pasien varchar(10),Alamat_Dokter varchar(15),Alamat_Pasien varchar(15),Jenis_Penanganan varchar(10),Ruang_Perawatan varchar(7));

Mysql>desc Rekam_Medis;

Field	Type	Null	Key	Default	Extra
Nama_Dokter	Varchar(10)	Yes		Null
Nama_Pasien	Varchar(10)	Yes		Null
Alamat_Dokter	Varchar(15)	Yes		Null
Alamat_Pasien	Varchar(15)	Yes		Null
Jenis_Penanganan	Varchar(10)	Yes		Null
Ruang_Perawatan	Varchar (7)	Yes		Null

Hello world!

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!