The rowset is not bookmarkable

Visual Basic : (Solution)

Set conn = CreateObject(“ADODB.Connection”)

conn.CursorLocation = adUseClient

strCONN = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dbDSS.mdb;Persist Security Info=False”
conn.Open strCONN, “”, “”
strSQL = “SELECT * FROM ranking order by nilai DESC”
Set rs = CreateObject(“ADODB.recordset”)
Set rs = conn.Execute(strSQL)
Set DataGrid1.DataSource = rs

‘Set rs = Nothing
‘conn.Close
‘Set conn = Nothing

Filed under: Proyek

Atasai Hidden pada Flash Memory

1. Klik Star

2. Klik Run

3. Ketik CMD dan OK

4. Masuk direktori FlashDisk dengan mengketik CD E:\ atau yang lainnya.

5. Ketik ATTRIB -s -h *.* /s /d

6. Tunggu, setelah selesai buka folder di Flasdisk dengan windows explorer dan liat pasti semua file dan folder akan terlihat, tetapi jika tidak sebaiknya anda lakukan scan terhadap virus.

Filed under: 1

disable autorun.inf <= mencegah virus

Sekarang udah marak virus yang susah di basmi dengan anti virus sehebat apapun, pasalnya virusnya udah kita anggap program legal bagi komputer kita. Efek yang muncul kadang Windows Task Manager di nonaktifkan, kadang juga folder option juga di nonaktifkan, yang lebih menjengkelkan lagi efek yang aneh2 muncul dan ketika kita buang tapi dateng lagi secara otomatis.

Cara Pertama:

KALAU UDAH INSTALL WINDOWS BARU LANGSUNG AJA BUAT ACCOUNT BARU. JADI DI KOMPUTER KITA ADA DUA ACCOUNT ADMINISTRATOR DAN GUEST. TRUZ KALAU MAU COPY DATA DARI FLASH DISK GUNAKAN ACCOUNT GUEST.

Cara kedua:

NON AKTIFKAN LAYANAN AUTORUN.INF KARENA JIKA PROGRAM DI JALANKAN OLEH FILE INI AKAN DIREGISTER KE KOMPUTER KITA SEHINGGA PROGRAM JAHAT ATAU BAIK TETEP DIANGGAP BAIK.

1. Jalan Dos Prompt (Klik Star-Run)

2. Pada dos Prompt ketik cmd /d: off

SEBELUM MENGINSTAL PROGRAM YANG LAINYA SETELAH MENGINSTAL SISTEM OPERASI WINDOWS XP BAIKNYA LANGSUNG MENGINSTALL ANTIVIRUS. TAPI PERLU DIINGAT VIRUS BUKAN HANYA DATANG DARI FLASH DISK TAPI KADANG JUGA DATENG DARI CD BAJAKAN KETIKA KITA BELI CD PROGRAM/GAME  KITA KADANG TERLALU YAKIN KALU CD-CD YANG KITA PUNYA DI BURN MENGGUNAKAN KOMPUTER YANG BERSIH DARI VIRUS.

JANGAN LUPA UNTUK SELALU MENGUPDATE ANTI VIRUS KOMPUTER KITA.

saya tunggu pengalaman kawan-kawan yang lain.

Filed under: Lain-lain

Prosedur

program CetakBintang;
uses wincrt;

var N,i:integer;

procedure Bintang(j:integer);
var i:integer;

begin
for i:=1 to j do
write(‘*’);
writeln;
end;

begin

write(‘Masukan N : ‘);readln(N);
for i:=n downto 1 do bintang(i);

end.{
1. Buatlah program utk menyusun bintang sbb:
* * * *
* * *
* *
*
Program memanfaatkan prosedur utk menyusun bintang setiap barisnya dg parameter formal berupa jml bintang yg harus diketik.
}

{
2. Buatlah program utk menukar isi 2 array A dan B yg masing-masing berisi data angka. Program memuat prosedur2 utk:
- menukar nilai 2 variabel
- menukar nilai 2 array (memanfaatkan prosedur pertama di atas)
- memasukkan elemen2 array
- menulis elemen2 array
Input: jml elemen (diasumsikan sama utk 2 array) dan elemen2 tiap array
Output: tampilan elemen2 array sebelum dan sesudah ditukar
}

program tukarelemenArray;
uses WinCrt;

