TUGAS PROKOM PHYTAGORAS

program Menentukan_Bilangan_Phytagoras;
uses crt;
var a,b,c:real;
begin
clrscr;
textcolor(BLACK);
writeln (' INI ADALAH PROGRAM MENGHITUNG BARISAN PHYTAGORAS');
writeln (' YUNIAR DIAN NURINAWATI 070790 IVB');
writeln ('masukkan a:'); readln (a);
writeln ('masukkan b:'); readln (b);
c:=sqrt((a*a)+(b*b));
writeln ('nilai c adalah:', c:2:2);
writeln;
if a>0 then
begin
writeln ('a merupakan bilangan asli');
end
else if a<0>0 then
begin
writeln ('b merupakan bilangan asli');
end
else if b<0>0 then
begin
writeln ('c merupakan bilangan asli');
end
else if c<0 then
begin
writeln ('c bukan bilangan asli');
end;
readln;
end.

tampilan output:

TUGAS PROKOM LUAS SEGITIGA

Program menghitung_luas_segitiga;
uses crt;
var a,b,c:integer;
s,luas:real;
begin
clrscr;
writeln (' SELAMAT DATANG ');
writeln (' DI PROGRAM MENGHITUNG LUAS SEGITIGA ');
writeln (' DI BUAT OLEH YUNIAR DIAN NURINAWATI 070790 4B ');
writeln;
writeln ('masukkan a'); readln (a);
writeln ('masukkan b'); readln (b);
writeln ('masukkan c'); readln (c);
s:=(a+b+c)/2;
writeln ('nilai s adalah:',s:2:2);
luas:=sqrt(s*(s-a)*(s-b)*(s-c));
writeln ('luas segitiga adalah:' , luas:2:2);
readln;
end.


TAMPILAN OUTPUT :

TUGAS PROKOM LINGKARAN

Program menentukan_koordinat_pusat_lingkaran_dan_jarijari_lingkaran_dari_3_buah_titik;
uses crt;
var x1,y1,x2,y2,x3,y3,k2,k3,h2,h3,x0,y0,r:real;
begin
clrscr;
writeln ( ' SELAMAT DATANG ' );
writeln (' INI ADALAH PROGRAM YANG DIBUAT OLEH ' );
writeln ( 'YUNIAR DIAN NURINAWATI 070790 ' );
writeln ( 'masukkan x1'); readln (x1);
writeln ( 'masukkan y1'); readln (y1);
writeln ( 'masukkan x2'); readln (x2);
writeln ( 'masukkan y2'); readln (y2);
writeln ( 'masukkan x3'); readln (x3);
writeln ( 'masukkan y3'); readln (y3);
writeln;
k2:=(-1*((x2-x1)/(y2-y1)));
k3:=(-1*((x3-x1)/(y3-y1)));
writeln ('Nilai k2 adalah', k2:2:2);
writeln ('Nilai k3 adalah', k3:2:2);
writeln;
h2:=((y1+y2)/(2))+(((x2*x2)-(x1*x1))/((2)*(y2-y1)));
h3:=((y1+y3)/(2))+(((x3*x3)-(x1*x1))/((2)*(y3-y1)));
writeln ('Nilai h2 adalah', h2:2:2);
writeln ('Nilai h3 adalah', h3:2:2);
writeln;
x0:=((h3-h2)/(k2-k3));
y0:=((k3*h3-k2*h2)/(k2-k3));
r:=sqrt((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0));
writeln ('Nilai x0 adalah', x0:2:2);
writeln ('Nilai y0 adalah', y0:2:2);
writeln ('Nilai r adalah', r:2:2);
readln;
end.


tampilan output :

TUGAS PROKOM "MENCETAK BILANGAN PRIMA"

Program Mencetak_Bilangan_Prima;
Uses crt;
Const batas=500;
var
prima : array [1..batas] of boolean; { bilangan prima }
batas_geser, { batas pergeseran }
i,j : integer; { counter / cacah }

Begin
clrscr;
For i:=1 to Batas do
prima [i] :=true;
batas_geser:=trunc(sqrt(batas));
i:=2;
{ proses penggeseran }
While i<=batas_geser do
Begin
If prima [i] then
Begin
j:=i+i;
While j<=batas do
Begin
prima [j] :=false;
j:=j+i;
End;
End;
i:=i+1;
End;

{ cetak hasil proses....}

