Posted by : Sepraha
Senin, 23 Februari 2015
Hallo Agan dan Aganwati yang masih anteng menggeluti dunia pemograman hehe Jumpa lagi bersama mesy disini *loh ngaco haha. Oke langsung aja ya keburu ngantuk dan kriuk bacanya o.O. Disini saya mau ngasih contoh program yang pake Struktur Kontrol Pemilihan atau branching tapi pake bahasa pascal. Ini tuh sebenernya pemecahan dari studi kasus praktikum yang dikasih dosen di kampus hehe awal mulanya dikasih flowchart untuk kemudian dipecahkan bagaimana programnya. Daaaaan tarakdungceees ini dia kodeprogramnya gan.
program praktikum;
uses crt;
label inputbiodata,inputnilai;
var nim,nama,jurusan:string;
tugas,uts,uas:integer;
nilai:real;
grade:char;
begin
inputbiodata:
clrscr;
write('NIM : ');readln(nim);
write('Nama : ');readln(nama);
write('Jurusan : ');readln(jurusan);
if (nim<>'') AND (nama<>'') AND (jurusan<>'') then
begin
goto inputnilai;
end
else
begin
writeln('Isi data kembali');
goto inputbiodata;
end;
inputnilai:
write('Tugas : '); readln(tugas);
write('UTS : '); readln(uts);
write('UAS : '); readln(uas);
nilai := (tugas+uts+uas)/3;
if nilai>90 then
begin
grade := 'A';
end
else if nilai>80 then
begin
grade := 'B';
end
else if nilai>70 then
begin
grade := 'C';
end
else
begin
grade := 'D';
end;
writeln('NIM : ',nim);
writeln('Nama : ',nama);
writeln('Jurusan : ',jurusan);
writeln('Nilai : ',nilai:3:2);
writeln('Grade : ',grade);
readkey;
end.
Oke, itu yang bisa saya share dihari ini, semoga kedepan saya tidak ketemu simalas yang membuat malas. Sekian gan semoga bermanfaat :D
Related Posts :
- Back to Home »
- PASCAL »
- Contoh Program Penggunaan Struktur Kontrol Pemilihan (Branching) di Pascal
![](https://resources.blogblog.com/img/icon18_edit_allbkg.gif)