Type
Larik=array[1..10] of integer;

var
X,Y:larik;
n:integer;

procedure TUKAR(var a,b:integer);
var
temp:integer;
begin
temp:=a;
a:=b;
b:=temp;
end;

procedure TUKARarray(var X,Y:larik;n:integer);
var i:integer;
begin
for i:=1 to n do
TUKAR(x[i],y[i]);
end;

procedure MASUKarray(var X,Y:Larik;n:integer);
var
i:integer;
begin
for i:=1 to n do
begin
write(‘Larik I:’,i,’–>’);
readln(x[i]);
end;
for i:=1 to n do
begin
write(‘Larik II:’,i,’–>’);
readln(y[i]);
end;

end;

procedure Tampilarray(X,Y:larik;n:integer);
var
i:integer;
begin

for i:=1 to n do
write(‘Larik I :’,i,’-> ‘,x[i],’ ‘);
writeln;

for i:=1 to n do
write(‘Larik II:’,i,’-> ‘,y[i],’ ‘);
writeln;
end;

begin
write(‘Masukan jumlah elemen : ‘);readln(n);
Masukarray(x,y,n);

writeln;
writeln(‘Sebelum ditukar’);
Tampilarray(x,y,n);

TUKARarray(X,Y,n);

writeln(‘Setelah ditukar’);
Tampilarray(x,y,n);

end.

{

3.Buatlah program utk menjumlahkan dan mengalikan 2 matriks. Program memuat prosedur2 utk:
- memasukkan elemen2 matriks
- menampilkan elemen2 matriks berdasarkan baris dan kolomnya
- menjumlahkan 2 matriks
- mengalikan 2 matriks
Pertama kali, user mamasukkan orde dan elemen2 ke-2 matriks. Kemudian, user memilih menu.
Ada 2 menu yaitu:
1. jumlahkan matriks
2. kalikan matriks
Jk menu 1 dipilih, harus dicek apakah orde sama. Jk menu 2 dipilih, harus dicek apakah jml kolom matriks 1 sama dg jml baris matriks 2
Kemudian ditampilkan elemen2 setiap matriks dan hasil operasinya
}

Filed under: 1

Latihan VI(Tpx: Repeat..)

1. Buatlah program untuk menampilkan tabel perkalian sbb:
x 1 2 3 4
1 1 2 3 4
2 2 4 6 8
3 3 6 9 12
4 4 8 12 16
Input: n (utk cth di atas n = 4)
Output: tabel perkalian seperti contoh di atas.

—————————————–

uses wincrt;
var n,i,j: byte;
begin
write(‘Masukkan n:’);readln(n);
if n>0 then begin
i:=0;
write(‘ x |’);
repeat
i:=i+1;
write(i:4);
until i=n;
writeln;
i:=0;
repeat
write(‘—-’);
i:=i+1;
until i>n;
writeln;
i:=1;
repeat
j:=0;
repeat
if j=0 then write(i:2,’ |’)
else write(i*j:4);
j:=j+1;
until j>n;
writeln;
i:=i+1
until i>n;
end
else writeln(‘Tidak dapat dibuat tabel perkalian’);
end.

—————————————–

2. Buatlah program untuk mengalikan semua digit bilangan yg diinputkan sampai hanya tersisa 1 digit. Diasumsikan panjang digit tidak lebih dari 9 digit.
Contoh:
Input: 12345
Output: 1 x 2 x 3 x 4 x 5 = 120
1 x 2 x 0 = 0
—————————————————————–

uses WinCrt;
var
sBil:String;
vA:integer;
Max,i,n:integer;
hasil:longint;
sHasil:String;
nMax,y:integer;

begin
write(‘Masukan bilangan bulat : ‘);readln(sBil);
Max:=length(sBil);

repeat

hasil:=1;
i:=1;
repeat
VAL(COPY(sBil,i,1),vA,n);
hasil:=hasil*vA;
write(vA);
if i<Max then write(‘ x ‘);
i:=i+1;
until i>Max;
writeln(‘ = ‘,hasil);
writeln;

STR(hasil,sHasil);
sBil:=sHasil;
Max:=length(sHasil);

until Max<=1;
end.

—————————————————————–

atau

———————————————————————–

uses wincrt;
var i:byte;
bil:string;
kali:longint;

