Contoh sederhana turbo pascal

CONTOH PROGRAM SEDERHANA TURBO PASCAL

          Daripada bengong aja ane akan mencoba untuk menshare contoh program sederhana untuk turbo pascal, oke langsung aja ane akan tunjukin bagaimana contoh program sederhana konversi angka ke huruf .

Uses Crt;

Var

nama: string[30];

nim : string[15];

nilai : integer;

begin

Clrscr;

write('Masukkan nama = ');readln(nama);

write('Masukkan nim = ');readln(nim);

write('Masukkan nilai = ');readln(nilai);

Case Nilai of

0..25 : writeln('nilainya = E');

26..39 : writeln('nilainya = D');

40..64 : writeln('nilainya = C');

65..79 : writeln('nilainya = B');

80..100: writeln('nilainya = A');

else

writeln('Tidak ada nilai yang dimaksud');

end;readln;

end.

contohnya adalah jika anda memasukan angka 80 maka output dari program diatas akan menjadi  seperti ini :

 

 Dan jika nilai yang dimasukkan >100 ,misal anda memasukan angka 150 maka output dari program diatas akan menjadi  seperti ini  :

 Demikian posting saya kali ini mohon kritik dan saran dari para pengunjung,,

Sampai jumpa,,:-D