NO TITLE

Selasa, 24 Maret 2015

Cara Membuat Perkalian Genap Ganjil Menggunakan Looping For dengan Turbo Pascal

uses crt;
var
   i,b,j : byte;
   ket   :string;

Begin
     Clrscr;
            writeln('perkalian');
            writeln('======================');
            {memberi nilai index akhir}
            write('input perkalian berapa ='); readln(b);
            {perintah looping for}
                      for i:= 1 to b do
                      begin
                      {proses perkalian}
                          j:=i*b;
                      {proses mencari keterangan}
                      if j mod 2 = 0 then
                      ket:='bilangan genap'
                      else
                          ket:='bilangan ganjil';
                      {menampilkan hasil}
                      writeln(i,'x',b,'=',j,'-',ket);
                      End;
            readln;
     End.

jadi nanti outputnya(hasil) seperti ini:

Menghitung, Volume Kubus, Luas Persegi Panjang, Luas Segitiga, Luas Lingkaran, dengan Turbo Pascal.

uses crt;
var
   pil         : byte;
   s,p,l    : longint;
   a,t       : longint;
   Ls         : real;
   r        : integer;
   Lk       : real;
   vol,luas : longint;
   const phi    =3.14;

Begin
     clrscr;
     writeln('menu program');
     writeln('============================');
     writeln('1.menghitung volume kubus');
     writeln('2.menghitung luas persegi panjang');
     writeln('3.menghitung luas segitiga');
     writeln('4.menghitung luas lingkaran');
     writeln('=============================');
     write('pilihan :');readln(pil);
     if pil= 1 then
     Begin
           clrscr;
           writeln('menghitung volume kubus');
           writeln('=========================');
           write('sisi kubus :');readln(s);
           vol:=s*s*s;
           writeln('volume kubus :',vol);
           readln;

     End
     else if pil= 2 then
     Begin
          clrscr;
          writeln('menghitung luas persegi panjang');
          writeln('============================');
          write('panjang :'); readln(p);
          write('lebar   :'); readln(l);
          luas:=p*l;
          writeln('luas :',luas);
          readln;

     End
     else if pil= 3 then
     Begin
          clrscr;
          writeln('menghitung luas segi tiga');
          writeln('=============================');
          write('alas   :'); readln(a);
          write('tinggi :'); readln(t);
          LS:=1/2*a*t;
          writeln('==============================');
          writeln('luas segi tiga :',ls:0:2);
          readln;

     End
     else if pil= 4 then
     Begin
          clrscr;
          writeln('menghitung luas lingkaran');
          writeln('===============================');
          write('masukkan jari-jari :'); readln(r);
          LS:=phi*r*r;
          writeln('================================');
          writeln('luas lingkaran :',lk:0:2);
          readln;
     End

End.

Rabu, 11 Maret 2015

contoh Program HTML jadwal perkuliahan ATA

<html>

<head>
<title>Perkuliahan ATA</title>
</head>
<body bgcolor="aqua">
Jadwal Perkuliahan ATA
<table align="center" width="50%" border="10" style="background:white">
 <tr>
 <td>Kelas</td>
 <td>Ruang</td>
 <td>Mata Kuliah</td>
 <td>Dosen</td>
 <td>Waktu</td>
 <td>Ruang</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Rabu</td>
 <td>Pemrograman Berbasis WEB **</td>
 <td>Aviariani</td>
 <td>1/2/3</td>
 <td>D337</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Rabu</td>
 <td>Sistem Informasi SDM</td>
 <td>Reza Chandra</td>
 <td>4/5</td>
 <td>D337</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Rabu</td>
 <td>Pengelolaan Proyek Sistem Informasi</td>
 <td>Farida</td>
 <td>7/8</td>
 <td>D023</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Kamis</td>
 <td>Sistem Informasi Perbankan</td>
 <td>Veranita</td>
 <td>1/2</td>
 <td>D003</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Kamis</td>
 <td>Testing dan Implementasi Sistem *</td>
 <td>Harjanto Sutejo</td>
 <td>3/4/5</td>
 <td>D003</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Kamis</td>
 <td>Etika dan Profesionalisme TSI #</td>
 <td>Robby Chandra</td>
 <td>78</td>
 <td>D005</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Kamis</td>
 <td>Sistem Informasi Geografis</td>
 <td>Avinanta Tarigan</td>
 <td>9/10</td>
 <td>D005</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Sabtu</td>
 <td>Aplikasi Bisnis Teknologi Informasi</td>
 <td>Dewi Anggraini Puspa Hapsari</td>
 <td>2/3/4</td>
 <td>D031</td>
 </tr>
 <tr>
 <td>4KA09</td>
 <td>Sabtu</td>
 <td>Bahasa Inggris Bisnis 2</td>
 <td>Sastri Lindawati</td>
 <td>6/7</td>
 <td>D037</td>
 </tr>
 </table>
Kembali ke Biodata klik <a href="Hal-1.html">disini</a>
</body>
</html>

Minggu, 08 Maret 2015

Contoh Program sederhan Input Nilai Mahasiswa dengan C++

Contoh Program Sederhana Input Nilai Mahasiswa C++

#include "iostream"

#include "conio.h"

#include "string"

using namespace std;