begin
write(‘Masukkan bilangan:’);
readln(bil);
repeat
kali:=1;
i:=1;
repeat
write(‘ ‘,bil[i],’ ‘);
kali:=kali*(ord(bil[i])-48);
if i< length(bil) then write(‘ x ‘);
i:=i+1;
until i=length(bil)+1;
writeln(‘ = ‘,kali);
str(kali,bil);
until length(bil)=1;
end.

———————————————————————–
3. Buatlah program untuk mengkonversi bilangan dari desimal ke biner.
Input: bilangan dalam desimal
Output: hasil konversi bilangan ke biner

——————————————————————

uses wincrt;
var bil:byte;
biner1,biner2:string;
i,j:byte;
begin
write(‘Masukkan bilangan desimal:’);
readln(bil);
biner1:=”;

repeat
biner1:=biner1+chr(bil mod 2 + 48); {char(48)=0}
bil:=bil div 2; {bilangan di ulangan terus dengan dibagi dua sampai habis}
until bil=0;

i:=length(biner1);
biner2:=”;

repeat
biner2:= biner2+biner1[i];
i:=i-1;
until i=0;
writeln(‘Konversi ke biner: ‘, biner2);
end.

——————————————————–

Filed under: 1

Latihan V (TPX: While…)

1. Modifikasi program untuk menampilkan pola bintang sebelumnya (soal latihan struktur for) menjadi struktur while.

————————————————

uses WinCrt;

var
i,j:integer;

begin

i:=5;
while i>= 1 do
begin
j:=1;
while j<= i do
begin
write(‘*’);
j:=j+1;
end;
writeln;
i:=i-1;
end;
end.

————————————————-

2. Buatlah program untuk menebak bilangan random yg dibangkitkan oleh program dengan jangkauan 0..10. User boleh menebak maksimum 3 kali. Pd setiap tebakan, program memberi petunjuk apakah bilangan random lebih atau kurang dari tebakan tersebut.

—————————————————

uses Wincrt;

var
i:byte;
data,x:integer;
begin
Randomize;
x := ord(Random(10));
i:=1;

while ((data<>x) and (i<=3)) do
begin
i:=i+1;
write(‘Masukan Bilangan : ‘);readln(data);

if data< x then
writeln(‘Tebakan lebih kecil’)
else
writeln(‘Tebakan lebih besar’);

writeln;

end;

if x=data then
writeln(‘SELAMAT ANDA BENAR MENEBAKNYA’)
else
writeln(‘Angka yang dimaksud : ‘,x,’ Maaf Anda GAGAL’);

end.

——————————————-

3. Buatlah program untuk menghitung pangkat bulat dari suatu bilangan real. Input adalah bilangan yg akan dipangkatkan (real) dan pangkatnya. Jika bil yg dipangkatkan 0, mk pangkat tdk boleh bilangan non positif. Outputnya adalah nilai hasil perpangkatan.

—————————————-

uses WinCrt;
var
x,y:real;
i,n:integer;

begin
write(‘Bilangan = ‘);readln(x);
write(‘Pangkat = ‘);readln(n);

y:=1;

if(x=0) and (n<=0) then writeln(‘Tidak ada hasil’)
else
begin
if x=0 then y:=0
else if n=0 then y:=1
else if n>0 then
begin
i:=0;
while (i<n) do
begin
i:=i+1;
y:=y*x;
end;
end
else
begin
i:=0;
while (i<abs(n)) do
begin
i:=i+1;
y:=y/x;
end;
end;
writeln(x:8:2,’ pangkat ‘,n:4,’ = ‘, y:10:2);
end;

end.

——————————————————————

4. Buatlah program untuk menampilkan menu perhitungan luas bangun datar (persegi, persegi panjang, lingkaran, segitiga) atau keluar dari program. Pengguna harus memilih menu sesuai dengan pilihan yg tersedia (jk pilihan tdk ada, pengguna harus mengetik ulang). Setelah suatu menu selesai dihitung dan ditampilkan, mk program menampilkan kembali menu utama sampai pengguna memilih menu keluar.

———————————————-

uses WinCrt;
var
pilih:byte;
alas,tinggi,lebar,panjang,jari:integer;
luas:real;

begin
pilih:=1;
while pilih<5 do
begin

