membuat program-program dari pascal diantaranya :
1. karakter
program Karakter;
Uses WinCrt;
Var
a:Char;
Begin
Writeln('Tugas Prokom 2 (Karakter)');
Writeln('========================)');
writeln;
Write('Masukkan Sebuah Karakter:'); readln(a);
Case a of
'a','b','c','d','e':writeln('huruf');
'1','2','3','4','5':Writeln('angka');
'-','=','*','+',':':writeln('simbol operasi matematika');
else writeln('tidak dikenal');
end;
End.
2. konversi nilai
program Konversi_Nilai;
uses WinCrt;
Var
a:Byte;
Begin
Writeln('Tugas Prokom 2 (Konversi Nilai)');
Writeln('===============================');
writeln;
Write('Masukkan Nilai=');readln(a);
If a>=86 then write ('Nilai = A') else
if a>=81 then write ('Nilai= AB') else
if a>=71 then write ('Nilai= B') else
if a>=66 then write ('Nilai= BC') else
if a>=61 then write ('Nilai= C') else
if a>=56 then write ('Nilai= CD') else
if a>=51 then write ('Nilai= D') else
write ('Nilai= E');
End.
0 komentar:
Post a Comment