Jika ingin mencari nilai rata-rata menggunakan array pada pascal, maka cobalah codingan di bawah ini

Coding

uses crt;
var
n,i,total:integer;
b:array[1..100] of integer;
rata:real;

begin
total:=0;
clrscr;
writeln('##################################################');
writeln('# #');
writeln('# Program mencari nilai rata-rata #');
writeln('# #');
writeln('##################################################');
writeln;
write('masukan banyak bilangan = '); readln(n);
for i:= 1 to n do begin
write('masukkan bilangan ke-',a,' = ');readln(b[n]);
total:=total+b[n];
end;

rata:=total / n;
writeln;
writeln('jumlah bilangan = ' ,total);
writeln('rata-rata bilangan = ',rata:0:2);
readln;
end.

Output

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer

Postingan kali ini tentang cara mengembalikan password facebook (menggunakan Email) yang sengaja dirubah lalu kita lupa atau sengaja dirubah oleh orang yang tidak bertanggung jawab.
Beruntunglah karena facebook memberikan Roadblock.
oke langsung saja langkah-langkahnya :
1. login pada email anda
2. cari email dari Facebook dengan subject "Facebook password change"
3. klik link yang di berikan facebook untuk mengubah password kita
4. masukan password baru anda
5. tandai email anda
6. facebook akan mengkonfirmasi ulang data diri anda
7. selesai dan password baru anda dapat di gunakan

sekian dulu postingan kali ini.
semoga membantu ^^

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer

Pada kali ini saya akan memberikan source code untuk membuat deret bintang pada pascal.
agar tidak bertele-tele, langsung saja kepada programnya ya ^^
uses crt;
var
a,b,c,d,e,f:integer;
begin
clrscr;
writeln('=======Deret Bintang=======');
writeln;
write('masukan nilai yang ingin di jadikan deret = ');readln(a);
for b:= 1 to a do begin
for c:= 1 to b do
write('*');
writeln;
end;
begin
c:= a - 1;
for d:= c downto 1 do begin
for e:= 1 to d do
write('*');
writeln;
end;
readln;
end;
end.

jika anda ingin outputnya bukan bintang, maka ubah pada bagian write('*);
sekian postingan kali ini, semoga bermanfaat.

mari kita belajar bersama ^^

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer

untuk kali ini saya membahas tentang perintah select case pada pascal. Sebenarnya select case tidak berbeda jauh dengan perintah if.
oke deh langsung saja ke programnya biar lebih jelas.

uses crt;
var
b,c:string;
a,d,f,h,i:integer;
g,j:real;
begin
clrscr;
write('---Menu---');
writeln('');
writeln('1. Biodata');
writeln('2. Hobi');
writeln('3. Luas');
write('masukan plihan : ');readln(a);
case a of

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer

Mungkin kadang-kadang di tempat lain ada yang bertele-tele untuk menjelaskan cara membuat program, tapi di sini saya langsusng menjelaskan ke tujuan yang anda inginkan.
langsung saja, ini adalah program menghitung luas persegi pada pascal.

Read more »

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

0 Comments

Tags: Komputer