PROGRAM MENGHITUNG LUAS DAN KELILING :
write('Masukkan lebar = ');
readln(l);
writeln;
writeln('PILIHAN');
writeln('1. Menghitung Luas');
writeln('2. Menghitung Keliling');
writeln('3. Menghitung Luas dan Keliling');
write('Masukkan pilihan = ');
readln(pil);
writeln;
IF pil = 1 THEN
writeln('Maka Luas Persegi Panjang = ',p*l:0:2)
ELSE IF pil = 2 THEN
writeln('Maka Keliling Persegi Panjang = ',2*(p+l):0:2)
ELSE IF pil = 3 THEN
BEGIN
writeln('Maka :');
writeln('Luas Persegi Panjang = ',p*l:0:2);
writeln('Keliling Persegi Panjang = ',2*(p+l):0:2);
END
ELSE
writeln('Pilihan yang Anda masukkan salah!');
readln;
End.
PROGRAM KONVERSI NILAI :
PROGRAM IFXE;
USES crt;
VAR
huruf:char;
nilai:integer;
BEGIN
clrscr;
writeln('PROGRAM KONVERSI ANGKA KE HURUF');
writeln('-------------------------------');
writeln('1. Nilai >=90 = A');
writeln('2. Nilai >=80 = B');
writeln('3. Nilai >=70 = C');
writeln('4. Nilai >=60 = D');
writeln('5. Nilai < 60 = E');
writeln('-----------------');
write('Masukkan nilai angka : ');readln(nilai);
IF nilai > 89 THEN
huruf:='A'
ELSE IF nilai > 79 THEN
huruf:='B'
ELSE IF nilai > 69 THEN
huruf:='C'
ELSE IF nilai > 59 THEN
huruf:='D'
ELSE
huruf:='E';
writeln;
writeln('Maka,');
writeln('Nilai angka = ',nilai);
writeln('Nilai huruf = ',huruf);
readln;
END.
