Matriks

program Matriks;

uses crt;
label awal;
var mat_A,mat_B,mat_C:array[1..10,1..10] of integer;
ordo_x,ordo_y,ordo_xi,ordo_yi:integer;
x,y,w,z,koor_brs:integer;
pil,jawab:char;

procedure menu;
begin
writeln(’DAFTAR MENU’);
writeln(’1. Penjumlahan Matriks’);
writeln(’2. Pengurangan matriks’);
writeln(’3. Perkalian Matriks’);
writeln(’4. Transpos Matriks’);
writeln;
end;

procedure penjumlahan;
begin
clrscr;
writeln(’ PENJUMLAHAN MATRIKS ‘);
writeln(’———————————-’);
writeln;
write(’Tentukan banyaknya baris matriks A : ‘);readln(ordo_x);
write(’Tentukan banyaknya kolom matriks A : ‘); readln(ordo_y);
writeln(’Ukuran Matriks A (’,ordo_x,’x',ordo_y,’)');
writeln;
writeln(’Input matriks A : ‘);
for x:=1 to ordo_x do
begin
koor_brs:=wherey;
for y:=1 to ordo_y do
begin
gotoxy(y*5,koor_brs);
read(mat_A[x,y]);
end;
end;
writeln;
writeln;
write(’tentukan banyaknya baris matriks B : ‘);readln(ordo_xi);
write(’tentukan banyaknya kolom matriks B : ‘);readln(ordo_yi);
writeln(’Ukuran Matriks B (’,ordo_xi,’x',ordo_yi,’)');
writeln;
writeln(’Input matriks :’);
for x:=1 to ordo_xi do
begin
koor_brs:=wherey;
for y:=1 to ordo_yi do
begin
gotoxy(y*5,koor_brs);
read(mat_B[x,y]);
end;
end;
writeln;
writeln;

if ordo_x=ordo_xi then
begin
if ordo_y=ordo_yi then
begin
writeln(’Hasil penjumlahan matriks A+B = ‘);
for x:=1 to ordo_x do
begin
for y:=1 to ordo_yi do
begin
mat_C[x,y]:=mat_A[x,y]+mat_B[x,y];
write(mat_C[x,y]:5);
end;
writeln;
readln;
end;
end else
end else
begin
writeln(’Matriks tidak bisa dijumlahkan karena Ukuran (ordo) matriks A dan B tidak sesuai’);
readln
end;
end;

procedure pengurangan;
begin
clrscr;
writeln(’ PENGURANGAN MATRIKS ‘);
writeln(’———————————-’);
writeln;
write(’Tentukan baris matriks A : ‘);readln(ordo_x);
write(’Tentukan kolom matriks A : ‘); readln(ordo_y);
writeln(’Ukuran Matriks A (’,ordo_x,’x',ordo_y,’)');
writeln;
writeln(’Input matriks A : ‘);
for x:=1 to ordo_x do
begin
koor_brs:=wherey;
for y:=1 to ordo_y do
begin
gotoxy(y*5,koor_brs);
read(mat_A[x,y]);
end;
end;
writeln;
writeln;
write(’masukkan baris matriks B : ‘);readln(ordo_xi);
write(’masukkan kolom matriks B : ‘);readln(ordo_yi);
writeln(’Ukuran Matriks B (’,ordo_xi,’x',ordo_yi,’)');
writeln;
writeln(’Input matriks :’);
for x:=1 to ordo_xi do
begin
koor_brs:=wherey;
for y:=1 to ordo_yi do
begin
gotoxy(y*5,koor_brs);
read(mat_B[x,y]);
end;
end;
writeln;
writeln;
if ordo_x=ordo_xi then
begin
if ordo_y=ordo_yi then
begin
writeln(’Hasil pengurangan matriks A-B = ‘);
for x:=1 to ordo_x do
begin
for y:=1 to ordo_yi do
begin
mat_C[x,y]:=mat_A[x,y]-mat_B[x,y];
write(mat_C[x,y]:5);
end;
writeln;
readln;
end;
end else
end else
begin
writeln(’Matriks tidak bisa dikurangkan karena ordo matriks A dan B tidak sesuai’);
readln;
end;
end;

procedure perkalian;
begin
clrscr;
writeln(’ PERKALIAN MATRIKS ‘);
writeln(’———————————-’);
writeln;
write(’Tentukan baris matriks A : ‘);readln(ordo_x);
write(’Tentukan kolom matriks A : ‘); readln(ordo_y);
writeln(’Ukuran Matriks A (’,ordo_x,’x',ordo_y,’)');
writeln;
writeln(’Input matriks A : ‘);
for x:=1 to ordo_x do
begin
koor_brs:=wherey;
for y:=1 to ordo_y do
begin
gotoxy(y*5,koor_brs);
read(mat_A[x,y]);
end;
end;
writeln;
writeln;
write(’masukkan baris matriks B : ‘);readln(ordo_xi);
write(’masukkan kolom matriks B : ‘);readln(ordo_yi);
writeln(’Ukuran Matriks B (’,ordo_xi,’x',ordo_yi,’)');
writeln;
writeln(’Input matriks :’);
for x:=1 to ordo_xi do
begin
koor_brs:=wherey;
for y:=1 to ordo_yi do
begin
gotoxy(y*5,koor_brs);
read(mat_B[x,y]);
end;
end;
writeln;
writeln;
if ordo_y=ordo_xi then
begin
writeln(’Hasil perkalian matriks A*B = ‘);
for x:=1 to ordo_x do
begin
for y:=1 to ordo_yi do
begin
mat_c[x,y]:=0;
for z:=1 TO ORDO_yi do
mat_C[x,y]:=mat_C[x,y]+mat_A[x,z]*mat_B[z,y];
write(mat_C[x,y]:5);
end;
writeln;
readln;
end;
end else
begin
writeln(’Matriks tidak bisa dikalikan karena ordo matriks A dan B tidak sesuai’);
readln;
end;
end;

procedure transpos;
BEGIN
clrscr;
writeln(’ TRANSPOS MATRIKS ‘);
writeln(’———————————-’);
writeln;
write(’Tentukan baris matriks A : ‘);readln(ordo_x);
write(’Tentukan kolom matriks A : ‘); readln(ordo_y);
writeln(’Ukuran Matriks A (’,ordo_x,’x',ordo_y,’)');
writeln;
writeln(’Input matriks A : ‘);
for x:=1 to ordo_x do
begin
koor_brs:=wherey;
for y:=1 to ordo_y do
begin
gotoxy(y*5,koor_brs);
read(mat_A[x,y]);
end;
end;
writeln;
writeln;
writeln(’Hasil Tanspos matriks A (At) = ‘);
for x:=1 to ordo_y do
begin
for y:=1 to ordo_x do
begin
mat_C[x,y]:=mat_A[y,x];
write(mat_C[x,y]:5);
end;
writeln;
readln;
end;
end;

BEGIN
clrscr;
awal:
writeln;
menu;
writeln;
write(’silahkan masukkan pilihan anda : ‘);readln(pil);
writeln(’—————————————————’);
case pil of
‘1′: begin penjumlahan;
end;
‘2′: begin pengurangan;
end;
‘3′: begin perkalian;
end;
‘4′: begin transpos;
end;

else writeln(’TIDAK ADA DALAM DAFTAR MENU’);

end;
writeln(’—————————————————-’);
writeln;
writeln(’apakah anda ingin menghitung lagi?(y/n)’);
write(’Jawab : ‘);readln(jawab);

if upcase(jawab)=’Y’ then
goto awal;
readln;

END.

tampilan dalam turbo pascalnya :

program Zigma;
uses crt;
var x,n:integer;
Z:real;

begin
clrscr;
writeln;
writeln(' PROGRAM MENGHITUNG ZIGMA 1/X UNTUK i=1 S.D i=20');
writeln('=============================================================');
writeln;

x:=1;
Z:=1;

for n:=1 to 20-1 do
begin

write('1/',x,' + ');

x:=x+1;
Z:=Z+(1/x);

if n=20-1 then
begin
write('1/',x,' = ',Z:2:2);

end;

end;
writeln;
writeln;
writeln(' presented by :');
writeln(' Elin Herlinawati 070767');

readln;
end.

Tampilan dalam turbo pascal :

tugas bangun datar

Program Mencari_Luas_dan_Keliling_Bangun_Datar;
uses crt;
var a,b,c,r,p,lb,t,s:integer;
L, K:real;i: integer;

procedure menu;
begin
writeln ('1. Segitiga');
writeln ('2. Lingkaran');
writeln ('3. Persegi Panjang');
writeln ('4. Persegi');
end;
procedure segitiga;
begin
writeln ('Menghitung Luas dan Keliling Segitiga');
write ('Panjang a= '); readln (a);
write ('Panjang b= '); readln (b);
write ('Panjang c= '); readln (c);
write ('Tinggi segitiga= '); readln (t);
L:= (a*t)/2;
K:= a+b+c;
write ('Luas segitiga = ',L:0:2); readln;
write ('Keliling segitiga = ',K:0:2); readln;
end;
procedure lingkaran;
const phi=3.14;
begin
writeln ('Menghitung Luas dan Keliling Lingkaran');
write ('Panjang r= '); readln (r);
L:=phi*r*r;
K:=phi*2*r;
write ('Luas lingkaran adalah ',L:0:2); readln;
write ('Keliling lingkaran adalah ',K:0:2); readln;
end;
procedure persegipanjang;
begin
writeln ('Menghitung Luas dan Keliling Persegi Panjang');
write ('p = '); readln (p);
write ('l = '); readln (lb);
L:=p*lb;
K:=(2*p)+(2*lb);
write ('Luas persegi panjang = ',L:0:2); readln;
write ('Keliling persegi panjang = ',K:0:2); readln;
end;
procedure persegi;
begin
writeln ('Menghitung Luas dan Keliling Persegi');
write ('panjang sisi = '); readln (s);
L:= s*s;
K:=4*s;
write ('Luas persegi= ',L:0:2); readln;
write ('Keliling persegi= ',K:0:2); readln;
end;
var pil:char;
begin
Repeat
clrscr;
textcolor (white);
writeln ('Pilih menu berikut ini:');
menu;
write('Menu yang Anda pilih ');readln(pil);
case pil of
'1': begin segitiga;end;
'2': begin lingkaran; end;
'3': begin persegipanjang;end;
'4': begin persegi;end;
end;
write('mau ulang lagi? [Y/N]:'); readln(Pil);
Pil:=Upcase (PIL);
Until (Pil<>'Y');readln;
end.

Menghitung FPB

Program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclide;

uses crt;

var
x,y,a,b,p,q:integer;

begin
clrscr;
writeln('Nama : Eka Dewi Rahayu');
writeln('Kelas : 4a');
writeln('NIM : 070766');
writeln;
writeln (' Program FPB ');
writeln ('==================================================');

write('masukan bilangan pertama : ');read(p);
write('masukan bilangan kedua : ');read(q);

if p>q then
begin
a:=p;
b:=q;
end else
begin
a:=q;
b:=p;
end;

writeln;
y:=a mod b;
x:=a div b;

writeln (a,' = ',x,' . ',b,' + ',y);readln;

if a>b then
repeat
a:=b;
b:=y;
y:=a mod b;
x:=a div b;

writeln (a,' = ',x,' . ',b,' + ',y);readln;

until y=0;
writeln;
write('jadi nilai FPB adalah ');
writeln (b);
readln;
write('fpb=a=b');
end.

tugas program komputer

program Menghitung_Luas_dan_Keliling_Lingkaran;
uses crt;
const pi=3.14;
var r,L,K:real;
begin
clrscr;
writeln('TUGAS PROGRAM KOMPUTER');
writeln('Nama : EKA DEWI RAHAYU');
writeln('NIM : 070766');
writeln('Kelas : IV A');readln;writeln;
writeln(' MENGHITUNG LUAS DAN KELILING LINGKARAN ');
writeln('============================================');readln;writeln;
write('Masukkan Nilai r = ');read(r);
writeln;
L:=pi*r*r;
K:=2*pi*r;
writeln('maka');
writeln('Luas Lingkaran adalah = ',L:2:0);readln;
writeln('Keliling Lingkaran adalah=',K:2:0);readln;writeln;
writeln('================= SELESAI ================');readln;
end.




program Menghitung_SPLTV;
uses crt;
var A,B,C,D,E,F,G,H,P,Q,R,S:integer;
x,y,z,N,K,L,M:real;

begin
clrscr;
writeln;
writeln(' MENGHITUNG SPLTV (Sistem Persamaan Linear Tiga Variabel) ');
writeln('*****************************************************************');
readln;writeln;
write('Masukkan koefisien x pada persamaan 1: ');read(A);
write('Masukkan koefisien y pada persamaan 1: ');read(B);
write('Masukkan koefisien z pada persamaan 1: ');read(C);
write('Masukkan konstanta hasil pada persamaan 1: ');read(D);
writeln;
write('Masukkan koefisien x pada persamaan 2: ');read(E);
write('Masukkan koefisien y pada persamaan 2: ');read(F);
write('Masukkan koefisien z pada persamaan 2: ');read(G);
write('Masukkan konstanta hasil pada persamaan 2: ');read(H);
writeln;
write('Masukkan koefisien x pada persamaan 3: ');read(P);
write('Masukkan koefisien y pada persamaan 3: ');read(Q);
write('Masukkan koefisien z pada persamaan 3: ');read(R);
write('Masukkan konstanta hasil pada persamaan 3: ');read(S);
writeln;
writeln;
writeln('Sehingga persamaannya dapat ditulis sebagai berikut...');readln;
writeln;
writeln(' persamaan(1): ',A,'x + ' ,B,'y + ' ,C,'z =',D);
writeln(' persamaan(2): ',E,'x + ' ,F,'y + ' ,G,'z =',H);
writeln(' persamaan(3): ',P,'x + ' ,Q,'y + ' ,R,'z =',S);
writeln;

N:=(A*F*R)+(B*G*P)+(C*E*Q)-(P*F*C)-(Q*G*A)-(R*E*B);
K:=(D*F*R)+(B*G*P)+(C*H*Q)-(D*F*C)-(Q*G*D)-(R*H*B);
L:=(A*H*R)+(D*G*P)+(C*E*S)-(P*H*C)-(S*G*A)-(R*E*D);
M:=(A*F*S)+(B*H*P)+(D*E*Q)-(P*F*D)-(Q*H*A)-(S*E*B);

write('Maka');readln;
write('Determinannya adalah = ',N:2:2);readln;
write('Determinan x adalah = ',K:2:2);readln;
write('Determinan y adalah = ',L:2:2);readln;
write('Determinan z adalah = ',M:2:2);readln;
writeln;writeln;


if N=0 then writeln('Jadi, SPLTV TIDAK PUNYA PENYELESAIAN')
else

begin
x:=K/N;
y:=L/N;
z:=M/N;

if N>0 then
begin
writeln('Jadi...');
writeln('NILAI x = ',x:2:2);
writeln('NILAI y = ',y:2:2);
writeln('NILAI z = ',z:2:2);
end else

if N<0 x =" ',x:2:2);" y =" ',y:2:2);" z =" ',z:2:2);" onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnbLWaYrx5Y05S_Osw8Mgjs4wOqpSWmY0Hnj9flbaQnAf6KCq1s0TwclbqRRStmpjsA72YHIw3_uk6mHscCZN3I3qF4X2dR_JU0_xV9gCCLySXjrxS7u9MxVJHmWIT5PZ2U8NSb0GBis-p/s1600-h/spltv.jpg.bmp">











program Menghitung_Nilai_Akhir_Mahasiswa;
uses crt;
var nama: string;
mata_kuliah: string;
tugas,UTS,UAS,nilai: integer;
Nilai_Akhir: real;

begin
clrscr;
writeln;
writeln(' PROGRAM MENGHITUNG NILAI AKHIR MAHASISWA ');
writeln('-----------------------------------------------------------------');
writeln;
writeln('Silahkan masukkan identitas anda dibawah ini terlebih dahulu!');
write('Nama : ');readln(nama);
write('NIM : ');readln;
write('Kelas : ');readln;
write('Mata Kuliah : ');readln(mata_kuliah);
writeln;writeln;
write(' Masukkan Nilai Tugas : '); readln(tugas);
write(' Masukkan Nilai UTS : '); readln(UTS);
write(' Masukkan Nilai UAS : '); readln(UAS);
Nilai:=25*tugas+25*uts+50*uas;
writeln;
write(' Jumlah Nilainya adalah : ',nilai);
writeln;
nilai_akhir:=nilai/100;
write(' NILAI AKHIR ANDA = ',nilai_akhir:0:2);
writeln;writeln;

case nilai of

0..2500 : writeln(' SORRY ',NAMA,'. NILAI ANDA = E. ANDA HARUS MENGULANG MATA KULIAH ',mata_kuliah,' INI');
2600..3900 : writeln('*** SORRY ',NAMA,'. NILAI ANDA = D ... BELAJAR YANG RAJIN DAN TETAP SEMANGAT *** ');
4000..6500 : writeln('***** ',NAMA,'. NILAI ANDA = C.. BERUSAHA LEBIH BAIK LAGI YA.. ******');
6600..7900 : writeln('*************** CONGRATULATION ',NAMA,'. NILAI ANDA = B ***************');
8000..10000: writeln('CONGRATULATION ',nama,'. NILAI ANDA = A. ANDA JAGO SEKALI DI ',mata_kuliah,' INI');
else
writeln('TIDAK ADA NILAI YANG DIMAKSUD');
writeln;
end;
readln;
end.



rogram Menghitung_akar_persamaan_kuadrat;
uses crt;
var A,B,C: integer;
x1,x2,D:real;
begin
clrscr;
writeln;
writeln(' MENGHITUNG AKAR PERSAMAAN KUADRAT ');
writeln('*************************************');
writeln;
write('koefisien A: ');read(A);
write('koefisien B: ');read(B);
write('koefisien C: ');read(C);WRITELN;
writeln(A,'x*x + ',B,'x + ',C,' = 0');
writeln;
if A=0 then
begin
writeln;
writeln('BUKAN PERSAMAAN KUADRAT');readln;
writeln;
end
else
begin
D:=(B*B)-(4*A*C);
writeln('Diskriminannya = ',d:2:2);readln;
writeln;writeln;
if D>0 then
begin
writeln('PERSAMAAN KUADRAT MEMPUNYAI 2 AKAR YANG BERBEDA');
writeln;
x1:=(-B+sqrt(D))/(2*A);
x2:=(-B-sqrt(D))/(2*A);
writeln('akar-akarya adalah : ',x1:2:2,' dan ',x2:2:2);
end
else
if D=0 then
begin
writeln('PERSAMAAN KUADRAT MEMPUNYAI AKAR YANG SAMA');
writeln;
x1:=-b/(2*A);
x2:=-b/(2*A);
writeln('akar-akarya : ',x1:2:2);
end
else
writeln('TIDAK MEMILIKI AKAR REAL');
end;
readln;
end.