Program Array 3

program array_09;
uses wincrt;
var larik:array [1..100,1..100] of integer;
i,j,m,n:integer;

begin
write('masukkan jumlah baris = ');readln(m);
write('masukkan jumlah kolom = ');readln(n);
clrscr;
writeln('nilai komponen matriks = ');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('nilai[',i,',',j,']?');readln(larik[i,j]);
end;
writeln;
end;
clrscr;
writeln('Diperoleh matriks');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
begin
write(larik[i,j]:9);
end;
writeln;
end;
end.

Program Array 2

program array_02;
uses wincrt;
var nim:array[1..20] of string[10];
no:array[1..20] of integer;
nama:array[1..20] of string[25];
nilai:array[1..20] of integer;
i,n:integer;
begin
write('masukkan data yang diperlukan =' );read(n);
clrscr;
for i:=1 to n do
begin
write('NO = ');readln(no[i]);
write('NIM = '); readln(nim[i]);
write('NAMA = '); readln(nama[i]);
write('NILAI = '); readln(nilai[i]);
clrscr;
end;
gotoxy(25,1);write('DAFTAR NILAI MAHASISWA');
gotoxy(30,2);writeln('SEMESTER III');
writeln;
writeln('===============================================================');
writeln('| NO | NIM | NAMA | NILAI |');
writeln('===============================================================');

for i:=1 to n do
begin
writeln(no[i]:4,nim[i]:17,nama[i]:19,nilai[i]:21);
end;
readln;
end.

Program Array 1

program array_01;
uses wincrt;
var tabel:array [1..3,1..2] of integer;
i,j:integer;
begin
tabel[1,1]:=25;
tabel[1,2]:=10;
tabel[2,1]:=11;
tabel[2,2]:=15;
tabel[3,1]:=35;
tabel[3,2]:=20;
for i:=1 to 3 do
begin
for j:=1 to 2 do
write(tabel[i,j]:10);
writeln;
end;
readln;
end.

Soal Ujian

uses wincrt;
var
x,y :integer;
a,b,c:string[20];
begin
write ('input pertama: ');readln (a);
write ('input kedua: '); readln (b);
write ('input ketiga: ');readln (c);
write ('kata akan diulang berapa kali: ');readln (x);
for y:=1 to x do
begin
gotoxy(20,5);writeln (c,'',b,'',a);
gotoxy(21,6);writeln (c,'',b,'',a);
gotoxy(22,7);writeln (c,'',b,'',a);
gotoxy(23,8);writeln (c,'',b,'',a);
gotoxy(24,9);writeln (c,'',b,'',a);
end;
end.

Soal Ujian

Program ujian;
uses wincrt;
begin
writeln ('cinta indonesia') ;
writeln ('c');
writeln (' i');
writeln (' n');
writeln (' t');
writeln (' a');
writeln (' i');
writeln (' n');
writeln (' d');
writeln (' o');
writeln (' n');
writeln (' e');
writeln (' s');
writeln (' i');
writeln (' a');
writeln ('cinta indonesia');
end.

Procedure

procedure korelasi(n:integer);
var i:integer;
r,T1,T2,T3,T4,T5:real;
x:array [byte] of real;
y:array [byte] of real;
begin
T1:=0;
T2:=0;
T3:=0;
T4:=0;
T5:=0;
for i:=1 to n do
begin
write('data ke-',i,' : ');
readln(x[i],y[i]);
end;
writeln;
writeln(' x ',' y ',' x^2 ',' y^2 ',' xy ');
for i:=1 to n do
begin
writeln(x[i]:7:2,y[i]:7:2,sqr(x[i]):9:2,sqr(y[i]):9:2,x[i]*y[i]:9:2);
end;
for i:=1 to n do
begin
T1:=T1+x[i];
T2:=T2+y[i];
T3:=T3+sqr(x[i]);
T4:=T4+sqr(y[i]);
T5:=T5+x[i]*y[i];
end;
writeln('----------------------------------------------');
write(T1:7:2,T2:7:2,T3:9:2,T4:9:2,T5:9:2);
writeln;
writeln;
r:=((n*T5)-(T1*T2))/(sqrt((n*T3-sqr(T1))*(n*T4-sqr(T2))));
writeln('Besar nilai korelasi = ',r:5:2);
end;

procedure prisma(a,b,c:real);
var v:real;
begin
v:=1/2*a*b*c;
writeln('Volum Prisma Segitiga = ',v:5:2);
end;

