TUGAS 2 ALGORITMA PEMROGRAMAN (PROGRAM PENENTU GRADE NILAI MENGGUNAKAN PERCABANGAN CASE__OF)

Kali ini ane akan share program command prompt sederhana menggunakan bahasa pascal dengan compiler Borland Delphi 7.
Berikut Flowchart dari program ini :

Langkah -langkah :
1. Buka software Borland Delphi 7
2. Klik File - New - Other - Console Application
3. Ketikkan Coding dibawah ini tanpa « br »  dan « p »  :
program case_of; <br /> <br /> {$APPTYPE CONSOLE} <br /> <br /> uses <br /> SysUtils; <br /> <br /> var <br /> n:integer; <br /> grade,ket:string; <br /> <br /> begin <br /> write (' * Program Penentu Grade Nilai * '); <br /> writeln; <br /> writeln; <br /> writeln; <br /> writeln; <br /> write (' Masukkan nilai anda = '); readln(n);<br /> case n of <br /> 0..25 : <br /> begin <br /> grade:='E'; ket:='Gagal'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 26..55 : <br /> begin <br /> grade:='D'; ket:='Kurang';<br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 56..75 : <br /> begin grade:='C'; ket:='Cukup'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket);<br /> end; <br /> 76..85 : <br /> begin grade:='B'; ket:='Baik'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 86..100 : <br /> begin <br /> grade:='A'; ket:='Istimewa';<br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket);<br /> end; <br /> else writeln(' Nilai yang anda masukkan melebihi batas'); <br /> end; <br /> readln; <br /> end. <br />
4. tekan F9 untuk menjalankan program.
Jreng...... Jreng...... ini dia tampilan programnya :

Okey...... Selamat mencoba dan semoga berhasil.
Mohon maaf jika masih terjadi error. hehehehehe 

TUGAS 1 ALGORITMA PEMROGRAMAN (PROGRAM PENENTU GRADE NILAI)

Kali ini ane akan share program command prompt sederhana menggunakan bahasa pascal.
Dengan compiler Borland Delphi 7.

Cara 1
Algoritma :

1. Start
2. Masukkan nilai anda (n)
3. If n>=0 and n<=25 then grade ='E' If n>=26 and n<=55 then grade ='D' If n>=56 and n<=75 then grade ='C' If n>=70 and n<=85 then grade ='B' If n>85 then grade ='A'
4. Print grade
5. End

Coding :
copy dan paste kan script dibawah ini pada program console di Borland delphi 7. :
<br /> program cara1;<br /> <br /> {$APPTYPE CONSOLE}<br /> <br /> uses<br /> SysUtils;<br /> <br /> var<br /> n:integer;<br /> grade:char;<br /> begin<br /> <br /> writeln(' * (PROGRAM PENENTU GRADE NILAI) *');<br /> writeln;<br /> writeln;<br /> write(' masukkan nilai anda : '); readln(n);<br /> if (n>=0) and (n<=25) then grade:='E'; if (n>=26) and (n<=55) then grade:='D'; if (n>=56) and (n<=70) then grade:='C'; if (n>=71) and (n<=85) then grade:='B'; if (n>85) then grade:='A';<br /> writeln(' Grade anda adalah : ',grade);<br /> readln;<br /> end<br /> .end<br />
Hapus semua "« br /»" karena itu adalah tag html "break" untuk pindah baris atau enter.

berikut tampilan programnya :

Cara 2
Algoritma :

1. Start
2. Masukkan nilai anda (n)
3. If n>85 then grade = 'A' Else
If n>70 then grade = 'B' Else
If n>55 then grade = 'C' Else
If n>25 then grade = 'D' Else
grade = 'E';
4. Print grade
5. End

Coding :
copy dan paste kan script dibawah ini pada program console di Borland delphi 7 :
<br /> program cara2;<br /> <br /> {$APPTYPE CONSOLE}<br /> <br /> uses<br /> SysUtils;<br /> <br /> var<br /> n:integer;<br /> grade:char;<br /> begin<br /> <br /> writeln(' * (PROGRAM PENENTU GRADE NILAI) *');<br /> writeln;<br /> writeln;<br /> write(' masukkan nilai anda : '); readln(n);<br /> if (n>85)then grade:='A' Else<br /> if (n>70)then grade:='B' Else<br /> if (n>55)then grade:='C' Else<br /> if (n>25)then grade:='D' Else<br /> grade:='E';<br /> write(' Grade anda adalah : ',grade);<br /> readln;<br /> end<br /> <br /> .end<br />
Hapus semua "« br /»" karena itu adalah tag html "break" untuk pindah baris atau enter.

berikut Tampilan Programnya :

Okey Gan, Sekian dulu dari ane. Mohon maaf jika ada kekurangan.
Selamat mencoba n semoga berhasil. Hehehehehehe