Facebook Ridho AP (Ridho Andika Putra)

M. Iqbal Tezet seorang dispatcher SCC (Sumatera Control Center) nantangin nih, untuk buat Facebook,


Ingin tau facebooknya Ridho Andika Putra??? Silakan klik http://www.facebook.com/ridho.andika.putra!!


Teman2 yang mau gabung dengan Ridho AP ditunggu lho requestnya!!! he2... ^_^

Program Pascal FPB 2 bilangan

Shabifa, nama yang dicantumkan di guestbook ku yang ingin tau salah satu bentuk dari program bahasa Pascal untuk mencari FPB 2 bilangan,

berikut diperlihatkan salah satu algoritma yang telah dituangkan kedalam bahasa pemrograman Pascal, jika masih ingin bertanya silakan saja, kenapa begitu?? kenapa tidak begini?? Silakan saja!!.....


Berikut salah satu bentuk program Pascal mancari FPB 2 bilangan:


Program FPB_dan_KPK_dari_2_bilangan;
uses crt;
var a,b,d:longint;
begin clrscr;
write('ketikkan bilangan ke-1: '); readln(a);
write('ketikkan bilangan ke-2: '); readln(b);
for d:=b downto 1 do
begin
if (a mod d=0) and (b mod d=0) then
begin
writeln('FPB dari ',a:4,' dan ',b:4,' adalah ',d:7);
d:=1
end;
end;
for d:=a to (a*b) do
begin if (d mod a=0) and (d mod b=0) then
begin writeln('KPK dari ',a:4,' dan ',b:4,' adalah ',d:7);
d:=a*b;
end;end; readln end.


Somoga membantu

Download Software MP3 Cutter

download di link berikut:

http://forum.djawir.com/indonesia-polyphonic-61/mp3-cutter-gak-usah-instal-jossss-15920/

Program Pascal Penjumlahan Matriks

Menanggapi pertanyaan dari saudara EnOk tentang punjumlahan matriks, di turbo pascal kita bisa buat sintaks seperti berikut:

Program Turbo Pascal Penjumlahan_Matriks;
uses crt;
var a,b,f,g:byte; c,d,h,i:longint; e,j:array [1..77,1..77] of integer;
begin clrscr;
writeln('Program Penjumlahan Matriks');writeln;writeln;readln;
writeln('Data tentang matriks pertama');
write('berapa jumlah baris matriks? '); readln(a);
write('berapa jumlah kolom matriks? '); readln(b);

writeln;writeln;writeln('Data tentang matriks kedua');
write('berapa jumlah baris matriks kedua? '); readln(f);
write('berapa jumlah kolom matriks kedua? '); readln(g);

if (a=f) and (b=g) then
begin

writeln;writeln;writeln('Memasukkan elemen matriks pertama'); writeln;

for c:=1 to a do
begin
for d:=1 to b do
begin
write('entri untuk baris ke-',c,' kolom ke-',d,' dari matriks pertama: ')
;readln(e[c,d]);
end;
end;writeln;
writeln('M1:');writeln;
for c:=1 to a do
begin writeln;
for d:=1 to b do
begin
write(e[c,d]:7);
end;writeln;
end;writeln;

writeln('Memasukkan elemen matriks kedua'); writeln;
for h:=1 to f do
begin
for i:=1 to g do
begin
write('entri untuk baris ke-',h,' kolom ke-',i,' dari matriks kedua: ')
;readln(j[h,i]);
end;
end;writeln;
writeln('M2:');writeln;
for h:=1 to f do
begin writeln;
for i:=1 to g do
begin
write(j[h,i]:7);
end;writeln
end;writeln;
writeln('Tekan Enter untuk melihat hasil operasi dari M1+M2!');
readln;
writeln('M1+M2:');writeln;
for c:=1 to a do begin writeln;
for d:=1 to b do begin
for h:=c to f do begin
for i:=d to g do begin
write(e[c,d]+j[h,i]:7); i:=g;
end;h:=f;end;end;writeln;end;end else begin writeln;
writeLN('Maaf?! hasil dari operasi penjumlahan matriks M1+M2 tidak akan dapat dilakukan');
writeLN('karena ordo M1(',a,'x',b,') tidak sama dengan ordo M2(',f,'x',g,')');
end;readln end.

Cara Membuat Game Berhitung dengan Flash

lihat pembahasannya di sini!

My Account

Sepertinya semua situs yang meminta email kita untuk registrasi, kadang kita sudah pernah registrasi di suatu situs dengan email yang sama, misal saya sudah pernah reg ke photobucket.com, karna saya lupa user namenya, saya sign up lagi di situs itu, ternyata email yang saya punya sudah pernah saya gunakan di situs itu, karna tidak mau pusing dan ribet, saya buat lagi deh e-mail baru.




email yang dipunya:
ridh_o@ymail.com


Untuk log in di photobucket.com
user name:Ridh_o
email yang didaftarkan: rypro.rdh3@gmail.com

untuk mengikuti forum diskusi elektro UGM (http://www.te.ugm.ac.id/forum/)
user name: An_dika
email yang digunakan: ridho_andika@ymail.com

untuk mengikuti di dunia-listrik.blogspot.com
user name: An_dika
email yang digunakan: ridho_andika@ymail.com

untuk login di snapdrive.net
user name: An_dika
email: ridho_andika2@ymail.com

untuk login di 4shared.com
email: ridho_andika2@ymail.com

untuk login di http://www.ocronline.com/
email: ridho_andika@ymail.com

cari kord lagu: http://www.kordkita.web.id/, http://www.chordeasy.com/

untuk http://signup.wazzub.info/?lrRef=e0222:
urang.lubuakbasuang@gmail.com

email untuk friendsterku