procedure tabung(a,b:real);
var v:real;
const pi=3.14;
begin
v:=pi*a*a*b;
writeln('Volum Tabung = ',v:5:2);
end;

procedure limas(a,b,c:real);
var v:real;
begin
v:=1/3*a*b*c;
writeln('Volum Limas Segiempat = ',v:5:2);
end;

procedure bola(a:real);
var v:real;
const pi=3.14;
begin
v:=4/3*pi*a*a*a;
writeln('Volum Bola = ',v:5:2);
end;


program menu_pilih;
uses wincrt;
var pilihan,data:integer;
jawab:char;
x,y:real;
a,tg,T,p,l,r:real;

procedure korelasi(n:integer);
var i:integer;
r,T1,T2,T3,T4,T5:real;
x:array [byte] of real;
y:array [byte] of real;
begin
T1:=0;
T2:=0;
T3:=0;
T4:=0;
T5:=0;
for i:=1 to n do
begin
write('data ke-',i,' : ');
readln(x[i],y[i]);
end;
writeln;
writeln(' x ',' y ',' x^2 ',' y^2 ',' xy ');
for i:=1 to n do
begin
writeln(x[i]:7:2,y[i]:7:2,sqr(x[i]):9:2,sqr(y[i]):9:2,x[i]*y[i]:9:2);
end;
for i:=1 to n do
begin
T1:=T1+x[i];
T2:=T2+y[i];
T3:=T3+sqr(x[i]);
T4:=T4+sqr(y[i]);
T5:=T5+x[i]*y[i];
end;
writeln('----------------------------------------------');
write(T1:7:2,T2:7:2,T3:9:2,T4:9:2,T5:9:2);
writeln;
writeln;
r:=((n*T5)-(T1*T2))/(sqrt((n*T3-sqr(T1))*(n*T4-sqr(T2))));
writeln('Besar nilai korelasi = ',r:5:2);
end;

procedure prisma(a,b,c:real);
var v:real;
begin
v:=1/2*a*b*c;
writeln('Volum Prisma Segitiga = ',v:5:2);
end;

procedure tabung(a,b:real);
var v:real;
const pi=3.14;
begin
v:=pi*a*a*b;
writeln('Volum Tabung = ',v:5:2);
end;

procedure limas(a,b,c:real);
var v:real;
begin
v:=1/3*a*b*c;
writeln('Volum Limas Segiempat = ',v:5:2);
end;

procedure bola(a:real);
var v:real;
const pi=3.14;
begin
v:=4/3*pi*a*a*a;
writeln('Volum Bola = ',v:5:2);
end;
begin
repeat
clrscr;
writeln(' PILIHAN MENU ');
writeln('--------------------------------');
writeln(' 1. Korelasi ');
writeln(' 2. Volum Prisma Segitiga ');
writeln(' 3. Volum Tabung ');
writeln(' 4. Volum Limas Segiempat ');
writeln(' 5. Volum Bola ');
writeln('--------------------------------');
write('Masukkan Pilihan Anda : ');
readln(pilihan);
clrscr;
writeln;
case pilihan of
1: begin
writeln('Menu yang Anda pilih adalah menu KORELASI');
writeln('Menghitung besarnya nilai korelasi antara 2 variabel');
write('Masukkan banyaknya data : ');
read(data);
writeln('Masukkan data pada variabel pertama(x) dan variabel kedua(y) (dipisah spasi) : ');
writeln(' x ','y');
korelasi(data);
end;
2: begin
writeln('Pilihan Anda adalah VOLUM PRISMA SEGITIGA');
write('Masukkan alas segitiga : ');
read(a);
write('Masukkan tinggi segitiga : ');
read(tg);
write('Masukkan tinggi prisma segitiga : ');
read(T);
prisma(a,tg,T);
end;
3: begin
writeln('Pilihan Anda adalah VOLUM TABUNG');
write('Masukkan jari-jari : ');
read(r);
write('Masukkan tinggi tabung : ');
read(T);
tabung(r,T);
end;
4: begin
writeln('Pilihan Anda adalah VOLUM LIMAS SEGIEMPAT');
write('Masukkan panjang : ');
read(p);
write('Masukkan lebar : ');
read(l);
write('Masukkan tinggi limas segiempat : ');
read(T);
limas(p,l,T);
end;
5: begin
writeln('Pilihan Anda adalah VOLUM BOLA');
write('Masukkan JARI-JARI BOLA : ');
read(r);
bola(r);
end;
end;
writeln;
write('Apakah Anda akan mencoba memilih lagi?(y/t) : ');
readln(jawab);
until(jawab='t');
end.

