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.

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.