writeln(‘MENU UTAMA MENCARI LUAS BANGUNAN’);
WRITELN(‘——————————–’);
writeln(‘1. PERSEGI ‘);
writeln(‘2. PERSEGI PANJANG ‘);
writeln(‘3. LINGKARAN ‘);
writeln(‘4. SEGI TIGA ‘);
writeln(‘5. KELUAR ‘);
writeln;
write(‘Masukan Pilihan anda [1..5] ? ‘);readln(pilih);

case pilih of
1: begin
writeln(‘Menghitung Luas Persegi’);
writeln;
write(‘Masukan Panjang Sisi : ‘);readln(panjang);
luas:=panjang*panjang;
writeln(‘Luas : ‘,luas:4:2);
end;

2: begin
writeln(‘Menghitung Luas Persegi Panjang’);
writeln;
write(‘Masukan Panjang Sisi : ‘);readln(panjang);
write(‘Masukan Lebar Sisi : ‘);readln(lebar);
luas:=panjang*lebar;
writeln(‘Luas : ‘,luas:4:2);
end;

3: begin
writeln(‘Menghitung Luas Lingkaran’);
writeln;
write(‘Masukan Panjang jari-jari : ‘);readln(panjang);
luas:=2*pi*Sqr(jari);
writeln(‘Luas : ‘,luas:4:2);
end;
4: begin
writeln(‘Menghitung Luas Segi Tiga’);
writeln;
write(‘Masukan Lebar Alas : ‘);readln(alas);
write(‘Masukan Tinggi : ‘);readln(tinggi);
luas:=0.5*(alas*tinggi);
writeln(‘Luas : ‘,luas:4:2);
end;
end;
end;
end.

———————————————-

Filed under: 1

Latihan V (Tpx:For…)

1. Buatlah program untuk menampilkan n bilangan asli pertama (dimulai dr 1), sekaligus menghitung jumlahnya.
Input: n
Output: 1 2 3 … n
Jumlah n bilangan asli pertama: …
Contoh: Input: 4
Output: 1 2 3 4
Jumlah 4 bilangan asli pertama: 10

———————————

uses WinCrt;

var
n,i:integer;
jum:integer;

begin

write(‘Masukan Bilangan : ‘);readln(n);
jum:=0;
for i:=1 to n do
begin
jum:=jum+i;
write(i,’ ‘)
end;

writeln;
writeln(‘Jumlah ‘,n,’ bilangan asli pertama : ‘,jum);
end.
———————————————————–

2. Buatlah program untuk membalik kalimat yg dimasukkan oleh user. Input adalah kalimat yg ingin dibalik, output-nya adalah kalimat hasil pembalikan.

—————————————————————–

uses WinCrt;
var
kalimat:string[160];
i,n:integer;
begin
write(‘Masukan Kalimat : ‘);readln(kalimat);
n:=length(kalimat);

writeln(‘Setelah DIBALIK:’);
for i:=n downto 1 do
write(kalimat[i]);
end.

—————————————————————-

3. Buatlah program untuk menghitung nilai faktorial suatu bilangan (n!).
n! = n x (n-1) x (n-2) x … x 3 x 2 x 1
4! = 4 x 3 x 2 x 1 = 12
Input: n
Output: seperti contoh di atas

——————————————————————————–

uses WinCrt;
var
N,i :integer;
fak :longint;
begin
fak:=1;
write(‘  ! (Faktorial)’);gotoxy(1,1);readln(N);
for i:=N downto 1 do
fak:=fak*i;
writeln(N,’!= ‘, fak);
end.
——————————————————————————–
4. Buatlah program untuk menampilkan pola:
* * * * *
* * * *
* * *
* *
*
Sbg input adalah n, yg merupakan jml bintang pd baris paling atas (dlm contoh di atas, n=5).
Outputnya berupa pola seperti di atas.

—————————————————————–

uses WinCrt;

var
i,j:integer;

begin

for i:=5 downto 1 do
begin
for j:=1 to i do
begin
write(‘*’)
end;
writeln;
end;
end.
————————————————————————–

Filed under: 1

Latihan IV (TPX:Case-Of)

————————————————–

1. Ubahlah bentuk program konversi nilai angka ke huruf menjadi bentuk case.

———————————————-

uses WinCrt;
var
nilai:byte;
huruf:char;

