03.18
IT COM STMIK
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...
Jumat, 13 Januari 2012
[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...
