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.