Program Konvert Nama ke ASCII dengan Pascal

Tugas pertama saya di mata kuliah Matematika Terapan tu saya disuruh membuat program convert dari nama saya ke kode ascii yang memakai bahasa Pascal…tapi ni program gak cumen bisa convert nama saya doank ug,,,nyantai aja…hehe semua nama alias huruf apapun (karakter space juga) yang dimasukan bisa di convert jadi kode ascii….yah saya kira basa-basinya udah cukup ni…hehehe cekidot!!
Program ascii_heksa;
Uses wincrt;
Var
Ch,Ch1   : Char;
Bil,a,i : integer;
procedure heksa;
var
Heks : string;
h : integer;
begin
Heks :=”;
repeat
h := Bil mod 16;
case h of
0: Heks:= ’0′ + Heks;
1: Heks:= ’1′ + Heks;
2: Heks:= ’2′ + Heks;
3: Heks:= ’3′ + Heks;
4: Heks:= ’4′ + Heks;
5: Heks:= ’5′ + Heks;
6: Heks:= ’6′ + Heks;
7: Heks:= ’7′ + Heks;
8: Heks:= ’8′ + Heks;
9: Heks:= ’9′ + Heks;
10: Heks:= ‘A’ + Heks;
11: Heks:= ‘B’ + Heks;
12: Heks:= ‘C’ + Heks;
13: Heks:= ‘D’ + Heks;
14: Heks:= ‘E’ + Heks;
15: Heks:= ‘F’ + Heks;
end;
Bil := Bil div 16;
until Bil = 0;
writeln(‘Kode Heksa : ‘,Heks);
end;
procedure cover;
begin
writeln(‘*********************************************************’);
writeln(‘*     Program Matematika Terapan Kode ASCII     *’);
writeln(‘*                                                                              *’);
writeln(‘*                  POLITAMA SURAKARTA                  *’);
writeln(‘*********************************************************’);
end;
Begin
repeat
clrscr;cover;
write(‘     Berapa Karakter Nama Anda (termasuk spasi) : ‘);
readln(i);
clrscr;
writeln(‘     Silahkan tulis nama anda :’);
writeln;
for a := 1 to i do
begin
write(a,’.’);
Ch  := Readkey;
Bil := Ord(Ch);
write(‘ ‘,Ch);
write(‘   Karakter : ‘,Ch,’  ==>  ‘);
write(‘Kode ASCII : #’,Bil,’  ==>  ‘);
heksa;
end;
write(‘Coba Lagi ( Y/T ) = ‘);
repeat
Ch1 := Readkey;
Ch1 := Upcase(Ch1);
write(‘ ‘,Ch1);
Until Ch1 in ['Y','T'];
Until Ch1 = ‘T’;
writeln;
write(‘   ——* Matur Suwun *——’);
end.

More about → Program Konvert Nama ke ASCII dengan Pascal

Program Matriks dengan Pascal

Tugas Matematika terapan saya yang kedua tu disuruh buat program perhitungan matriks pake Pascal… yaps kalau sama ama tugas kamu.. ya tinggal COPAS aja dah… okay!! Cekidot…

program matrik;
uses wincrt;
type data = array[1..5,1..5] of integer;
var
matrikI,matrikII : data;
baris,kolom,pil : integer;

procedure isi;
var
i,j :integer;
begin
writeln(‘Penentuan ORDO MATRIK I’);
write(‘Masukan banyak baris matrik I : ‘);readln(baris);
write(‘Masukan banyak kolom matrik I : ‘);readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin gotoxy(j*10,i*5);
readln(matrikI[i,j]);
end;
clrscr;
writeln(‘Penentuan ORDO MATRIK II’);
write(‘Masukan banyak baris matrik II : ‘);
readln(baris);
write(‘Masukan banyak kolom matrik II : ‘);
readln(kolom);
for i:=1 to baris do
for j:=1 to kolom do
begin gotoxy(j*10,i*5);
readln(matrikII[i,j]);
end;
end;

procedure jumlah(a1,a2 : data);
var
hasil:data;
i,j:integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=a1[i,j]+a2[i,j];
end;
clrscr;
writeln(‘Hasil Penjumlahan’);
for i:=1 to baris do
for j:=1 to kolom do
begin gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;

procedure kurang(a1,a2 : data);
var
hasil: data;
i,j: integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=a1[i,j]-a2[i,j];
end;
clrscr;
writeln(‘Hasil Pengurangan’);
for i:=1 to baris do
for j:=1 to kolom do
begin gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;

procedure kali(a1,a2 : data);
var
hasil:data;
i,j,z:integer;
begin
for i:=1 to baris do
for j:=1 to kolom do
begin
hasil[i,j]:=0;
for z:=1 to baris do
hasil[i,j]:=hasil[i,j]+matrikI[i,z]*matrikII[z,j];
end;
if matrikI[i,z] <> matrikII[z,j] then
begin
clrscr;
writeln(‘maaf data yang anda masukan tidak sesuai prosedur perkalian!’);readln;
end
else
if matrikI[i,z] = matrikII[z,j] then
begin
clrscr;
writeln(‘Hasil perkalian’);
for i:=1 to baris do
for j:=1 to kolom do
begin gotoxy(j*10,i*5);
write(hasil[i,j]);
end;
end;
end;

begin
writeln(‘MENU’);
writeln(‘(1) Penjumlahan Matrik’);
writeln(‘(2) Pengurangan Matrik’);
writeln(‘(3) Perkalian Matrik’);
write(‘Pilihan = ‘);
readln(pil);
clrscr;

case pil of
1 :begin
isi;
jumlah(matrikI,matrikII);
end;
2:begin
isi;
kurang(matrikI,matrikII);
end;
3:begin
isi;
kali(matrikI,matrikII);
end;
end;
end.

More about → Program Matriks dengan Pascal

Program Menghitung Pangkat dengan Pascal

Nah ujian mata kuliah algoritma pemrograman pascal kali ini temen2 disuruh buat program pangkat… ya ni post sekedar buat share aja ya…buat yang mau belajar buat ujian besok (termasuk saya),,,he tapi gak tau juga besok saya dikasih tugas buat bikin program apa…. sapa tau sama,,,oke… cekidot..
uses wincrt;
var a,n:integer;
function pangkat(x:integer):real;
var hasil:real;
begin
hasil:=exp(x*ln(a)); {exp digunakan untuk menghitung nilai pangkat ke n}
pangkat:=hasil;
end;
begin
clrscr;
write(‘Masukkan angka:’);readln(a);
write(‘Dipangkatkan berapa ?’);readln(n);
write(‘Jadi’,a,’^',n,’ adalah ‘,pangkat(n):2:0);
readln;
end.

More about → Program Menghitung Pangkat dengan Pascal

Program Akar Persamaan Kuadrat dengan Pascal

Ni sekedar buat belajar bareng aja yah…..ea itung2 ni Program Persamaan Kuadrat buat persiapan besok ujian… hehhe jangan lupa koment… sapa tau ada yang salah…tapi biasanya kalau koment programnya jadi bener kok.. haha Monggo…
Program PersamaanKuadrat;
uses wincrt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln(‘======================================’);
writeln(‘Menghitung akar-akar persamaan kuadrat’);
writeln(‘======================================’);
write(‘Masukkan nilai a=’);readln(a);
write(‘Masukkan nilai b=’);readln(b);
write(‘Masukkan nilai c=’);readln(c);
d:=(b*b) – (4*a*c);
if d < 0 then writeln(‘tidak ada akar real’)
else
begin
x1:=(-b + (sqrt(d)))/(2*a);
x2:=(-b – (sqrt(d)))/(2*a);
writeln(‘x1 =’,x1:6:2);
writeln(‘x2 =’,x2:6:2);
end;
readln;
end.

Jangan lupa komentarnya ya,,,,sapa tau ni program ada yang masih bisa disempurnain..he

More about → Program Akar Persamaan Kuadrat dengan Pascal

Program Menghitung Nilai Rata-rata, Nilai Tertinggi dan Terendah

Ni program Menghitung Nilai rata-rata, nilai tertinggi dan nilai terendah,,,
saya udah keabisan kata-kata buat ngomong di pendahuluan ini… hedew…. langsung aja gan…. Monggo..

uses wincrt;
var a, siswa : integer;
nilai, total, tinggi, rendah, rata : real;

begin  writeln(‘===========================================================’);
writeln(‘Program Hitung Nilai Rata-rata, Nilai Tertinggi & Terendah’);
writeln(‘——————-By: GudangTugasku———————–’);
writeln(‘===========================================================’);
total := 0;
write (‘jumlah siswa : ‘); readln (siswa);
writeln;
for a := 1 to siswa do
begin
write (‘nilai siswa ke ‘,a,’ : ‘); readln (nilai);
total := total + nilai;
if a = 1 then begin
tinggi := nilai;
rendah := nilai;
end
else begin
if nilai > tinggi then tinggi := nilai
else begin
if nilai < rendah then rendah := nilai;
end;
end;
end;
rata := total / siswa;
writeln;
writeln (‘nilai terendah    : ‘, rendah :1:2);
writeln (‘nilai tertinggi   : ‘, tinggi :1:2);
writeln (‘rata-rata         : ‘,rata :1:2);
end.

More about → Program Menghitung Nilai Rata-rata, Nilai Tertinggi dan Terendah