Writeln (' Bilangan Prima antara 1 sampai dengan 500 ') ;
writeln (' OLeh YUNIAR DIAN NURINAWATI 070790 ');
Writeln ('------------------------------------------------') ;
Writeln;
j:=1;
For i:=2 to Batas do
Begin
If prima[i] then
Begin
If J > 8 Then
Begin
j:=1;
Writeln;
End
Else
Begin
write(' ',i:3);
j:=j+1;
End;
End;
End;
writeln;writeln ('Selesai...');
end.

tampilan dalam output

TUGAS PROKOM TENTANG SIGMA

Program Menentukan_Banyak_dan_Jumlah_Bilangan_dari_Bilangan_Pecahan;

Uses crt;

Var
jumlah:real;
x,n:integer;


Begin
Clrscr;

Writeln (' SELAMAT DATANG ');
Writeln (' DI PROGRAM MENENTUKAN BANYAK & JUMLAH BILANGAN DARI BILANGAN PECAHAN');
Writeln ('...........DIBUAT OLEH YUNIAR DIAN NURINAWATI 070790............');
Writeln;

n:=20;
jumlah:=0;

for x:=1 to n-1 do
begin
write ('1/',x*x,' + ');
jumlah:=jumlah+1/(x*x);
end;

write ('1/',n*n);
jumlah:=jumlah+1/(n*n);
writeln;

writeln;
writeln ('Banyaknya:',n);
writeln ('Jumlah:',jumlah:2:2);

readln;

End.

TAMPILAN DALAM BENTUK OUTPUT

TUGAS PROKOM MENU MATRIKS

program Menu_Pilihan_Matriks;

uses crt;
var Mat_A,Mat_B,Mat_C:array[1..10,1..10] of integer;
ordo_x,ordo_y:integer;
x,y,z,koor_brs:integer;
pilih:byte;


procedure input_penjumlahan_matriks;
begin
writeln ('ini adalah sebuah program penjumlahan matriks');
writeln('Tentukan Ordo Matriks');
readln (ordo_x,ordo_y);
writeln('input Matriks (A):');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_A[x,y]);
end;
end;
writeln('input Matriks (B):');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_B[x,y]);
end;
end;
end;

procedure input_pengurangan_matriks;
begin
writeln ('ini adalah sebuah program pengurangan matriks');
writeln('Tentukan Ordo Matriks');
readln (ordo_x,ordo_y);
writeln('input Matriks (A):');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_A[x,y]);
end;
end;
writeln('input Matriks (B):');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_B[x,y]);
end;
end;
end;

procedure input_perkalian_matriks;
begin
writeln('Tentukan Ordo Matriks');
readln (ordo_x,ordo_y);
writeln('input Matriks (A):');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_A[x,y]);
end;
end;
writeln('input Matriks (B):');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_B[x,y]);
end;
end;
end;

procedure input_transpost_matriks;
begin
writeln('Tentukan Ordo Matriks');
readln (ordo_x,ordo_y);
writeln('input Matriks (A):');
for y:=1 to ordo_y do
begin
koor_brs := wherey;
for x:=1 to ordo_x do
begin
gotoxy (x*5,koor_brs);
read (Mat_A[x,y]);
end;
end;
end;

procedure rumus_penjumlahan_matriks;
begin
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:= Mat_A[x,y] + Mat_B[x,y];
end;
end;
end;

procedure rumus_pengurangan_matriks;
begin
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:= Mat_A[x,y] - Mat_B[x,y];
end;
end;
end;
procedure rumus_perkalian_matriks;
begin
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:=0;
for z:=1 to ordo_y do
Mat_C[x,y]:=Mat_C[x,y] + Mat_A[z,y]*Mat_B[x,z];
end;
end;
end;

procedure rumus_transpost_matriks;
begin
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
Mat_C[x,y]:= Mat_A[y,x];
end;
end
end;

procedure output_penjumlahan_matriks;
begin
writeln;
writeln('maka penjumlahan matriks A dan B =');
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
write(Mat_C[x,y]:5);
end;
write;readln;
end;
end;

procedure output_pengurangan_matriks;
begin
writeln;
writeln('maka pengurangan matriks A dan B =');
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
write(Mat_C[x,y]:5);
end;
write;readln;
end;
end;

procedure output_perkalian_matriks;
begin
writeln;
writeln('maka perkalian matriks A dan B =');
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
write(Mat_C[x,y]:5);
end;
write;readln;
end;
end;

procedure output_transpost_matriks;
begin
writeln('maka transpostnya adalah');
for y:=1 to ordo_y do
begin
for x:=1 to ordo_x do
begin
write(Mat_C[x,y]:5);
end;
write;readln
end;
end;

