MENENTUKAN KOORDINJAT PUSAT LINGKARAN DAN JARIJARI LINGKARAN DARI 3 BUAH TITIK

Ini adalah program matematika, menghitung pusat dan jari-jari lingkaran melalui 3 buah titik, ini adalah program pascalnya:
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 (’welcome’);
writeln (’program menentukan koordinat pusat lingkaran dan jarijari lingkaran dari 3 titik’);
writeln (’ di buat oleh :AIRINDA EKTRIA KUSUMAWATI 070793 4B’);
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.

program phytagoras

uses crt;
var a,b,c:real;
begin
clrscr;
textcolor(yellow);
writeln (’welcome’);
writeln (’This is an Aplicative Program to Count Phytagoras’);
writeln (’Created by: airinda ektria 070793 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 (’c merupakan bilangan asli’);
end
else if c<0 then
begin
writeln ('c bukan bilangan asli');
end;
readln;
end.

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 s/d 500 ', Batas) ; writeln (' OLeh Airinda ektria 070793 Math 4_B '); 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.

SIGMA PECAHAN

Program Menentukan_Banyak_dan_Jumlah_Bilangan_dari_Bilangan_Pecahan;

Uses crt;
Var jumlah :real;
x,n :integer;
Begin
Clrscr;
Writeln (' SELAMAT DATANG ' );

Writeln (' PROGRAM MENENTUKAN BANYAK & JUMLAH BILANGAN DARI BILANGAN PECAHAN');

Writeln (' OLEH AIRINDA EKTRIA 070793 4B ');

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.

menu_procedure 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;
L,K,s,a,t,p :real;
pilih :byte;


procedure input_penjumlahan_matriks;

begin
writeln (’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 (’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
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 PIL1;
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 PIL2;
begin
writeln;
input_perkalian_matriks; readln;
rumus_perkalian_matriks; read;
output_perkalian_matriks; readln;
writeln(’tekan ENTER untuk pilih program lain’); readln;
end;

procedure PIL3;
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(blue);
clrscr;
write(’***********************************************’);writeln;
write(’*****PROGRAM MENU PROSEDUR MATRIKS****’);writeln;
write(’************* AIRINDA EKTRIA *****************’);writeln;
write(’************** NIM : 070793 *****************’);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(’===============================================’);writeln;
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: PIL1;
3: PIL2;
4: PIL3;
5: exit;
end;
end;
END.

Mencari luas dan keliling bangun datar

Program Mencari_Luas_dan_Keliling_Bangun_Datar;
Uses crt;
Var a,b,c,t,r,p,lb,s: integer;
L,K: realProcedure menu;
Begin
writeln ('1. Segitiga');
writeln ('2. Lingkaran');
writeln ('3. Pesegi 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:2:2); readln;
write ('Keliling Segitiga = ', K:2: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:= 2*phi*r;
write ('Luas Lingkaran adalah ', L:2:2); readln;
write ('Keliling Lingkaran adalah ', K:2:2); readln;
end;

Procedure Persegi_Panjang;

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 adalah ',L:2:2);readln;
write ('Keliling Persegi_Panjang adalah ',K:2: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 adalah ',L:2:2); readln;
write ('Keliling Persegi adalah ',K:2:2); readln;
End;


Var pil:char;
Begin
Clrscr;
writeln ('Pilih Menu dibawah ini:');
Menu;
write ('Menu yang Anda pilih '); readln (pil);
Case pil of
'1': begin segitiga; end;
'2': begin lingkaran; end;
'3': begin persegi_panjang; end;
'4': begin persegi; end;
End; readln;
End.

PRokom Pascal FPB

Program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclid;


Uses Crt;
Var x,y,a,b,k,l:longint;
Begin Clrscr;
WriteLn ('!!!!!!!!!!!!! JUDUL !!!!!!!!!!!!');
writeLn (' PROGRAM MENENTUKAN NILAI FPB ');
WriteLn (' airinda Ektria 070793');
WriteLn ('Masukan Bilangan Pertama:'); ReadLn (k);
WriteLn ('Masukan Bilangan Kedua:'); ReadLn (l);
if k>l then
begin
a:=k;
b:=l;
end else
begin
a:=l;
b:=k;
end;
WriteLn;
y:= a mod b;
x:= a div b;
Write (a);
Write ('=');
Write (x);
Write ('*');
Write (b);
Write ('+');
WriteLn (y);

Repeat
a:=b;
b:=y;
y:= a mod b;
x:= a div b;
Write (a);
Write ('=');
Write (x);
Write ('*');
Write (b);
Write ('+');
WriteLn (y);
Until y=0;
WriteLn (' Nilai FPB adalah sebagai berikut :');
Write (b);
Readln;
End.