begin
write(‘Masukan nilai :[0..100] = ‘);readln(nilai);
case nilai of
84..100: huruf:=’A';
68..83 : huruf:=’B';
54..67 : huruf:=’C';
38..53 : huruf:=’D';
else
huruf:=’E';

end;
writeln(‘Nilai huruf anda adalah = ‘,huruf);
end.

———————————————————-

2. Buatlah program utk menampilkan menu perhitungan luas bangun datar (persegi, persegi panjang, lingkaran, segitiga) menggunakan struktur case. Jk dipilih suatu nomor, mk akan dilakukan perhitungan luas bangun dg masukan yg diperlukan.
——————————————————————

uses WinCrt;
var
pilih:byte;
alas,tinggi,lebar,panjang,jari:integer;
luas:real;

begin
writeln(‘MENU UTAMA MENCARI LUAS BANGUNAN’);
WRITELN(‘——————————–’);
writeln(‘1. PERSEGI ‘);
writeln(‘2. PERSEGI PANJANG ‘);
writeln(‘3. LINGKARAN ‘);
writeln(‘4. SEGI TIGA ‘);
writeln(‘5. KELUAR ‘);
writeln;
write(‘Masukan Pilihan anda [1..5] ? ‘);readln(pilih);

case pilih of
1: begin
writeln(‘Menghitung Luas Persegi’);
writeln;
write(‘Masukan Panjang Sisi : ‘);readln(panjang);
luas:=panjang*panjang;
writeln(‘Luas : ‘,luas:4:2);
end;

2: begin
writeln(‘Menghitung Luas Persegi Panjang’);
writeln;
write(‘Masukan Panjang Sisi : ‘);readln(panjang);
write(‘Masukan Lebar Sisi : ‘);readln(lebar);
luas:=panjang*lebar;
writeln(‘Luas : ‘,luas:4:2);
end;

3: begin
writeln(‘Menghitung Luas Lingkaran’);
writeln;
write(‘Masukan Panjang jari-jari : ‘);readln(panjang);
luas:=2*pi*Sqr(jari);
writeln(‘Luas : ‘,luas:4:2);
end;
4: begin
writeln(‘Menghitung Luas Segi Tiga’);
writeln;
write(‘Masukan Lebar Alas : ‘);readln(alas);
write(‘Masukan Tinggi : ‘);readln(tinggi);
luas:=0.5*(alas*tinggi);
writeln(‘Luas : ‘,luas:4:2);
end;

end;

end.

————————————————————————————

3. Buatlah program utk menentukan kuadran suatu titik apakah berada pada salah 1 di antara:
- ttk pusat
- sb x positif
- sb x negatif
- sb y positif
- sb y negatif
- kuadran 1
- kuadran 2
- kuadran 3
- kuadran 4
Anda dpt menggunakan struktur case atau if.

—————————————————————————-

uses WinCrt;
var
x,y:integer;

begin
writeln(‘Masukan sembarang data (min-100 dan max100)’);
writeln;
Write(‘Masukan Nilai X =’);readln(x);
Write(‘Masukan Nilai Y =’);readln(y);
writeln;

if x=0 then
begin
if y=0 then writeln(‘di Pusat’)
else if y>0 then writeln(‘y Sumbu Positif’)
else writeln(‘y Negatif’)
end

else if x>0 then
begin
if y=0 then write(‘x Sumbu Positif’)
else if y>0 then writeln(‘Kuadran I’)
else writeln(‘Kuadran IV’);
end
else
if x<0 then
begin
if y=0 then writeln(‘x Sumbu Negatif’)
else if y>0 then writeln(‘Di Kuadran II’)
else writeln(‘di Kuadran III’);
end;
end.

Filed under: 1

Latihan III (Pascal)

1. Buatlah program untuk mengkonversi nilai dari nilai angka menjadi nilai huruf. Aturan konversi:
jika nilai angka > 83, mk nilai huruf:A
jika 67 < nilai angka <= 83, mk nilai huruf: B
jika 53 < nilai angka <= 67, mk nilai huruf: C
jika 37 < nilai angka <= 53, mk nilai huruf: D
jika nilai angka <= 37, mk nilai huruf: E
Input: nilai angka
Output: nilai huruf

——————————————————————————–

uses WinCrt;
var
nilai:byte;
huruf:char;

