penggunaan record pada pascal

program latrecord;
uses wincrt;
type
mahasiswa = record
nim : array[1..5] of string;
nama : array[1..5] of string;
ipk : array[1..5] of real;
end;
var datmhs : mahasiswa;
a : integer;
x : integer;
begin
for a := 1 to 5 do
begin
write(‘Nim Siswa = ‘); readln(datmhs.nim[a]);
write(‘Nama Siswa = ‘); readln(datmhs.nama[a]);
write(‘IPK Siswa = ‘); readln(datmhs.ipk[a]);
end;
clrscr;

penggunaan array untuk mencari determinan

program determinan;
uses wincrt;
var
nama : array[1..3,1..3] of shortint;
a,b,c,def,x1,x2,x3,x4,x5,x6 : integer;
begin
for a:=1 to 3  do
begin
for b:=1 to 3 do
begin
write(‘Masukan angka’,a,’.’,b,’:’);readln(nama[a,b]);
end;
end;
x1:=(nama[1,1]*nama[2,2]*nama[3,3]);
x2:= (nama[1,2]*nama[2,3]*nama[3,1]);
x3:=(nama[1,3]*nama[2,1]*nama[3,2]);
x4:= (nama[1,3]*nama[2,2]*nama[3,1]);
x5:= (nama[1,1]*nama[2,3]*nama[3,2]);
x6:=  (nama[1,2]*nama[2,1]*nama[3,3]);
def:=  x1+x2+x3-x4-x5-x6;
writeln(‘Nama  :’,def);
end.

Penggunaan array pada penjumlah matrik

program jumlah2×2;
uses wincrt;
type Matrix=Array[1..2,1..2] of shortint;
var
x,y,Det,A,B,C,D,E,F,G,H                 : shortint;
AA,BB,CC,DD                             : shortint;
jawab                                           : char;
begin
repeat
clrscr;

penggunaan array untuk menghitung perkalian matrik

===============================================================================================
program Perkalian;
uses wincrt;
type Matrix=Array[1..3,1..3] of shortint;
var
x,y,Det,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R     : shortint;
AA,BB,CC,DD,EE,FF,GG,HH,II                      : shortint;
jawab                                           : char;
begin
repeat
clrscr;
writeln(‘Matrix A’);
for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
write(‘Input Matrix ke 1 = ‘);readln(A);
write(‘Input Matrix ke 2 = ‘);readln(B);
write(‘Input Matrix ke 3 = ‘);readln(C);
write(‘Input Matrix ke 4 = ‘);readln(D);
write(‘Input Matrix ke 5 = ‘);readln(E);
write(‘Input Matrix ke 6 = ‘);readln(F);
write(‘Input Matrix ke 7 = [...]

Penggunaan array pada turbo pascal

contoh program :
————————————————————————————-
uses wincrt;
var
nama : array[1..3] of string;
a : integer;
begin
for a:=1 to 3  do
begin
write(‘Masukan Nama ‘,a,’:’);readln(nama[a]);
end;
clrscr;
writeln(‘Nama Ke-2 :’,nama[1..3]);
end.
————————————————————————————-

Materi Agama

Manusia, Alam Semesta dan Agama
1.1.1 Manusia dan Alam Semesta
Ada banyak pendapat yang mendefinisikan “pengertian manusia”. Misalnya, para penganut teori psikoanalisis menyebut manusia sebagai homo volens (manusia berkeinginan). Menurut aliran ini, manusia adalah makhluk yang memiliki prilaku hasil interaksi antara komponen biologis (id), psikologis (ego), dan sosial (superego). Selain itu, menurut aliran ini juga, di [...]