Tugas 4 Algoritma Pemrograman Pascal Menggunakan Record

Pada Tugas 4 dalam MK Algoritma Pemrograman Kebetulan saya dan teman-teman mendapatkan tugas membuat aplikasi Kartu KHS Mahasiswa berikut sedikit screenshot gambar aplikasi yang saya buat dengan Bahasa Pemrograman Pascal dan Compiler GPC di Linux. Untuk sourcecodenya akan saya upload setelah tanggal 20 Desember karena jika ada kode yang sama antar kelompok maka nilai akan di bagi.. jadi tunggu aja ya kodenya. Thanks….

GNU Pascal Compiler

GNU Pascal Compiler

untuk sharing dan tanya jawab bisa beri komentar disini atau lewat email : gadzata@gmail.com

NB : Untuk Mengetahui Nilai A = 4 atau B = 3.5 bisa dilihat di Kontrak Kuliah, Sedangkan untuk Jumlah SKS minimal yang diambil pada Semester berikutnya dilihat dari nilai IP dan untuk mengetahui cara menentukan jumlah SKS minimal yang diambil pada semester berikutnya bisa dilihat di buku panduan Akademik <Sumber : email dari : noor.ifada@if.trunojoyo.ac.id>

Konversi Bilangan dengan PASCAL

Ini adalah contoh beberapa listing program dengan menggunakan bahasa PASCAL untuk konversi bilangan semoga bermanfaat, tutorial ini saya ambil dari Mas Hela Yudha :

PROGRAM KONVERSI_BILANGAN;
{AUTHOR: HELA YUDA BUANA, MANAJEMEN INFORMATIKA, GUNADARMA}
USES WINCRT;
VAR
A,F,Z,W:STRING;

B,D,N,M,I:LONGINT;

C,J,K,E,G,H,X,Y,O:INTEGER;
PILIHAN :BYTE;
BEGIN
CLRSCR;
GOTOXY(10,2);WRITELN (‘ MASUKAN PILIHAN KONVERSI : ‘);
GOTOXY(10,4);WRITELN (‘1.HEX TO DESIMAL’);
GOTOXY(10,6);WRITELN (‘2.OKTAL TO DESIMAL’);
GOTOXY(10,8);WRITELN (‘3.BINER KE DESIMAL’);
GOTOXY(10,10);WRITELN(‘0.SELESAI’);
PILIHAN :=9;
WHILE (PILIHAN <0) OR (PILIHAN>3) DO
BEGIN
GOTOXY(10,20); WRITE (‘MASUKAN PILIHAN KAMU : ‘); READLN(PILIHAN);
END;
CLRSCR;
CASE PILIHAN OF
1:BEGIN
WRITE(‘MASUKAN NILAI HEXADECIMAL= ‘);
READLN(A);
B:=LENGTH(A);M:=0;E:=1;X:=34;Y:=3;
FOR C:= B DOWNTO 1 DO
BEGIN
F:=COPY(A,E,1);
IF (F=’A’) OR (F=’A’) THEN F:=’10′;
IF (F=’B’) OR (F=’B’) THEN F:=’11′;
IF (F=’C’) OR (F=’C’) THEN F:=’12′;
IF (F=’D’) OR (F=’D’) THEN F:=’13′;
IF (F=’E’) OR (F=’E’) THEN F:=’14′;
IF (F=’F’) OR (F=’F’) THEN F:=’15′;
VAL(F,J,K);
H:=C-1;I:=1;
FOR G:=H DOWNTO 1 DO
BEGIN
I:=I*16;
END;
D:=J*I;M:=M+D;E:=E+1;

END;
WRITE(‘UNTUK KONVERSI HEXA TO DECIMAL TEKAN ENTER……. ‘);READLN;
CLRSCR;
WRITE(‘NILAI DECIMAL =’,M);
READLN;
END;
2: BEGIN
WRITE(‘MASUKAN NILAI OKTAL= ‘);
READLN(A);
B:=LENGTH(A);M:=0;E:=1;X:=34;Y:=3;
FOR C:= B DOWNTO 1 DO
BEGIN
F:=COPY(A,E,1);
VAL(F,J,K);
H:=C-1;I:=1;
FOR G:=H DOWNTO 1 DO
BEGIN
I:=I*8;
END;
D:=J*I;M:=M+D;E:=E+1;
END;
WRITE(‘UNTUK KONVERSI OKTAL TO DESIMAL PRESS ENTER……’);READLN;
CLRSCR;
WRITE(‘NILAI DECIMAL =’,M);
READLN;
END;
3: BEGIN
WRITE(‘MASUKAN NILAI BINER= ‘);
READLN(A);
B:=LENGTH(A);M:=0;E:=1;X:=34;Y:=3;
FOR C:= B DOWNTO 1 DO
BEGIN
F:=COPY(A,E,1);
VAL(F,J,K);
H:=C-1;I:=1;
FOR G:=H DOWNTO 1 DO
BEGIN
I:=I*2;
END;
D:=J*I;M:=M+D;E:=E+1;
END;
WRITE(‘UNTUK KONVERSI BINER TO DECIMAL PRESS ENTER…..’);READLN;
CLRSCR;
WRITE(‘NILAI DECIMAL =’,M);
READLN;
END;
END;
END.

Contoh Jawaban Tugas 4 PV

setelah pulang dari kuliah Bahasa Inggris dan Fisika,,, enaknya ngapain ya,,, eh.. ngerjakan Tugas PV aja ah,,,

saya tidak begitu mahir dalam pemrograman komputer dan juga dalam penguasaan bahasa inggris, saya cuma seorang mahasiswa biasa,  jadi apabila ada yang salah dalam mengartikan atau memahami soal tolong diperbaiki lagi ya teman-teman,,,,