Program Perkalian Matriks

program matriks;
uses wincrt;
var
A:array[1..10,1..10] of integer;
B:array[1..7,1..7] of integer;
C:array[1..7,1..7] of integer;
total:array[1..7,1..7] of integer;
i,j,l,m,n,k:integer;
begin
write('berapa jumlah baris matriks 1 ? ');
readln(m);
write('berapa jumlah kolom matriks 1 dan baris matriks 2 ? ');
readln(n);
write('berapa jumlah kolom matirks 2 ? ');
readln(l);
clrscr;

writeln('matriks A');
for i:=1 to m do
for j:=1 to n do
begin
write('A[',i,',',j,'] = ');
readln(A[i,j]);
end;

writeln('matriks B');
for i:=1 to n do
for j:=1 to l do
begin
write('B[',i,',',j,'] = ');
readln(B[i,j]);
end;
clrscr;

writeln('matriks A');
for i:=1 to m do
begin
write('|');
for j:=1 to n do
write(A[i,j]:4);
write('|':4);
writeln;
end;

writeln('matriks B');
for i:=1 to n do
begin
write('|');
for j:=1 to l do
write(B[i,j]:4);
write('|':4);
writeln;
end;writeln;writeln;
for i:=1 to m do
begin
for j:=1 to l do
begin
for k:=1 to n do
begin
c[i,j]:=0;
total[i,j]:=A[i,k]*B[k,j];
c[i,j]:=total[i,j]+C[i,j];
end;
end;
end;
for i:=1 to m do
begin
for j:=1 to l do
write(c[i,j]:4);writeln;
end;
end.

Program Faktorial dengan Fungsi secara Rekursi

uses wincrt;
function faktorial(n:byte):longint;
begin
if n<=1 then
faktorial:=1
else
faktorial:=n*faktorial(n-1);
end;

var
n:byte;
begin
write ('berapa faktorial? ');readln(n);
writeln ('faktorial= ', faktorial(n));
end.

Program Faktorial dengan Fungsi secara Rekursi

{program faktorial menghitung n! dengan fungsi secara rekursi}
uses wincrt;
function faktorial(n:byte):longint;
begin
if n<=1 then
faktorial:=1
else
faktorial:=n*faktorial(n-1);
end;

var
n:byte;
begin
write ('berapa faktorial? ');readln(n);
writeln ('faktorial= ', faktorial(n));
end.

Program Faktorial dengan Rekursi

uses wincrt;
procedure faktorial(n : byte; var hasil:longint);
begin
if n<=1 then
hasil:=1
else
begin
faktorial(n-1,hasil);
hasil:=n*hasil;
end;
end;

var
n:byte;
f:longint;
begin
write ('berapa faktorial? ');readln (n);
faktorial (n,f);
writeln ('faktorial= ',f);
end.

Pemrograman Komputer 1

Program luas_persegi_panjang;
uses wincrt;
var p,l:integer;
A:real;
begin
write ('masukkan nilai p= ');readln(p);
write ('masukkan nilai l= ');readln(l);
A:=p*l;
writeln (p,'*',l,'=',A:6:2);
end.

Pemrograman Komputer 1

program pembagian ;
uses wincrt;
var a,b: integer;
c:real;
begin
write ('masukkan nilai a= ');readln (a);
write ('masukkan nilai b= ');readln (b);
c:=a/b;
writeln(a,'/',b,'=',c:5:2);
end.

Pemrograman komputer 1

program perkalian ;
uses wincrt;
var a,b: integer;
c:real;
begin
write ('masukkan nilai a= ');readln (a);
write ('masukkan nilai b= ');readln (b);
c:=a*b;
writeln(a,'*',b,'=',c:5:2);
end.

Pemrograman komputer 1

program pengurangan ;
uses wincrt;
var a,b: integer;
c:real;
begin
write ('masukkan nilai a= ');readln (a);
write ('masukkan nilai b= ');readln (b);
c:=a-b;
writeln(a,'-',b,'=',c:5:2);
end.

Pemrograman Komputer 1

program penjumlahan ;
uses wincrt;
var a,b: integer;
c:real;
begin
write ('masukkan nilai a= ');readln (a);
write ('masukkan niali b= ');readln (b);
c:=a+b;
writeln(a,'+',b,'=',c:5:2);
end.

Hello World!!

Bismillah......Subhanallah..............
Ini postingan pertama di My Blog