Send Blog

PROGRAM nilai_ujian; USES CRT; VAR nilai : real; nil_huruf : char; BEGIN CLRSCR; WRITE(‘Tulis nilai ujian anda (0-100) : ‘); READLN(nilai); SOUND(1000); DELAY(1000); NOSOUND; IF nilai>=80 THEN nil_huruf:=’A’ ELSE IF nilai>=70 THEN nil_huruf:=’B’ ELSE IF nilai>=60 THEN nil_huruf:=’C’ ELSE IF nilai>=20 THEN nil_huruf:=’D’ ELSE nil_huruf:=’E’; WRITELN(‘Nilai Anda : ‘,nil_huruf); READLN; END.

PROGRAM nilai_maksimal; USES CRT; VAR a, b, max : integer; BEGIN CLRSCR; TEXTCOLOR(lightblue); WRITE(‘Masukkan bilangan pertama : ’);READLN(a); WRITE(‘Masukkan bilangan kedua : ‘);READLN(b); IF a>b THEN max:=a ELSE max:=b; WRITELN(‘Bilangan terbesar adalah ‘,max); READLN; END.

PROGRAM biodata; USES CRT; VAR nama : string[20]; umur : real; lama : integer; nilai : char; BEGIN CLRSCR; WRITE(‘Tulis nama anda : ‘);READLN(nama); WRITE(‘Berapa umur anda : ‘);READLN(umur); WRITE(‘Apa nilai ujian Pascal anda (A-E)? ‘); nilai:=READKEY; WRITELN(‘Terima kasih... Tunggu sebentar, ya...’); lama:=1000; DELAY(lama); WRITELN; WRITELN(‘Nama anda : ‘,nama:20); WRITELN(‘Umur anda : ‘,umur:20:2); WRITELN(‘Nilai anda : ‘,nilai:20); GOTOXY(20,24); WRITE(‘Tekan sembarang tombol’); READLN; END.

MODUL 5 OPEN OFFICE TUJUAN Praktikan dapat mengenal dan menggunakan Open Office. Praktikan dapat mengetahui bagaimana caranya bekerja dengan Open Office. DASAR TEORI OPEN OFFICE.Org Open Office.org adalah sekumpulan aplikasi yang didesain khusus terintegrasi untuk mempermudah dan membantu Anda di tempat kerja, sekolah, rumah dalam menulis suatu dokumen, membuat chart yang dibuat di aplikasi spreadsheet, membuat grafik dan membuat dokumen presentasi. OpenOffice.org, yang juga populer disebut sebagai ooo (atau oo.o) dikembangkan oleh Sun Microsystems. Dari sisi fitur, harus diakui ooo belum bisa dibandingkan dengan Microsoft Office. Namun, sebagian besar pengguna toh hanya membutuhkan sebagian kecil fungsionalitas, yang sudah dipenuhi dengan baik oleh OpenOffice.org. OpenOffice.org datang dengan semua komponen Office yang dibutuhkan untuk bekerja sehari-hari: • Word processing (Writer) • Spreadsheet (Calc) • Presentation (Impress

PROGRAM identitas; USES CRT; VAR nama : string[10]; ipk : real; semester : byte; sex : boolean; BEGIN CLRSCR; nama:=’Habib Fatahillah’; sex:=true; semester:=1; ipk:=3.80; WRITELN(‘Nama saya : ‘, nama); WRITELN(‘True = Laki-laki’); WRITELN(‘False = Perempuan’); WRITELN(‘Jenis kelamin : ‘, sex); WRITELN(‘Semester : ‘, semester,’ (ganjil)’); WRITELN(‘IPK saya = ‘, ipk:0:2); READLN; END.

PROGRAM luas_segitiga; USES CRT; VAR alas, tinggi : integer; luas : real; BEGIN CLRSCR; WRITELN(‘Program Menghitung Luas Segi Tiga’); WRITELN(‘Diketahui :’); WRITE(‘ alas = ‘);READLN(alas); WRITE(‘ tinggi = ‘);READLN(tinggi);                  luas:=1/2*alas*tinggi;                  WRITELN(‘ Phi = ‘,phi);                  WRITELN(‘Maka :’);          WRITELN(‘ Luas Segi Tiga = ‘,luas);                  WRITE(‘ Luas Segi Tiga = ‘,luas:0:0); READLN; END.

PROGRAM luas_lingkaran; USES CRT; CONST phi = 3.14; VAR r : integer; luas : real; BEGIN CLRSCR; WRITELN(‘Program Menghitung Luas Lingkaran’); WRITELN(‘Diketahui :’); WRITE(‘ Jari-jari = ‘);READLN(r);                    luas:=phi*r*r;                   WRITELN(‘ Phi = ‘,phi);                    WRITELN(‘Maka :’);                        WRITELN(‘ Luas Lingkaran = ‘,luas);                   WRITE(‘ Luas Lingkaran = ‘,luas:0:0); READLN; END.

MODUL 3 INSTALLASI DAN PENGENALAN OS UBUNTU (LINUX) TUJUAN Praktikan dapat melakukan instalasi operating system (OS) Linux. Praktikan dapat mengetahui bagaimana caranya mempartisi harddisk dan mengonfigurasi sistem Praktikan dapat mengenal dan menggunakan Linux. Praktikan dapat mengetahui bagaimana caranya bekerja Linux. DASAR TEORI PERSIAPAN INSTALASI Langkah pertama sebelum menginstal Linux adalah mencatat semua informasi yang berhubungan dengan computer yang akan di install. Spesifikasi Hardware Berikut ini spesifikasi hardware minimal untuk menginstal Ubuntu : o Prosesor Pentium I 200 MHz, disarankan minimal Pentium III atau yang setara. o RAM 128 MB, disarankan minimal 256 MB. o Harddisk kosong 1 GB untuk sistem dan swap, disarankan minimal 3 GB. Instalasi semua paket akan mencapai lebih dari 9 GB. o VGA dengan memori 1 MB o Monitor dengan resolusi 800 x 600. Membuat Boot Disk Windows D