procedure Penjumlahan_matriks;
begin
writeln;
input_penjumlahan_matriks; readln;
rumus_penjumlahan_matriks; read;
output_penjumlahan_matriks; read;
writeln('tekan ENTER untuk pilih program lain'); readln;
end;
procedure pengurangan_matriks;
begin
writeln;
writeln;
input_pengurangan_matriks; readln;
rumus_pengurangan_matriks; read;
output_pengurangan_matriks; read;
writeln('tekan ENTER untuk pilih program lain'); readln;
end;
procedure perkalian_matriks;
begin
writeln;
input_perkalian_matriks; readln;
rumus_perkalian_matriks; read;
output_perkalian_matriks; readln;
writeln('tekan ENTER untuk pilih program lain'); readln;
end;
procedure transpost_matriks;
begin
writeln;
input_transpost_matriks; readln;
rumus_transpost_matriks; read;
output_transpost_matriks;readln;
writeln('tekan ENTER untuk pilih program lain'); readln;
end;

begin
while true do
begin
textcolor(white);
clrscr;
write('***********************************************');writeln;
write('*******************SELAMAT DATANG *********');writeln;
write('=============YUNIAR DIAN NURINAWATI========');writeln;
write('***********************************************');writeln;
write('=================== MENU ==================');writeln;
write('= 1. penjumlahan matriks =');writeln;
write('= 2. pengurangan matriks =');writeln;
write('= 3. perkalian matriks =');writeln;
write('= 4. transpost matriks =');writeln;
write('= 5. Keluar =');writeln;
write;
pilih:=0;
while(pilih<1)>5) do
begin
write(' Silahkan pilih nomor : ');read(pilih);
if (pilih<1)>5) then
end;
case pilih of
1: penjumlahan_matriks;
2: pengurangan_matriks;
3: perkalian_matriks;
4: transpost_matriks;
5: exit;
end;
end;
end.

TAMPILAN OUTPUT :

TUGAS PROKOM KE- 3

Program prosedur_menu;
uses Crt;
Var
r,a,t,p,l,s,s1,s2,s3,luas,kel,luper,vol : real;
pilihan,pilih:char;
const phi=3.14;

procedure input_luaslingkaran;
begin
writeln;
writeln (' # Program Menghitung Luas Lingkaran');
writeln;
write (' Masukan nilai jari-jari: '); read (r);
end;

procedure input_kelilinglingkaran;
begin
writeln;
writeln (' # Program Menghitung Keliling Lingkaran');
writeln;
write (' Masukan nilai jari-jari: '); read (r);
end;

procedure input_luassegitiga;
begin
writeln;
writeln (' # Program Menghitung Luas Segitiga');
writeln;
write (' Masukan nilai alas: '); read (a);
writeln;
write (' Masukan nilai tinggi: '); read (t);
end;

procedure input_kelilingsegitiga;
begin
writeln;
writeln (' # Program Menghitung Keliling Segitiga');
writeln;
write (' Masukan nilai sisi pertama: '); read (s1);
writeln;
write (' Masukan nilai sisi kedua: '); read (s2);
writeln;
write (' Masukan nilai sisi ketiga: '); read (s3);
end;

procedure input_luaspersegipanjang;
begin
writeln;
writeln (' # Program Menghitung Luas Persegi Panjang');
writeln;
write (' Masukan nilai panjang: '); read (p);
writeln;
write (' Masukan nilai lebar: '); read (l);
end;

procedure input_kelilingpersegipanjang;
begin
writeln;
writeln (' # Program Menghitung Keliling Persegi Panjang');
writeln;
write (' Masukan nilai panjang: '); read (p);
writeln;
write (' Masukan nilai lebar: '); read (l);
end;

procedure input_luaskubus;
begin
writeln;
writeln (' # Program Menghitung Luas Permukaan Kubus');
writeln;
write (' Masukan nilai sisi: '); read (s);
end;

procedure input_volumekubus;
begin
writeln;
writeln (' # Program Menghitung Volume Kubus');
writeln;
write (' Masukan nilai sisi: '); read (s);
end;


procedure proses_luaslingkaran;
begin
luas:=phi*r*r;
end;

procedure proses_kelilinglingkaran;
begin
kel:=2*phi*r;
end;

procedure proses_luassegitiga;
begin
luas:=(a*t)/2;
end;

procedure proses_kelilingsegitiga;
begin
kel:=s1+s2+s3;
end;

procedure proses_luaspersegipanjang;
begin
luas:=p*l;
end;