begin
write(‘Masukan nilai :[0..100] = ‘);readln(nilai);
if nilai> 83 then
huruf:=’A’
else if nilai>67 then
huruf:=’B’
else if nilai > 53 then
huruf:=’C’
else if nilai>37 then
huruf:=’D’
else
huruf:=’E';
writeln(‘Nilai huruf anda adalah = ‘,huruf);
end.

————————————————————————

2. Buatlah program untuk menentukan apakah tahun yg diinputkan merupakan tahun kabisat atau bukan. Aturan tahun kabisat:
- Tahun yg merupakan kelipatan 4 tetapi bukan kelipatan 100 merupakan tahun kabisat
- Tahun yg merupakan kelipatan 400 merupakan tahun kabisat
Input: tahun
Output: informasi apakah th ybs merupakan th kabisat atau bukan

————————————————————————

uses winCRT;

var
tahun:integer;

begin
write(‘Masukan tahun = ‘);readln(tahun);
if (tahun mod 4=0 ) and ((tahun mod 100 <>0) or (tahun mod 400=0)) then
writeln(tahun,’ adalah tahun KABISAT’)
else
writeln(tahun,’ BUKAN kabisat’);
end.

————————————————————————

3. Buatlah program utk menghitung selisih waktu. Input berupa jam, menit, dan detik utk waktu awal dan waktu akhir. Output berupa selisih waktu dalam jam menit dan detik. Diasumsikan selisih waktu kurang dr 24 jam.

————————————————————————-

uses WinCrt;
var
j1,j2,j3,m1,m2,m3,d1,d2,d3:byte;
sisa:longint;
tDETIK,tDetik1,tDetik2:longint;

begin
writeln(‘Waktu mulai pembicaraan’);
writeln(‘———————–’);
write(‘Jam : ‘);readln(j1);
write(‘Menit : ‘);readln(m1);
write(‘Detik : ‘);readln(d1);
writeln;
writeln(‘Waktu SELESAI pembicaraan’);
writeln(‘———————–’);
write(‘Jam : ‘);readln(j2);
write(‘Menit : ‘);readln(m2);
write(‘Detik : ‘);readln(d2);
writeln;

tDetik1:=((j1*3600)+(m1*60)+d1);
tDetik2:=((j2*3600)+(m2*60)+d2);

if tDetik1>tDetik2 then
tDETIK:=tDetik1-tDetik2
else
tDETIK:=tDetik2-tDetik1;

j3:=tDETIK div 3600;
sisa:=tDETIK mod 3600;
m3:=sisa div 60;
d3:=sisa mod 60;

Writeln(‘Lama pembicaraan :’, j3,’ jam : ‘,m3,’ menit : ‘,d3,’ detik’);

end.
—————————————————

4. Buatlah program utk menghitung tgl besok jk diinputkan tgl hari ini. Input berupa tgl, bln, dan thn hari ini. Output berupa tgl, bln, dan thn hari besok. Usahakan mempertimbangkan pula adanya thn kabisat.
——————————————————

uses winCrt;
var
tgl1,tgl2,bln1,bln2,thn1,thn2:integer;
TglMax:Byte;

begin

writeln(‘SEKARANG’);
write(‘Tanggal : ‘);readln(tgl1);
write(‘Bulan : ‘);readln(bln1);
write(‘Tahun : ‘);readln(thn1);

if (bln1 =4) or (bln1=6) or (bln1=9) or (bln1=11) then TglMax:=30;

if (bln1 =1) or (bln1=3) or (bln1=5) or (bln1=7) or (bln1=8 ) or (bln1=10 )

or (bln1=12) then TglMax:=31;

if bln1 =2 then
if (thn1 mod 4=0 ) and ((thn1 mod 100 <>0) or (thn1 mod 400=0)) then
TglMax:=28
else
TglMax:=29;

if bln1<12 then
begin
if tgl1<TglMax then
begin
tgl2:=tgl1+1;
bln2:=bln1;
thn2:=thn1;
end;
if tgl1=TglMax then
begin
tgl2:=1;
bln2:=bln1+1;
thn2:=thn1;
end;
end;

if bln1=12 then
begin
if tgl1<TglMax then
begin
tgl2:=tgl1+1;
bln2:=bln1;
thn2:=thn1;
end;
if tgl1=TglMax then
begin
tgl2:=1;
bln2:=1;
thn2:=thn1+1;
end;
end;

