Program Dasar Case Of dengan Bahasa Pascal

program dasar_caseof; var x:integer; begin writeln('belajar case of dasar'); writeln; write('masukan sebuah angka =');readln(x); case x of 0:writeln('x bernilai 0'); 1:writeln('x bernilai 1'); 2:writeln('x bernilai 2'); 3:writeln('x bernilai 3'); else writeln('x tidak bernilai 0,1,2,3'); end; end. ...

Read more »

Posted in: BAHASA PASCAL

Program Konversi Nilai dengan Bahasa Pascal

program konversi; var angka:integer; begin writeln('mengkonversi nilai angka menjadi huruf'); write('masukan nilai anda = ');readln(angka); if ((angka>=0) and (angka<=20)) then writeln('nilai anda adalah huruf = e') else if ((angka>20) and (angka<=40)) then writeln('nilai anda adalah huruf = d') else if ((angka>40) and (angka<=60)) then writeln('nilai anda adalah huruf = c') else if ((angka>60) and (angka<=80)) then writeln('nilai anda adalah huruf = b') else writeln('nilai anda adalah huruf = a'); end....

Read more »

Posted in: BAHASA PASCAL

Program Positif For Negatif dengan Bahasa Pascal

program positifornegatif; var x:integer; begin writeln('menguji if then else'); write('masukan sebuah angka=  ');readln(x); if(x>0)then writeln('x adalah positif') el writeln('x adalah bilangan negatif'); end. ...

Read more »

Posted in: BAHASA PASCAL

Program Menghitung Pertambahan Matrik dengan Bahasa Pascal

program aku; uses Crt; var I,J : integer; a,b,c : array [1..3, 1..2] of integer; ch : char; begin clrscr; writeln ('program menghitung pertambahan matrix 3x2'); writeln ('=================================='); for J := 1 to 2 do begin write ('masukkan nilai matrik a[',I,',',J,']='); readln (a[I,J]); write ('masukkan nilai matrik b[',I,',',J,']='); readln (b[I,J]); end; writeln; writeln('maka hasil dari matrik a+b ='); for I:= 1 to 3 do begin write ('|'); for J : 1 to 2 do write (a[I,J] + b[I,J]:8; write ('|'); writeln; end; write (.press any key to continue..'); end. program informatika; var a,b,c : array [1..100, 1..100] of integer; n,m,k,l,i,j: integer; begin write ('m= '); readln (m); write ('n= '); readln (n); for i:= 1 to m do for j:= 1 to n do begin write ('a[',i,',',j,']='); readln...

Read more »

Posted in: BAHASA PASCAL

Program Alternatif Rata-Rata dengan Bahasa Pascal

program alternatifratarat; var total,a,b,c,d,e:integer; rata_rata:real; begin writeln('program menghitung rata-rata bilangan'); write('masukakan kelima bilangan dipisahkan dengan spasi = ');readln(a,b,c,d,e); total:=a+b+c+d+e; writeln('total kelima bilangan adalah =',total); rata_rata:=total/5; writeln('rata-ratanya adalah =',rata_rata:4:2); end. ...

Read more »

Posted in: BAHASA PASCAL

Sistem Jaringan Komputer

Penggabungan teknologi komputer dan komunikasi berpengaruh sekali terhadap bentuk organisasi sistem komputer. Dewasa ini, konsep "pusat komputer", dalam sebuah ruangan yang berisi sebuah komputer besar, tempat dimana semua pengguna mengolah pekerjaannya, merupakan konsep yang sudah ketinggalan jaman. Model komputer tunggal yang melayani seluruh tugas-tugas komputasi suatu organisasi telah diganti oleh sekumpulan komputer berjumlah banyak yang terpisah-pisah tetapi saling berhubungan dalam melaksanakan tugasnya. Sistem seperti ini disebut sebagai Jaringan Komputer (Computer Network).  Jaringan komputer dapat diartikan sebagai suatu himpunan interkoneksi sejumlah komputer otonom. Dua buah komputer dikatakan membentuk suatu network bila keduanya dapat saling bertukar informasi....

Read more »

Posted in: JARINGAN KOMPUTER

Cara Instalasi Windows XP

Windows XP adalah suatu sistem pengoperasian (operating system) yang paling banyak dipakai sampai saat ini karena selain kemudahan dalam pemakaiannya Windows XP digunakan sebagai standarisasi pembelajaran yang di pakai oleh sekolahan-sekolahan dan perguruan tinggi pada umumnya. Untuk melakukan penginstalan windows xp diperlukan ketelitian dan kesabaran dalam prosesnya karena memerlukan waktu yang lumayan lama. Ada beberapa jenis windows xp diantaranya windows xp professional, Home Edition, Media Center Edition, Tablet PC Edition, Starter Edition, Professional x64 Edition, Professional 64-bit Edition For Itanium. berikut langkah-langkah yang mudah dan lengkap cara menginstal windows xp : 1. Siapkan CD WINDOWS XP 2. Siapkan...

Read more »

Posted in: SISTEM OPERASI,SOFTWARE

Program Input Data Mahasiswa

class Mahasiswa { int NIM; String Nama; int TinggiBadan; int BeratBadan; String JenisKelamin; String Hobby;  }  public class MahasiswaData{  public static void main (String[]args){  Mahasiswa mahasiswaku = new Mahasiswa();  mahasiswaku.NIM = 2011470130;  mahasiswaku.Nama ="Ahmad Sakhowi Amin";  mahasiswaku.TinggiBadan =170;  mahasiswaku.BeratBadan = 65;  mahasiswaku.JenisKelamin = "Laki-Laki";  mahasiswaku.Hobby = "Iqro";  System.out.println("NIM :"+ mahasiswaku.NIM);  System.out.println("Nama :"+ mahasiswaku.Nama);  System.out.println("TinggiBadan :"+ mahasiswaku.TinggiBadan);  System.out.println("BeratBadan :"+ mahasiswaku.BeratBadan);  System.out.println("JenisKelamin :"+ mahasiswaku.JenisKelamin);  System.out.println("Hobby...

Read more »

Posted in: BAHASA JAVA

Program String Copy dengan Bahasa Pascal

var a,b,c,d,e:string; begin a:='UNIVERSITAS'; b:='MUHAMMADIYAH'; c:=copy(a,1,3); d:=copy(b,8,11); e:=c+d; writeln('c=',c); writeln('d=',d); writeln('e=',e); end. program ahmadsa; var susunan1,susunan2,susunan3,wordA,wordB,wordC,wordD,wordE,wordF,wordG : string; a,b,c : integer; begin susunan1:='FAKULTAS'; susunan2:='TEKNIK'; susunan3:='INFORMATIKA'; a:=length (susunan1); b:=length (susunan2); c:=length (susunan3); wordA:=copy (susunan1,1,3); wordB:=copy (susunan1,4,4); wordC:=copy (susunan2,3,4); wordD:=copy (susunan3,3,6); wordE:=copy (susunan3,3,5); wordF:=copy (susunan1,3,3); wordG:=wordE+wordF; writeln(a,b,c); writeln('wordA = ',wordA); writeln('wordB = ',wordB); writeln('wordC = ',wordC); writeln('wordD = ',wordD); writeln('wordG = ',wordG); end. ...

Read more »

Posted in: BAHASA PASCAL