Buat Notasi Algoritma beserta flowchartnya dari sebuah program untuk menampilkan mutu huruf dan keterangan dari hasil nilai ujian dengan
ketentuan :
- Jika Nilai >=90, maka mendapat nilai huruf A
- Jika Nilai antara 70 - 89 , maka mendapat nilai huruf B
- Jika Nilai antara 55 - 69 , maka mendapat nilai huruf C
- Jika Nilai antara 46 - 54 , maka mendapat nilai huruf D
- Jika Nilai <=45 , maka mendapat nilai huruf E
Jika Mutu huruf A, B, C diberi keterangan LULUS, selain itu diberi keterangan GAGAL
Algoritma :
Algoritma : Menampilkan gaji pokok dan gaji lembur
Deskripsi :
1.Masukan nama
2.Masukan nilai
3.Tampilkan nama
4.Tampilkan nilai mutu huruf
5.Tampilkan keterangan lulus/gagal
Flowchart :
Jalankan program tersebut dengan bahasa Pascal.
program TugasIf3;
{Pradana Choirun Naziq ;S1 - Teknik Informatika ;Stekom Siliwangi }
uses crt;
Var Nilai :Integer;
Nama : String;
begin
Clrscr;
Writeln('Menampilkan keterangan hasil nilai');
Writeln('======================================');
Write('Masukan Nama = ');ReadLn(nama);
Write('Masukan Nilai = '); ReadLn(nilai);
if (nilai>=90) then
begin
writeln('-------------------------------------------------');
WriteLn('Nama ',nama, ' ', 'Lulus dengan nilai mutu huruf A') ;
end
else
if (nilai >=70) and (nilai <=89) then
begin
writeln('-------------------------------------------------');
WriteLn('Nama ',nama, ' ', 'Lulus dengan nilai mutu huruf B') ;
end
else
if (nilai >=55) and (nilai <=69) then
begin
writeln('-------------------------------------------------');
WriteLn('Nama ',nama, ' ', 'Lulus dengan nilai mutu huruf C') ;
end
else
if (nilai >=46) and (nilai <=54) then
begin
writeln('--------------------------------------------------');
WriteLn('Nama ',nama, ' ', 'Gagal dengan nilai mutu huruf D') ;
end
else
if (nilai <= 45) then
begin
writeln('--------------------------------------------------');
WriteLn('Nama ',nama, ' ', 'Gagal dengan nilai mutu huruf E') ;
end;
Writeln('======================================');
Writeln('SEKIAN DAN TERIMA KASIH');
Writeln('======================================');
Writeln('Kunjungi www.pradanaziq.com');
readln;
end.
Dan hasilnya seperti itu, jika sudah bisa jalan bisa ditambahi variasi sendiri, se imajinasi kalian.
Posting Komentar untuk "Menampilkan nilai mutu huruf menggunakan Pascal"