procedure proses_kelilingpersegipanjang;
begin
kel:= 2*(p+l);
end;

procedure proses_luaskubus;
begin
luper:=6*s*s;
end;

procedure proses_volumekubus;
begin
vol:=s*s*s;
end;

procedure output_luaslingkaran;
begin
write ('Luas Lingkaran tersebut adalah: ',luas:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_kelilinglingkaran;
begin
write ('Keliling Lingkaran tersebut adalah: ',kel:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_luassegitiga;
begin
write ('Luas Segitiga tersebut adalah: ',luas:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_kelilingsegitiga;
begin
write ('Keliling Segitiga tersebut adalah: ',kel:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_luaspersegipanjang;
begin
write ('Luas Persegi Panjang tersebut adalah: ',luas:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_kelilingpersegipanjang;
begin
write ('Keliling Persegi Panjang tersebut adalah: ',kel:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_luaskubus;
begin
write ('Luas Permukaan Kubus tersebut adalah: ',luper:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;

procedure output_volumekubus;
begin
write ('Volume Kubus tersebut adalah: ',vol:2:2);
writeln;
writeln;
write ('----========= TERIMA KASIH TELAH MENGGUNAKAN PROGRAM INI =========----');
readln;
end;


procedure luaslingkaran;
begin
writeln;
input_luaslingkaran;
writeln;
proses_luaslingkaran;
writeln;
output_luaslingkaran;
readln
end;

procedure kelilinglingkaran;
begin
writeln;
input_kelilinglingkaran;
writeln;
proses_kelilinglingkaran;
writeln;
output_kelilinglingkaran;
readln;
end;

procedure luassegitiga;
begin
writeln;
input_luassegitiga;
writeln;
proses_luassegitiga;
writeln;
output_luassegitiga;
readln;
end;

procedure kelilingsegitiga;
begin
writeln;
input_kelilingsegitiga;
writeln;
proses_kelilingsegitiga;
writeln;
output_kelilingsegitiga;
readln;
end;

procedure luaspersegipanjang;
begin
writeln;
input_luaspersegipanjang;
writeln;
proses_luaspersegipanjang;
writeln;
output_luaspersegipanjang;
readln;
end;

procedure kelilingpersegipanjang;
begin
writeln;
input_kelilingpersegipanjang;
writeln;
proses_kelilingpersegipanjang;
writeln;
output_kelilingpersegipanjang;
readln;
end;

procedure luaskubus;
begin
writeln;
input_luaskubus;
writeln;
proses_luaskubus;
writeln;
output_luaskubus;
readln;
end;

procedure volumekubus;
begin
writeln;
input_volumekubus;
writeln;
proses_volumekubus;
writeln;
output_volumekubus;
readln;
end;


begin
textcolor(green);
clrscr;
Writeln (' *******************SELAMAT DATANG*****************');
writeln (' 888888888888^YUNIAR DIAN NURINAWATI^88888888888888');
Writeln (' ==================================================');
Writeln ('Silahkan memilih sesuai menu yang anda inginkan!');
writeln;
Writeln ('## MENU ##');
writeln ('[1]. Lingkaran');
writeln ('[2]. Segitiga');
writeln ('[3]. Persegi Panjang');
writeln ('[4]. Kubus');
writeln ('[5]. Keluar');
write ('Masukan pilihan anda: '); readln (pilihan);

case pilihan of
'1': begin
writeln ('[a]. Manghitung Luas atau [b]. Menghitung Keliling');
writeln;
write (' Masukan pilihan anda: '); read (pilih);
case pilih of
'a','A': luaslingkaran;
'b','B': kelilinglingkaran;
end;
end;

'2': begin
writeln ('[a]. Manghitung Luas atau [b]. Menghitung Keliling');
writeln;
write (' Masukan pilihan anda: '); read (pilih);
case pilih of
'a','A': luassegitiga;
'b','B': kelilingsegitiga;
end;
end;
'3': begin
writeln ('[a]. Manghitung Luas atau [b]. Menghitung Keliling');
writeln;
write (' Masukan pilihan anda: '); read (pilih);
case pilih of
'a','A': luaspersegipanjang;
'b','B': kelilingpersegipanjang;
end;
end;
'4': begin
writeln ('[a]. Manghitung Luas permukaan atau [b]. Menghitung Volume');
writeln;
write (' Masukan pilihan anda: '); read (pilih);
case pilih of
'a','A': luaskubus;
'b','B': volumekubus;
end;
end;
'5': exit;
end;

End.

Tampilan Output :