Bahasa Pascal

Loh kok bisa ada bahasa pascal c Ms?? ini kan blognya orang material dan pengelasaN?? :t
Tenang-tenang,g usah dipikir mpe dalem gitu donk..ntar malah botak :p . Sebagai orang teknik keras,pengetahuan ttg comp. itu tidak seberapa penting. Akan tetapi,kita harus bisa membuka mata dan telinga bahwa kita hidup di dunia computer,semua serba canggih dan perlu tool khusus yang namanya COMPUTER ;) . Just sekedar tau aja kok, biar g dibilang udik,ndeSo,katrok gitu :D


ini adalah contoh-contoh Formula ketika semester 3 kemarin dapet matkul aplikasi komputer. Biar pun jelek begini aku dapat AB luwh :k .Semoga bermanfaat yach

program contoh_record;
type
DataMhs=record
Nomor:Integer;
Nama : String[20];
IP : Real;
end;
Var
JumlahMhs,I,J : Byte;
Mahasiswa:Array[1..50] of DataMhs;
Dummy:DataMhs;
Begin
(* Memasukkan Data Mahasiswa *)
Write('Jumlah Mahasiswa ?');
readln(JumlahMhs);
for I:=1 to JumlahMhs do
Begin
Writeln;
with Mahasiswa[I] do
begin
writeln;
Write('Nomor Mahasiswa ke ',I:2,'?');
readln(nomor);
Write('Nama MAhasiswa ke',I:2,'?');
readln(Nama);
Write('IP Mahasiswa ke ',I:2,'?');
readln(IP);
end;
end;
(* Mengurutkan Data Berdasarkan Nomor Mahasiswa *)
for I:=1 to JumlahMhs-1 do
for J:=1 to JumlahMhs-1 do
if Mahasiswa[J].Nomor>Mahasiswa[J+1].Nomor then
begin
dummy :=Mahasiswa [J];
Mahasiswa[J]:=Mahasiswa[J+1];
Mahasiswa[J+1]:=dummy;
end;
(* Menampilkan Hasil *)
Writeln;
Writeln('-----------------------------------');
Writeln('Nomor Indeks ');
writeln('Mhs Nama Mahasiswa Prestasi');
Writeln('-----------------------------------');
for I:=1 to JumlahMhs do
begin
With Mahasiswa[I] do
writeln(nomor:5, Nama:20,IP:11:2);
end;
writeln('-----------------------------------');
end.

Rumus Gabungan
uses crt;
var
pilihan : byte;
R,L,T,luas :real;
begin
clrscr;
gotoxy(10,2);writeln('<<>>');
gotoxy(10,4);writeln('1.Menghitung luas lingkaran');
gotoxy(10,6);writeln('2.Menghitung luas segitiga');
gotoxy(10,8);writeln('3.menghitung luas bujur sangkar');
gotoxy(10,10);writeln('s e le s a i.');
pilihan:=9;
while ( pilihan <0 ) or ( pilihan >3) do
begin
gotoxy(10,20);write('pilih nomor (0-3?');
read(pilihan);
end;
clrscr;
if pilihan = 1 then
begin
writeln('jari-jari lingkaran ?');
readln(R);
luas:=pi*R*R;
writeln;
write('luas lingkaran :=',luas:9:2);
readln;
end;
if pilihan =2 then
begin
write ('panjang sisi alas ?');
readln (L);
write ('tinggi segitiga ?');
readln (T);
luas:=0.5*L*T;
writeln;
write('luas segitiga :=',luas:9:2);
readln;
end;
if pilihan =3 then
begin
write('panjang bujur sangkar ?');
readln (T);
write('luas bujur sangkar ?');
readln(L);
luas:=T*L;
writeln;
write('luas bujur sangkar :=',luas:9:2);
readln;
writeln ('mau menghitung lagi ');
end;
end.