void main(){

string npm,nama;

int nilai[5],hasil=0,jumlah=0;

cout<<"Npm : ";cin>>npm;

if(npm=="2013250051"){

cout<<"Nama : Aisyah Fuja\n";

}

else if (npm=="2013250068"){

cout<<"Nama : Ulfa Puji Ramasari";}

else if (npm=="2013250019"){

cout<<"Nama : Toni Iskandar";}

else if(npm=="2013250042"){

cout<<"Nama : Asih Astuti";}

else {

cout<<"input nama : ";cin>>nama;

}

cout<<endl;

for(int i=0;i<=4;i++){

cout<<"Nilai "<<i+1<<" : ";cin>>nilai[i];

}

for(int i=0;i<=4;i++){

cout<<nilai[i]<<" ";

hasil+=nilai[i];

jumlah=hasil/5;

}

cout<<"\nHasil : "<<hasil;

cout<<"\nJumlah Rata-Rata : "<<jumlah;

_getch();

}

Harga Sony Xperia T3 dan Spesifikasinya 2015

Selasa, 03 Maret 2015

Program Cek kelulusan dengan Turbo Pascal

program cek_kelulusan_siswa;
uses crt;
var
nama : string[25];
kelas : string[5];
no_absen : string[3];
n_tugas : byte;
n_u_hari : byte;
n_u_umum : byte;
rerata : real;
lulus : boolean;
predikat : string[20];
begin
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘Input Data Siswa’);
writeln(‘—————-’);
write(‘Nama : ‘); readln(nama);
write(‘Kelas : ‘); readln(kelas);
write(‘No Absen : ‘); readln(no_absen);
write(‘Nilai Tugas : ‘); readln(n_tugas);
write(‘Nilai Ulangan Harian : ‘); readln(n_u_hari);
write(‘Nilai Ulangan Umum : ‘); readln(n_u_umum);
rerata:=(n_tugas + 2 * n_u_hari + 3 * n_u_umum)/6;
if rerata >=70 then lulus:=true
else lulus:= false;
clrscr;
writeln(‘====================================================’);
writeln(‘| Program Mengecek Kelulusan Siswa |’);
writeln(‘====================================================’);
writeln;
writeln(‘ Siswa dengan’);
writeln(‘—————-’);
writeln(‘Nama : ‘,nama);
writeln(‘Kelas : ‘,kelas);
writeln(‘No Absen : ‘,no_absen);
writeln(‘Nilai Tugas : ‘,n_tugas);
writeln(‘Nilai Ulangan Harian : ‘,n_u_hari);
writeln(‘Nilai Ulangan Umum : ‘,n_u_umum);
writeln(‘Rata – rata : ‘,rerata:0:2);
if lulus then
begin
if rerata < 80 then predikat:=’memuaskan’
else if rerata <90 then predikat:=’sangat memuaskan’
else predikat:=’dengan pujian’;
writeln(‘Dinyatakan Lulus dengan ‘,predikat);
end
else
writeln(‘Dinyatakan Tidak Lulus’);
readln;
end.

Contoh Program Administrasi Mahasiswa dengan Turbo Pascal

Program Administrasi_Mahasiswa;
uses crt;
const
pkkspp = 400000;
infospp = 600000;
elekspp = 500000;
bogaspp = 450000;
ptikspp = 500000;
pkkprak = 100000;
infoprak = 500000;
elekprak = 450000;
bogaprak = 600000;
ptikprak = 350000;
sehat : real = 10000;
var
nm,jur : string;
nojur : byte;
tahun :integer;
spp,prak : real;
tot : real;
begin
clrscr;
writeln(‘Administrasi Mahasiswa Fakultas Teknik dan Kejuruan’);
writeln(‘===================================================’);
write(‘Nama : ‘); readln(nm);
writeln(‘Keterangan Jurusan : ‘);
writeln(’1. PKK’);
writeln(’2. D3 Informatika’);
writeln(’3. D3 Elektro’);
writeln(’4. D3 Boga Perhotelan’);
writeln(’5. PTIK’);
write(‘Jurusan (tulis no saja) : ‘); readln(nojur);
write(‘Tahun Masuk : ‘); readln(tahun);
if tahun<2004 then
begin
if nojur = 1 then
begin
spp := pkkspp;
jur := ‘PKK’
end
else if nojur = 2 then
begin
spp :=infospp;
jur := ‘D3 Informatika’;
end
else if nojur = 3 then
begin
spp :=elekspp;
jur := ‘D3 Elektro’
end
else if nojur = 4 then
begin
spp :=bogaspp;
jur := ‘D3 Boga Perhotelan’;
end
else if nojur= 5 then
begin
spp :=ptikspp;
jur := ‘PTIK’
end
else
writeln(‘Jurusan salah, tolong ulangi !!’);
end
else
begin
if nojur = 1 then
begin
spp := pkkspp;
prak:= pkkprak;
jur := ‘PKK’
end
else if nojur= 2 then
begin
spp :=infospp;
prak:= infoprak;
jur := ‘D3 Informatika’;
end
else if nojur = 3 then
begin
spp :=elekspp;
prak:=elekprak;
jur := ‘D3 Elektro’;
end
else if nojur = 4 then
begin
spp :=bogaspp;
prak:=bogaprak;
jur := ‘D3 Boga Perhotelan’;
end
else if nojur= 5 then
begin
spp :=ptikspp;
prak:=ptikprak;
jur := ‘PTIK’;
end
else
writeln(‘Jurusan salah, tolong ulangi !!’);
end;
tot := spp+prak+sehat;
writeln(‘Nama : ‘,nm);
writeln(‘Jurusan : ‘,jur);
writeln(‘Tahun Masuk : ‘,tahun);
writeln(‘Uang SPP : Rp. ‘,spp:7:2);
writeln(‘Uang Praktikum : Rp. ‘,prak:7:2);
writeln(‘Uang Kesehatan : Rp. ‘,sehat:7:2);
writeln(‘———————————’);
writeln(‘Total Pembayaran : Rp. ‘,tot:7:2);
writeln(‘=================================================’);
readln;
end.