Untuk memudahkan kita dalam mengkonversi karakter ke desimal,Hexa,Biner dan Octal
Cara menggunakannya pun mudah untuk pemula.
Download di sini :
Program Konversi Dari Karakter ke Binner, Hexadecimal, decimal, dan Octal
Untuk memudahkan kita dalam mengkonversi karakter ke desimal,Hexa,Biner dan Octal
Cara menggunakannya pun mudah untuk pemula.
Download di sini :
Menentukan Bilangan Yangdi di input Genap atau Ganjil Pada Alprog Pascal By : Fikom
Program Tugas4_1;
uses crt;
var
i : integer; {Mendeklarasikan Variabel [i] adalah integer}
begin
uses crt;
var
i : integer; {Mendeklarasikan Variabel [i] adalah integer}
begin
Modul Tugas Pemrograman II (Turbo Pascal)
-->
Berdalih membantu teman teman yg belon punya tugas maka gua buat and postig Modul Tugas ini. Meski hanya sebatas dasar dari pengetahuan Pemrograman Turbo Pascal , moga aja bisa membantu namet-namet yang bon menyelsaikan tugasnya.
Oks .........
Menentukan Posisi Indek data via Turbo Basic
mulai :
cls
n=n+1
input "Input bilangan =" bil[n]
input "ada data lagi (y/t)=" lg$
Mencari Nilai Max dan Min
Mencari Nilai Max dan Min
mulai :
CLS
N=N+1
INPUT "BILANGAN =" BIL[N]
INPUT "APAKAH ADA DATA LAGI (Y/T)=" J$
mulai :
CLS
N=N+1
INPUT "BILANGAN =" BIL[N]
INPUT "APAKAH ADA DATA LAGI (Y/T)=" J$
Menentukan Data dan Kewajiban Mahasiswa via Turbo Basic
NPUT "NIM MAHASISWA =" NIM$
INPUT "NAMA MAHASISWA =" NM$
INPUT "JENIS MAHASISWA =" JM$
INPUT "JUMLAH SKS YANG DIAMBIL =" JSKS
DATA :
UK=600000 : SKS=50000 : UP=150000
USKS=SKS*JSKS
SPP = UK+USKS+UP
IF JM$="B" THEN KM$="MAHASISWA BIASA" : BYSPP=SPP
IF JM$="BP" THEN KM$="BEASISWA PENUH" : BYSPP=UP
IF JM$="BS" THEN KM$="MAHASISWA BEASISWA SEBAGIAN" : BYSPP=USKS+UP
PRINT " RINCIAN SPP "
PRINT "========================================================="
PRINT "BIAYA UANG KULIAH POKOK =" UK
PRINT "JUMLAH SKS YG HARUS DIBAYAR =" USKS
PRINT "UANG POLIKNIK =" UP
PRINT "TOTAL DIBAYAR SPP =" SPP
PRINT "========================================================="
PRINT " DATA BIAYA MAHASISWA "
PRINT "========================================================="
PRINT "KODE MAHASISWA =" KM$
PRINT "BIAYA SPP YG WAJIB DIBAYAR MAHASISWA =" BYSPP
Program ascendin and descending melalui Turbo Basic
Program acendin and descending
dim a(10)
cls
print"PROGRAM ASCENDING DAN DISCENDING"
print
print
for i=1 to 10
input"masukan angka: ",a(i)
next i
cls
print"data"
for i=1 to 10
locate 3+i,2:print a(i)
next i
for y=1 to 10-1
for j=1 to 10-1
if a(j) > a(j+1) then
proses = a(j)
a(j) = a(j+1)
a(j+1) =proses
end if
next j
next y
locate 1,14:print"ascending"
for i=1 to 10
locate 3+i,17:print a(i)
next i
for x=1 to 10-1
for j=1 to 10-1
if a(j) < a(j+1) then
proses = a(j)
a(j) = a(j+1)
a(j+1) =proses
end if
next j
next x
locate 1,28:print"discending"
for i=1 to 10
locate 3+i,30:print a(i)
next i
end
dim a(10)
cls
print"PROGRAM ASCENDING DAN DISCENDING"
for i=1 to 10
input"masukan angka: ",a(i)
next i
cls
print"data"
for i=1 to 10
locate 3+i,2:print a(i)
next i
for y=1 to 10-1
for j=1 to 10-1
if a(j) > a(j+1) then
proses = a(j)
a(j) = a(j+1)
a(j+1) =proses
end if
next j
next y
locate 1,14:print"ascending"
for i=1 to 10
locate 3+i,17:print a(i)
next i
for x=1 to 10-1
for j=1 to 10-1
if a(j) < a(j+1) then
proses = a(j)
a(j) = a(j+1)
a(j+1) =proses
end if
next j
next x
locate 1,28:print"discending"
for i=1 to 10
locate 3+i,30:print a(i)
next i
end
.jpg)
