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 jumlah2x2;

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 = ‘);readln(G);
write(‘Input Matrix ke 8 = ‘);readln(H);
write(‘Input Matrix ke 9 = ‘);readln(I);
end;
end;

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 dalam diri manusia terdapat unsure animal (hewani), rasional (akal), serta moral (nilai). Manusia selalu dan akan terus berinteraksi dengan lingkungan serta memikirkan alam semesta. Hal ini telah dimiliki sejak sebelum Masehi, contohnya Thales (625-547SM) menduga bahwa alam raya ini berasal dari air, Anaximandorus (585-528 SM) yang menyatakan bahwa alam ini berasal dari sesuatu yang bernama “apeiron” yaitu sesuatu yang tidak dapat dirupakan dengan apapun didunia ini.Selain itu, Herahlitos (540-480SM) menyatakan bahwa unsur asal alam adalah api yang memiliki sifat dinamis, karena alam ini tidak ada yang tetap, semuanya bergerak dan terus bergerak.