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