19.44
IT COM STMIK
Lihat image klik he...
Rabu, 25 April 2012
.jpg)
Senin, 16 April 2012
Minggu, 15 April 2012
Selasa, 10 April 2012
Rabu, 04 April 2012
Senin, 02 April 2012
[Turbo Pascal] Perulangan(1) Dengan Repeat...Until
Program Perulangan;
Uses wincrt;
Var
i,jum,bil,n : Integer;
rata : Real;
Begin
i:= 1;
jum:= 0;
write('Isikan Banyaknya Data : '); Readln(n);
Begin
Repeat
write('Isikan Bilangan ke ',i,' = '); Readln(bil);
i:= i + 1;
jum:= jum + bil;
Until n < i;
End;
rata:= jum / n;
writeln('Nilai Rata-rata Bilangan = ',rata:0:2);
writeln('Jumlah Bilangan = ',jum);
E...
[Turbo Pascal] Perulangan(2) Dengan Repeat..Until
Program Perulangan;
Uses wincrt;
Var
b_bil, j_bil, bil, bil1, banyak_bil, jum: Integer;
rata: real;
Begin
b_bil:=0;
j_bil:=0;
write('Isi Bilangan Kesatu : '); readln(bil1);
Begin
Repeat
b_bil:= b_bil + 1;
j_bil:= j_bil + bil;
write('Isi Bilangan Berikutnnya : '); readln(bil);
Until (bil <= 10);
End;
banyak_bil:= j_bil + ( bil + bil1 );
jum:= b_bil + 1;
rata:= banyak_bil / jum;
writeln;
writeln('Banyak Bilangan = ',banyak_bil);
writeln('Jumlah Bilangan = ',jum);
writeln('Nilai Rata-rata = ',rata:0:2);
End....
Minggu, 01 April 2012
[Turbo Pascal] Perulangan dalam Turbo Pascal
Blok pengulangan ini sebenarnya mirip dengan pengulangan while,perbedaannya
hanya pada jenis ini pengulangan akan terus dilakukan apabila kondisi yg
didefinisikan masih bernilai false,jadi dengan kata lain pengulangan dihentikan
jika kondisi bernilai true. Juga dalam pengulangan repeat, kondisi ditulis
di akhir blok.
Bentuk umumnya seperti ini:
repeat
statemen;
...
until (kondisi);
sebagai bahan perbandingan dengan jenis-jenis pengulangan sebelumnya,kita lihat saja
contoh programnya dibawah ini:
program statemenrepeat1;
uses wincrt;
var i:integer;
begin
{inisialisasi nilai indeks i dengan 1}
i:=1;
{melakukan pengulangan}
repeat
writeln('Coba Perulangan');
i:=i+1;
until (i < 5);
end.
lihat contoh...
Jumat, 13 Januari 2012
[Turbo Pascal] Menghitung Luas Lingkaran Menggunakan Prosedur
Program swift;
uses wincrt;
procedure luas_lingkaran;
var
r:integer;
hasil:real;
begin
write('Masukkan Panjang Jari-jari : '); readln(r);
hasil:=(22/7)*sqr(r);
writeln('Luasnya = ',hasil:0:2);
end;
begin
luas_lingkaran;
e...
[Turbo Pascal] Menghitung Luas Lingkaran Menggunakan Fungsi
Program swift;
uses wincrt;
function luas_lingkaran(r:integer; hasil:real):real;
begin
luas_lingkaran:=(22/7)*sqr(r);
end;
var
r:integer;
hasil:real;
begin
write('Masukkan Panjang Jari-jari : '); readln(r);
writeln('Luasnya = ',luas_lingkaran(r,hasil):0:2);
e...
[Turbo Pascal] RECORD pada Pascal
Dasar Teori
Record merupakan kumpulan elemen data yang dikumpulkan menjadi satu kesatuan dengan tipe data sama ataupun berbeda. Meskipun field tersebut berada dalam satu kesatuan, namun masih dapat di akses secara individual.
Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array).
Cara pendeklarasian dari record adalah sebagai berikut:
• Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai),
• Mendefinisikan variabel untuk dilakukan operasi.
SYNTAX
type
nama_record = record
identifier_1 : tipe_data_1;
identifier_n : tipe_data_n;
end;
var variabel : nama_record;
Contoh.
type
Data_mahasiswa...
[Turbo Pascal] Perkalian Pada Matriks
Matriks adalah struktur penyimpanan data di dalam memori utama yang setiap individu elemennya diacu dengan menggunakan dua buah indeks (yang biasanya dikonotasikan dengan indeks baris dan indeks kolom). Matriks adalah sekumpulan kotak yang tersusun berjajar pada setiap baris dan kolom. Susunan ini juga disebut GRID.
program perkalian_matriks;
uses wincrt;
const n_i=2;
n_j=2;
n_k=1;
var
A: array [1..n_i,1..n_j] of integer;
B: array [1..n_j,1..n_k] of integer;
C: array [1..n_i,1..n_k] of integer;
i,j,k:integer;
begin
clrscr;
writeln ('penetapan nilai matriks A');
for i:=1 to n_i do
for j:=1 to n_j do
begin
write('baris ke-',i,'kolom ke-',j,' :');
readln(A[i,j]);
end;
writeln('penetapan nilai matriks B');
for j:=1 to n_j do
for k:=1...