program luas_segitiga;
uses crt;
var
alas,tinggi,luas: real;
begin
clrscr;
writeln ('menghitung luas segitiga');
write ('masukan nilai alas:');
readln (alas);
write ('masukan nilai tinggi:');
readln (tinggi);
luas:=alas*tinggi*0.5;
writeln ('luas segitiga=',luas:6:2);
readln;
end.

program luas_persegi;
uses crt;
var
panjang,lebar,luas: real;
begin
writeln ('menghitung luas persegi');
write ('masukan nilai panjang:');
readln (panjang);
write ('masukan nilai lebar:');
readln (lebar);
luas:=panjang*lebar;
writeln ('luas persegi=',luas:6:2);
readln;
end.

program Urutan_for_to_do;
uses crt;
var
x,x2,x3 :integer;
Seperx:real;
begin
clrscr;
Writeln('--------------------');
writeln(' x x*x 1/x' );
writeln('--------------------');
for x:=1 to 10 do;
begin
x2:=x*x;
Seperx:=1/x;
writeln(x:3,x2:6,seperx:10);
end;
writeln('--------------------');
readln;
end.

program CASE_OF;
uses crt;
Var
Pilihan: Byte;
R,L,T,Luas :Real;
begin
clrscr;
gotoxy(10,2);writeln (' <> ');
gotoxy(10,4);writeln ('1.Menghitung Luas Lingkaran');
gotoxy(10,6);writeln ('2.Menghitung Luas Segitiga');
gotoxy(10,8);writeln ('3.Menghitung Luas Bujur Sangkar');
gotoxy(10,10);writeln ('0. SAMPUN MARI MAS!!!!');
Pilihan :=9;
while (pilihan<0) or (pilihan>3) do
begin
gotoxy(10,20);write('Monggo dipilih nomornya(0-3) ?');
read(pilihan);
end;
clrscr;
Case Pilihan Of
1:begin
write(' jari jari lingkaran ?');
readln(R);
Luas:=3.14*R*R;
Writeln('Alhamdullilah,dengan Ridho ALloh ketemu luasnya Mas= ',luas:9:2);
readln;
end;
2:begin
write ('Panjang Sisi Alas ?');
readln(L);
write ('Tinggi Segitiga ?');
readln(T);
Luas:=0.5*L*T;
writeln;
writeln('Ketemu dah luas segitiganya = ',Luas:9:2);
readln
end;
3:begin
write ('Panjang bujur sangkar ?');
Readln(T);
Luas:=T*T;
writeln;
writeln('Nah ini dia Luas Bujur Sangkar e Bozzzz= ',Luas:9:2);
readln
end;
end;
end.

program lingkaran;
uses crt;
var
diameter,luas: real;
begin
writeln ('menghitung luas lingkaran');
write ('masukan nilai diameter:');
readln (diameter);
luas:=3.14*diameter*3/4;
writeln ('luas lingkaran=',luas:6:2);
readln;
end.

program Rerata;
uses crt;
var
nilai,total,rata_rata:real;
N,I:Integer;
begin
clrscr;
write ('Jumlah Data ?');
readln (N);
writeln;
I:=0;
while Ibegin
I:=I+1;
write('nilai data ke',I,'?');
readln (nilai);
total :=total+nilai;
end;
rata_rata:=total/N;
writeln;
writeln('total nilai =',total:8:2);
writeln('jumlah data=',N:3);
writeln('rata-rata nilai=',rata_rata:8:2);
readln;
end.

program Tabel_Trigonometri;
uses crt;
var
I:integer;
sinus,cosinus :real;
begin
clrscr;
writeln ('------------------');
writeln ('I sinus cosinus');
writeln ('------------------');
I:=0;
for I :=0 to 360 do
begin
sinus:= sin (I/57.2958);
cosinus:=cos (I/37.2958);
writeln (I:1, sinus:15:2 ,cosinus:15:2);
end;
writeln ('------SUWUN NGGIH-------');
readln;
end.

