PROGRAM Sort_Record;
uses crt;
CONST MaxData = 100;
TYPE DataSiswa = RECORD
NomorInduk : integer;
Nama : STRING[15];
Nilai : RECORD
PR, Test, Latihan: Real;
END;
NilaiAkhir : Real;
Nilaihuruf : Char;
end;
DaftarSiswa = Array[1..MaxData] Of DataSiswa;
Var Siswa : DaftarSiswa;{Daftar para Siswa}
JumSiswa : Integer;{Jumlah Siswa}
Procedure BacaDataSiswa;
var Lagi : char;
Function NilHuruf(NILAI : REAL) : Char;
Begin
If Nilai >= 80 Then
NilHuruf := 'A'
else if (Nilai < 80) and (Nilai >= 70) then
NilHuruf := 'B'
else if (Nilai < 70) and (Nilai >= 60) then
NilHuruf := 'C'
else if (Nilai < 60) and (Nilai >= 40) then
NilHuruf := 'D'
else
NilHuruf := 'E'
END;
Begin
JumSiswa := 0;
Repeat
JumSiswa := JumSiswa + 1;
{Masukan Data Siswa Ke Jumlah}
WITH Siswa[JumSiswa] DO BEGIN
Writeln('Masukan data siswa : ');
write('nomor Induk : '); readln(NomorInduk);
write('Nama Siswa : '); readln(Nama);
writeln('Nilai-nilai : ');
write('Tugas Rumah : '); readln(Nilai.PR);
write('Latihan : '); readln(nilai.Latihan);
write('Test : '); readln(Nilai.Test);
NilaiAkhir := 0.2*Nilai.PR+0.5*Nilai.Test+0.3*Nilai.Latihan;
NilaiHuruf := Nilhuruf(NilaiAkhir);
End;
{Tanyakan Apakah ada Data lagi}
WRITE('Adakah data lagi (Y/T) ? '); readln(lagi);
{jika jumlah dinaikan satu melebihi data maksimum,tampilkan pesan}
if JumSiswa + 1 > maxData then begin
writeln('Data telah maksimal, segera akan diurutkan! ');
Lagi := 'T';
end;
until UPCASE(lagi) = 'T';
end;
Procedure urutDataSiswa;
var i,j : integer;
tampung : DataSiswa;
Begin
for i := 1 to JumSiswa - 1 do
for j := i + 1 to jumSiswa Do
if siswa[1].Nilaihuruf < Siswa[j].nilaiHuruf then begin
Tampung := Siswa[i];
Siswa[i] := Siswa[j];
Siswa[j] := Tampung;
end;
end;
procedure CetakDataSiswa;
var i : integer;
begin
writeln('No.Induk',' ','Nama':15,' ','N.Akhir',' ','huruf');
for i := 1 To JumSiswa do
with siswa[i] do
writeln(nomorInduk:9,' ',nama:15,' ',NilaiAkhir:6:2,' ',Nilaihuruf)
end;
begin
clrscr;
BacaDataSiswa;
UrutDataSiswa;
CetakDataSiswa;
end.
Rabu, 19 Mei 2010
Senin, 21 Desember 2009
UAS
class matematika{
Integer tambah=0;
Integer kurang=0;
Integer kali =0;
Integer bagi =0;
void pertambahan(int pertambahan_tambah){
tambah=tambah+pertambahan_tambah;
System.out.println("Pertambahan 20+20= "+tambah);
}
void pengurangan(int pengurangan_kurang){
kurang=kurang-pengurangan_kurang;
System.out.println("Pengurangan 10-5 = "+kurang);
}
void perkalian(int perkalian_kali){
kali=kali*perkalian_kali;
System.out.println("Perkalian 10x20= "+kali);
}
void pembagian (int pembagian_bagi){
bagi=bagi/pembagian_bagi;
System.out.println("Pembagian 21/2 = "+bagi);
}
}
public class matematikaberaksi{
public static void main(String[] args){
// buat objek baru
matematika menghitung = new matematika();
/* panggil atribut*/
menghitung.tambah= 20;
menghitung.kurang= 10;
menghitung.kali = 20;
menghitung.bagi = 21;
//tampilkan method
menghitung.pertambahan(20);
menghitung.pengurangan(5);
menghitung.perkalian(10);
menghitung.pembagian(2);
}
}
Integer tambah=0;
Integer kurang=0;
Integer kali =0;
Integer bagi =0;
void pertambahan(int pertambahan_tambah){
tambah=tambah+pertambahan_tambah;
System.out.println("Pertambahan 20+20= "+tambah);
}
void pengurangan(int pengurangan_kurang){
kurang=kurang-pengurangan_kurang;
System.out.println("Pengurangan 10-5 = "+kurang);
}
void perkalian(int perkalian_kali){
kali=kali*perkalian_kali;
System.out.println("Perkalian 10x20= "+kali);
}
void pembagian (int pembagian_bagi){
bagi=bagi/pembagian_bagi;
System.out.println("Pembagian 21/2 = "+bagi);
}
}
public class matematikaberaksi{
public static void main(String[] args){
// buat objek baru
matematika menghitung = new matematika();
/* panggil atribut*/
menghitung.tambah= 20;
menghitung.kurang= 10;
menghitung.kali = 20;
menghitung.bagi = 21;
//tampilkan method
menghitung.pertambahan(20);
menghitung.pengurangan(5);
menghitung.perkalian(10);
menghitung.pembagian(2);
}
}
Rabu, 02 Desember 2009
Rabu, 25 November 2009
WEB Dasar 26/11/2009
MEMBUAT COMBO
<SELECT>
<?php
$koneksi=mysql_connect('localhost','root','');
if (!$koneksi)
{
die('Koneksi gagal !!:'.mysql_error());
}
mysql_select_db (db_klinikduta);
$qpasien=mysql_query('select * from pasien');
$j_baris = mysql_num_rows ($qpasien);
for ($a; $a <= $j_baris; $a++)
{
$data=mysql_fetch_array($qpasien);
echo "<option value='".$data[kode_pasien]."'>".$data[kode_pasien]."</option>";
}
?>
</SELECT>
<SELECT>
<?php
$koneksi=mysql_connect('localhost','root','');
if (!$koneksi)
{
die('Koneksi gagal !!:'.mysql_error());
}
mysql_select_db (db_klinikduta);
$qpasien=mysql_query('select * from pasien');
$j_baris = mysql_num_rows ($qpasien);
for ($a; $a <= $j_baris; $a++)
{
$data=mysql_fetch_array($qpasien);
echo "<option value='".$data[kode_pasien]."'>".$data[kode_pasien]."</option>";
}
?>
</SELECT>
Minggu, 22 November 2009
TUGAS OOP
Class matematikaberaksi
class matematika{
Integer tambah=0;
Integer kurang=0;
Integer kali =0;
Integer bagi =0;
void pertambahan(int pertambahan_tambah){
tambah=tambah+pertambahan_tambah;
System.out.println("Pertambahan 20+20= "+tambah);
}
void pengurangan(int pengurangan_kurang){
kurang=kurang-pengurangan_kurang;
System.out.println("Pengurangan 10-5 = "+kurang);
}
void perkalian(int perkalian_kali){
kali=kali*perkalian_kali;
System.out.println("Perkalian 10x20= "+kali);
}
void pembagian (int pembagian_bagi){
bagi=bagi/pembagian_bagi;
System.out.println("Pembagian 21/2 = "+bagi);
}
}
public class matematikaberaksi{
public static void main(String[] args){
// buat objek baru
matematika menghitung = new matematika();
/* panggil atribut*/
menghitung.tambah= 20;
menghitung.kurang= 10;
menghitung.kali = 20;
menghitung.bagi = 21;
//tampilkan method
menghitung.pertambahan(20);
menghitung.pengurangan(5);
menghitung.perkalian(10);
menghitung.pembagian(2);
}
}
OBJEK SEPEDA:
1. Memiliki atribut (state) : pedal, roda, jeruji, warna,jumlah roda, merek, tahun pembuatan, gear.
2. Memiliki tingkah laku (behavior) : kecepatanya menaik,, kecepatannya
Menurun, perpindahan gigi sepeda
Program java:
class sepeda{
String Merek;
Integer tahunProduksi;
Integer Kecepatan_naik;
Integer Kecepatan_turun;
String Perpindahan_gigi;
String Sistem_pengereman;
String Bentuk_sepeda;
String Roda;
void printsepedabaru(){
System.out.println("Merek = "+Merek);
System.out.println("Tahun = "+tahunProduksi);
System.out.println("Kecepatan naik(KM/jam) = "+Kecepatan_naik);
System.out.println("Kecepatan turun(KM/jam)= "+Kecepatan_turun);
System.out.println("Perpindahan Gigi Sepeda= "+Perpindahan_gigi);
System.out.println("Sistem Pengereman = "+Sistem_pengereman);
System.out.println("Bentuk Sepeda = "+Bentuk_sepeda);
System.out.println("Sepeda Beroda = "+Roda);
}
}
public class sepedabaru {
public static void main(String[] args){
//membuat objek
sepeda sepedaku = new sepeda ();
/* memanggil atribut dan memberi nilai */
sepedaku.Merek= "Polygon";
sepedaku.tahunProduksi= 2009;
sepedaku.Kecepatan_naik= 50;
sepedaku.Kecepatan_turun= 70;
sepedaku.Perpindahan_gigi= "Otomatis";
sepedaku.Sistem_pengereman= "Manual";
sepedaku.Bentuk_sepeda= "Standard";
sepedaku.Roda= "2 roda";
sepedaku.printsepedabaru();
}
}
OBJEK SEPEDA GUNUNG:
1. Memiliki atribut (state) : pedal, roda, jeruji, warna,jumlah roda, merek, tahun pembuatan, gear, rem, stang, ban, rantai sepeda, jok
2. Memiliki tingkah laku (behavior) : kecepatanya menaik,, kecepatannya Menurun, perpindahan gigi sepeda, pengereman, jumping
Program Java:
class sepeda{
String Warna;
Integer tahunPembuatan;
Integer Kecepatan_naik;
Integer Kecepatan_turun;
String Perpindahan_gigi;
String Sistem_pengereman;
String Sponsor;
String Tingkat;
void printsepedagunung(){
System.out.println("Warna = "+Warna);
System.out.println("Tahun = "+tahunPembuatan);
}
void kecepatan_naik(){
System.out.println("Kecepatan naik(KM/jam) = "+Kecepatan_naik);
}
void kecepatan_Turun(){
System.out.println("Kecepatan turun(KM/jam)= "+Kecepatan_turun);
}
void perpindahan_gigi(){
System.out.println("Perpindahan Gigi Sepada= "+Perpindahan_gigi);
}
void Sistem_Pengereman(){
System.out.println("Sistem Pengereman = "+Sistem_pengereman);
}
void Sponsor(){
System.out.println("Sponsor = "+Sponsor);
}
void Tingkat(){
System.out.println("Tingkat = "+Tingkat);
}
}
public class sepedagunung {
public static void main(String[] args){
//membuat objek
sepeda sepedaku = new sepeda ();
/* memanggil atribut dan memberi nilai */
sepedaku.Warna= "Putih";
sepedaku.tahunPembuatan= 2005;
sepedaku.Kecepatan_naik= 145;
sepedaku.Kecepatan_turun= 250;
sepedaku.Perpindahan_gigi= "Manual";
sepedaku.Sistem_pengereman= "Manual";
sepedaku.Sponsor= "Polygon";
sepedaku.Tingkat= "Profesional";
sepedaku.printsepedagunung();
sepedaku.kecepatan_naik();
sepedaku.kecepatan_Turun();
sepedaku.perpindahan_gigi();
sepedaku.Sistem_Pengereman();
sepedaku.Sponsor();
sepedaku.Tingkat();
}
}
OBJEK AC:
1. Memiliki atribut (state) :Type, tahun pembuatan, temperatur, maksimal dan minimal dingin
2. Memiliki tingkah laku(behavior):cara hidupkan, cara matikan
class AC{
String Type;
Integer tahunPembuatan;
Integer Temperatur;
Integer Maksimal;
Integer Minimal;
String Hidupkan;
String Matikan;
void Type(){
System.out.println("Type = "+Type);
}
void tahunPembuatan(){
System.out.println("Tahun = "+tahunPembuatan);
}
void Temperatur(){
System.out.println("Temperatur = "+Temperatur);
}
void Maksimal(){
System.out.println("Maksimal dingin= "+Maksimal);
}
void Minimal(){
System.out.println("Minimal dingin = "+Minimal);
}
void Hidupkan(){
System.out.println("Cara Hidupkan = "+Hidupkan);
}
void Matikan(){
System.out.println("Cara Matikan = "+Matikan);
}
}
public class ACbaru {
public static void main(String[] args){
//membuat objek
AC ACku = new AC ();
/* memanggil atribut dan memberi nilai */
ACku.Type= "Panasonic";
ACku.tahunPembuatan= 2008;
ACku.Temperatur= 30;
ACku.Maksimal= 30;
ACku.Minimal= 10;
ACku.Hidupkan= "Manual pakai remote";
ACku.Matikan= "Otomatis";
ACku.Type();
ACku.tahunPembuatan();
ACku.Temperatur();
ACku.Maksimal();
ACku.Minimal();
ACku.Hidupkan();
ACku.Matikan();
}
}
class matematika{
Integer tambah=0;
Integer kurang=0;
Integer kali =0;
Integer bagi =0;
void pertambahan(int pertambahan_tambah){
tambah=tambah+pertambahan_tambah;
System.out.println("Pertambahan 20+20= "+tambah);
}
void pengurangan(int pengurangan_kurang){
kurang=kurang-pengurangan_kurang;
System.out.println("Pengurangan 10-5 = "+kurang);
}
void perkalian(int perkalian_kali){
kali=kali*perkalian_kali;
System.out.println("Perkalian 10x20= "+kali);
}
void pembagian (int pembagian_bagi){
bagi=bagi/pembagian_bagi;
System.out.println("Pembagian 21/2 = "+bagi);
}
}
public class matematikaberaksi{
public static void main(String[] args){
// buat objek baru
matematika menghitung = new matematika();
/* panggil atribut*/
menghitung.tambah= 20;
menghitung.kurang= 10;
menghitung.kali = 20;
menghitung.bagi = 21;
//tampilkan method
menghitung.pertambahan(20);
menghitung.pengurangan(5);
menghitung.perkalian(10);
menghitung.pembagian(2);
}
}
OBJEK SEPEDA:
1. Memiliki atribut (state) : pedal, roda, jeruji, warna,jumlah roda, merek, tahun pembuatan, gear.
2. Memiliki tingkah laku (behavior) : kecepatanya menaik,, kecepatannya
Menurun, perpindahan gigi sepeda
Program java:
class sepeda{
String Merek;
Integer tahunProduksi;
Integer Kecepatan_naik;
Integer Kecepatan_turun;
String Perpindahan_gigi;
String Sistem_pengereman;
String Bentuk_sepeda;
String Roda;
void printsepedabaru(){
System.out.println("Merek = "+Merek);
System.out.println("Tahun = "+tahunProduksi);
System.out.println("Kecepatan naik(KM/jam) = "+Kecepatan_naik);
System.out.println("Kecepatan turun(KM/jam)= "+Kecepatan_turun);
System.out.println("Perpindahan Gigi Sepeda= "+Perpindahan_gigi);
System.out.println("Sistem Pengereman = "+Sistem_pengereman);
System.out.println("Bentuk Sepeda = "+Bentuk_sepeda);
System.out.println("Sepeda Beroda = "+Roda);
}
}
public class sepedabaru {
public static void main(String[] args){
//membuat objek
sepeda sepedaku = new sepeda ();
/* memanggil atribut dan memberi nilai */
sepedaku.Merek= "Polygon";
sepedaku.tahunProduksi= 2009;
sepedaku.Kecepatan_naik= 50;
sepedaku.Kecepatan_turun= 70;
sepedaku.Perpindahan_gigi= "Otomatis";
sepedaku.Sistem_pengereman= "Manual";
sepedaku.Bentuk_sepeda= "Standard";
sepedaku.Roda= "2 roda";
sepedaku.printsepedabaru();
}
}
OBJEK SEPEDA GUNUNG:
1. Memiliki atribut (state) : pedal, roda, jeruji, warna,jumlah roda, merek, tahun pembuatan, gear, rem, stang, ban, rantai sepeda, jok
2. Memiliki tingkah laku (behavior) : kecepatanya menaik,, kecepatannya Menurun, perpindahan gigi sepeda, pengereman, jumping
Program Java:
class sepeda{
String Warna;
Integer tahunPembuatan;
Integer Kecepatan_naik;
Integer Kecepatan_turun;
String Perpindahan_gigi;
String Sistem_pengereman;
String Sponsor;
String Tingkat;
void printsepedagunung(){
System.out.println("Warna = "+Warna);
System.out.println("Tahun = "+tahunPembuatan);
}
void kecepatan_naik(){
System.out.println("Kecepatan naik(KM/jam) = "+Kecepatan_naik);
}
void kecepatan_Turun(){
System.out.println("Kecepatan turun(KM/jam)= "+Kecepatan_turun);
}
void perpindahan_gigi(){
System.out.println("Perpindahan Gigi Sepada= "+Perpindahan_gigi);
}
void Sistem_Pengereman(){
System.out.println("Sistem Pengereman = "+Sistem_pengereman);
}
void Sponsor(){
System.out.println("Sponsor = "+Sponsor);
}
void Tingkat(){
System.out.println("Tingkat = "+Tingkat);
}
}
public class sepedagunung {
public static void main(String[] args){
//membuat objek
sepeda sepedaku = new sepeda ();
/* memanggil atribut dan memberi nilai */
sepedaku.Warna= "Putih";
sepedaku.tahunPembuatan= 2005;
sepedaku.Kecepatan_naik= 145;
sepedaku.Kecepatan_turun= 250;
sepedaku.Perpindahan_gigi= "Manual";
sepedaku.Sistem_pengereman= "Manual";
sepedaku.Sponsor= "Polygon";
sepedaku.Tingkat= "Profesional";
sepedaku.printsepedagunung();
sepedaku.kecepatan_naik();
sepedaku.kecepatan_Turun();
sepedaku.perpindahan_gigi();
sepedaku.Sistem_Pengereman();
sepedaku.Sponsor();
sepedaku.Tingkat();
}
}
OBJEK AC:
1. Memiliki atribut (state) :Type, tahun pembuatan, temperatur, maksimal dan minimal dingin
2. Memiliki tingkah laku(behavior):cara hidupkan, cara matikan
class AC{
String Type;
Integer tahunPembuatan;
Integer Temperatur;
Integer Maksimal;
Integer Minimal;
String Hidupkan;
String Matikan;
void Type(){
System.out.println("Type = "+Type);
}
void tahunPembuatan(){
System.out.println("Tahun = "+tahunPembuatan);
}
void Temperatur(){
System.out.println("Temperatur = "+Temperatur);
}
void Maksimal(){
System.out.println("Maksimal dingin= "+Maksimal);
}
void Minimal(){
System.out.println("Minimal dingin = "+Minimal);
}
void Hidupkan(){
System.out.println("Cara Hidupkan = "+Hidupkan);
}
void Matikan(){
System.out.println("Cara Matikan = "+Matikan);
}
}
public class ACbaru {
public static void main(String[] args){
//membuat objek
AC ACku = new AC ();
/* memanggil atribut dan memberi nilai */
ACku.Type= "Panasonic";
ACku.tahunPembuatan= 2008;
ACku.Temperatur= 30;
ACku.Maksimal= 30;
ACku.Minimal= 10;
ACku.Hidupkan= "Manual pakai remote";
ACku.Matikan= "Otomatis";
ACku.Type();
ACku.tahunPembuatan();
ACku.Temperatur();
ACku.Maksimal();
ACku.Minimal();
ACku.Hidupkan();
ACku.Matikan();
}
}
Rabu, 18 November 2009
SISTEM OPERASI 18/11/2009
-->Untuk Login ke USER baru misal: Dari User "software@linux-c13:~$"---Ke--- User"guilty@labcomp:~$" adalah (ssh guilty@labcomp)
-->Quiz:
Rabu, 04 November 2009
OS 04/11/2009
Masuk Ke Folder Masing - masing :
-->guilty@labcomp:~/Public/PRAKTIKUM-SO-TI/WAHYU_43E57006065027$
Membuat data :
-->guilty@labcomp:~/Public/PRAKTIKUM-SO-TI/WAHYU_43E57006065027$ nano Test1.sh(isi text: #!/bin/bash enter echo "Belajar Script/Shell" enter echo "haiii")
Cara Memanggil :
-->sh Test1.sh
-->.Test1.sh
-->bash Test1.sh
Langganan:
Postingan (Atom)