WRITELN;
writeln(‘BESOK’);
writeln(‘Tanggal : ‘,tgl2);
writeln(‘Bulan : ‘,bln2);
writeln(‘Tahun : ‘,thn2);

end.

Filed under: 1

Latihan II (TPX)

1.Buatlah program untuk membangkitkan angka random 0-255. Kemudian tampilkan angka tersebut di layar, ber-sama2 dg 5 karakter dlm tabel ASCII secara ber-turut2 di mana karakter ke-3 nya adalah karakter yg dlm tabel ASCII menempati urutan sesuai bilangan random yg dibangkitkan.

var

x:integer;

x1,x2,x4,x5:byte;

begin

Randomize;

x := ord(Random(255));

writeln(‘Bilangan hasil random : ‘,x);

x1:=x-2;

x2:=x-1;

x4:=x+1;

x5:=x+2;

writeln(‘Ordinal ‘,x1,’= Karakter ‘,char(x1));

writeln(‘Ordinal ‘,x2,’= Karakter ‘,char(x2));

writeln(‘Ordinal ‘,x,’= Karakter ‘,char(x));

writeln(‘Ordinal ‘,x4,’= Karakter ‘,char(x4));

writeln(‘Ordinal ‘,x5,’= Karakter ‘,char(x5));

{ writeln(char(ord(x)+1);

writeln;

end.

2. Buatlah program untuk menghitung hasil kali dan rata-rata 2 bilangan desimal yang masing2 tanda desimalnya menggunakan ‘,’.

uses winCrt;

var

A,B:string;

vA,vB:real;

hkali,hrata:real;

n:integer;

posisi:byte;

begin

writeln(‘Masukan bilangan dg tanda desimal titik(,)’);

write(‘Bilangan A= ‘);readln(A);

write(‘Bilangan B= ‘);readln(B);

posisi:=POS(‘,’,A);

DELETE(A,posisi,1);

INSERT(‘.’,A,posisi);

writeln(‘A=’,A);

posisi:=POS(‘,’,B);

DELETE(B,posisi,1);

INSERT(‘.’,B,posisi);

writeln(‘B=’,B);

Val(A,vA,n);

Val(B,vB,n);

hkali:=vA*vB;

hrata:=(vA+vB)/2;

writeln(‘Hasil kali = ‘,hkali:5:2);

writeln(‘Rata-rata = ‘,hrata:5:2);

end.

3. Buatlah program untuk membuat password dan username dari mahasiswa. Masukan ke program adalah nama mahasiswa (minimal 4 huruf) dan no mahasiswa (tepat 4 digit angka). Username terdiri dari 8 karakter. Empat karakter pertama diambil dari 4 huruf pertama nama, sedangkan 4 karakter terakhir diambil dari no mahasiswa. Password terdiri dari 5 karakter dengan 2 karakter pertama diambil dari huruf ke-2 dan ke-3 dari nama, tetapi dikonversi ke 5 karakter berikutnya, dan 3 karakter terakhir diambil dari 3 digit terakhir no mahasiswa tetapi ditambah dengan 123. Penambahan yg menghasilkan angka >= 1000 hanya diambil 3 digit terakhir saja.

uses winCrt;

var

nama,nim,username,password:string;

vPass:integer;

Pass1,Pass2,huruf,huruf2:string;

hAwal,hAwal2:char;

awal,awal2:byte;

n:integer;

begin

write(‘Nama : ‘);readln(nama);

write(‘Nim : ‘);readln(nim);

username:=CONCAT(COPY(nama,1,4), COPY(nim,1,4));

huruf:=COPY(nama,2,1);
huruf2:=COPY(nama,3,1);

hAwal:=huruf[1];
hAwal2:=huruf2[1];

awal:=ord(hAwal);
awal2:=ord(hAwal2);

VAL(COPY(nim,2,3),vPass,n);

vPass:=(vPass+123) mod 1000;

STR(vPass,pass2);

pass2:=’00′+pass2;

password:=CONCAT(char(awal+5),char(awal2+5),

pass2[length(pass2)-2]+pass2[length(pass2)-1]+pass2[length(pass2)]);

writeln(‘User Name = ‘,username);

writeln(‘Password = ‘,password);

end.

Filed under: 1