program diskriminan;
var
A,B,C,D,Z1,Z2,X1,X2 :real;
lagi:char;
begin
lagi:='Y';
while(lagi='Y') or (lagi='y') do
begin
A:=0;
while A=0 do
begin
writeln;
write('nilai A ? ');
readln(A);
end;
write('nilai b ?');
readln(B);
write('nilai c?');
readln(C);
writeln;
(****Rumus Menghitung Nilai Diskriminan****)
if D=0 then
(* Akar Kembar *)
begin
X1:=-B/(2*A);
writeln('Ada 2 akar kembar,yaitu : ');
writeln ('X1=X2= ',X1:9:9);
end
else
begin
if D>0 then
(* Dua akar berlainan *)
begin
X1:=(-B+sqrt(D))/(2*A);
X2:=(-B-sqrt(D))/(2*A);
writeln('Ada 2 akar real berlainan,yaitu: ');
writeln('X1=',X1:9:2);
writeln('X2=',X2:9:2);
end
else
(*Dua Akar Imajiner Berlainan*)
begin
Z1:=-B/(2*A);
Z2:=sqrt(-D)/(2*A);
writeln('Ada 2 akar imaginer berlainan,yaitu :');
writeln('X1=',Z1:9:2,'+',Z2:9:2,'i');
writeln('X2=',Z1:9:2,'-',Z2:9:2,'i');
end
end;
writeln;
write('Nambah Lagi Mas...??^-^ (Y/T)');
readln(lagi);
end;
end.

program jumlah_sudut;
uses crt;
var
sudut,sinus,cosinus,total,arctangen:real;
N,K,I:Integer;
begin
clrscr;
write ('Masukkan Sudut?');
readln(I);
K:=0;
total:=0;
while Kbegin
K:=K+1;
write('Nilai data ke',K,'=');
readln(N);
sinus:=sin (N/57.2958);
cosinus:=cos(N/37.2958);
arctangen:=arctan(N/57.2958);
writeln;
writeln ('Nilai Sinus=',sinus:5:2);
writeln;
writeln ('Nilai Cosinus=',cosinus:5:2);
writeln;
writeln ('Nilai arctangen=','arctan:6:2');
writeln;
readln;
end;
end.

program angsur;
uses crt;
var
angsuran,bunga,nilai_pinjaman,cacah_periode: real;
ulang:char;
begin
repeat
clrscr;
write('besarnya nilai pinjaman:');
readln(nilai_pinjaman);
write('besarnya bunga per tahun (%):');
readln(bunga);
write('cacah priode:');
readln(cacah_periode);
bunga:=bunga/(100*12);
angsuran:=nilai_pinjaman*bunga/(1-1/exp(cacah_periode*LN(1+bunga)));
writeln;
writeln('besarnya angsuran= Rp ',angsuran:10:2);
writeln;
write('mau menghitung lagi(Y/T)?');
readln(ulang);
until (ulang='T' ) or (ulang='t');
end.

Program Tabel_Celcius_Fahrenheit;
uses crt;
var
i:integer;
Celcius,fahrenheit: real;
begin
clrscr;
writeln('--------------------');
writeln('celcius fahrenheit');
writeln('-------------------');
celcius:=0;
for i:=1 to 10000 do
begin
Fahrenheit:=(1.8*celcius)+32;
writeln(celcius:3:2,fahrenheit:9:2);
celcius:=celcius+0.25;
end;
writeln('------------------');
readln;
end.

program volume_balok;
uses crt;
var
lebar,panjang,tinggi,volume: real;
begin;
clrscr;
writeln ('menghitung volume balok');
gotoxy(15,20);write ('masukan nilai lebar:');
readln (lebar);
gotoxy(5,13);write ('masukan nilai panjang:');
readln (panjang);
gotoxy(19,15);write ('masukan nilai tinggi:');
readln(tinggi);
volume:=lebar*panjang*tinggi;
gotoxy(72,55);writeln ('volume balok=',volume:6:2);
readln;
end.