oiza untuk yang nomer 6 tidak wajib dikerjakan karena berupa program / aplikasi

Teman-teman berikut contoh tugas PV yang telah saya kerjakan silahkan di download dibawah ini  :

tugasPV4

NB : untuk  tulisan yang saya blok dengan warna kuning itu jawabannya,,, dan yang tidak berarti soalnya,,,,

untuk yang mata kuliah APLRO nya Bu Noorifada jangan lupa ya handout matakuliahnya untuk pertemuan ke 6 dan ke 7 didownload di blognya bu noorifada,,, Besok materinya tentang “LOOPING [Perulangan]” dipelajari dulu za….. biar pas kuliah enak,,,,  

Operasi Matematika pada VB

Operator Bilangan

Operator
Gunanya
Format
Contoh
^
Pangkat
x ^ y
3 ^ 2 =9
Negatif
– y
– 9
*
Perkalian
x * y
3 * 2 = 6
/
Pembagi real
x / y
5 /2 = 2.5
\
Pembagi Integer
x \ y
5 / 2 = 2
mod
Modulo (sisa pembagian)
x mod y
5 mod 2 = 1
+
Tambah
x +y
2 + 4 = 6
Kurang
x – y
4 -2 = 2

Fungsi Matematik Internal
VB menyediakan fungsi matematika siap pakai untuk manipulasi variabel.

Fungsi Contoh Penjelasan
Abs(x) a = abs(-32) ‘a=32 nilai absolut x
Atn(x) Nilai arcus tangent x x dalam radian : degree = radian * 180/phi
Cos(x) Nilai cosinus x x dalam radian
Exp(x) Nilai exponensial x
Fix(x) fix(3.2) = 3

fix(-3.2) = -3

mencari integer bilangan pecah, untuk bilangan negatif; mencari bilangan pertama > x
Int(x) int(5.4) = 5

int(-5.4) =-6

Bilangan negatif; mencari bilangan pertama <=x
Log(x) nilai natural log x
Rnd(x) 0 <= hasil random <1

nilai x menentukan hasil random

sebelumnya gunakan perintah Randomize untuk memastikan bahwa hasil Rnd(x) selalu beda
Sgn(x) menghasilkan :

1 bila x > 0

0 bila x = 0

-1 bilaa x < 0

Sin(x) A = SQR(16) ‘A=4

A = SQR(-16) ‘error

nilai cosinus x dalam radian
Sqr(x) Akar bilangan x
Tan(x) Q = Tan(45*phi/180) ‘Q=1 nilai tangent x dalam radian

phi=3.141592653589732

Derifat Fungsi Matematika
Fungsi matematika yang tidak ada dapat diderifasi dari fungsi yang tersedia.

Fungsi Derifat Sepadan
Secant Sec(X) = 1 / Cox(X)
Cosecant Cosec(X) = 1 / Sin(X)
Cotangent Cotan(X) = 1 / Tan(X)
Inverse Sinus Arcsin(X) = Atn(X / Sqr(-X * X +1))
Inverse Cosinus Arcos(X) = Atn( -X / Sqr(-X * X +1)) + 2 * Atn(1)
Inverse Secant Arsec(X) = 2 * Atn(1) – Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cosecant Arccosec(X) = Atn(Sgn(X) / Sqr(X * X -1))
Inverse Cotangen Arccotan(X) = 2 * Atn(1) – Atn(X)
Hyperbolic Sinus HSin(X) = (Exp(X) – Exp(-X)) / 2
Hyperbolic Cosinus HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant HCosec(X) = 2 / (Exp(X) – Exp(-X))
Hyperbolic Cotangent HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))
Inverse Hyperbolic Sinus HArcsin(X) = Log(X + Sqr(X * X + 1)
Inverse Hyperbolic Cosinus HArccos(X) = Log(X + Sqr(X * X – 1)
Inverse Hyperbolic Tangent HArctan(X) = Log(1 + X) / (1 – X)) / 2
Inverse Hyperbolic Secant HArcsec(X) = Log((Sqr(-X * X +1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log(Sgn(X) * Sqr(X * X +1) + 1) / X)
Inverse Hyperbolic Cotangent HArcotan(X) = Log((X + 1) / (X – 1)) / 2
Logaritgm ti base N LogN(X) = Log(X) / Log(N)

Fungsi Manipulasi Bilangan
VB mempunyai fungsi untuk memanipulasi data numerik sebagai berikut :
Round : membulatkan bilangan cacah dengan jumlah desimal tertentu
MyValue = Round(33.4549, 2) ‘hasil 33.45
MyValue = Round(33.455, 2) ‘hasil 33.46
MyValue = Round(33.456, 2) ‘hasil 33.46
Val : menghasilkan bilangan numerik dari suatu variabel string
MyValue = Val(“2457”) ‘hasil 2457
MyValue = Val(“2 4 5 7”) ‘hasil 2457
MyValue = Val(“24 and 57”) ‘hasil 24
Str : menghasilkan variabel string (Variant) dari ekspresi numerik
MyString = Str (459) ‘hasil “459”
MyString = Str (-459.65) ‘hasil “-459.65”
MyString = Str (459.001) ‘hasil “459.001”
Hex : menghasilkan nilai hexadesimal dari suatu bilangan
MyHex = Hex(5) ‘hasil 5
MyHex = Hex(10) ‘hasil A
MyHex = Hex(459) ‘hasil 1CB
Oct : menghasilkan nilai octal dari setiap bilangan
MyOct = Oct(4) ‘hasil 4
MyOct = Oct(8) ‘hasil 10
MyOct = Oct(459) ‘hasil 713