Home » , » Selection Dalam Pascal

Selection Dalam Pascal

Posted by Kamar Pekick on Monday, 30 April 2012

program selection_berhasil_atau_gagal;        {judul program}
uses crt;                                     {blok program}
var                                           {pendeklarasian variabel}
hasil:integer;                                {variabel dan tipe datanya}
begin                                         {pernyataan}
clrscr;                                       {membersihkan layar}
write('masukan hasil yang anda dapat =');     {menampilkan hasil atau isi 'masukan hasil yang anda dapat' tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama}
readln(hasil);                                {pemasukan data, kursor akan berpindah kebaris selanjutnya setelah diinput dengan menekan enter}
if hasil >50 then                             {seleksi pemilihan kondisi variabel nilai}
writeln('horreee saya berhasil')              {dilaksanakan jika nilai lebih besar dari 50, dan menampilkannya ke layar dengan inputan}
else                                          {jika kondisi tidak terpenuhi,yaitu jika tidak lebih besar dari 50}
writeln('aduuhhh saya gagal');                {dilaksanakan jika nilai lebih kecil dari 50, dan menampilkannya ke layar dengan inputan}
readln;                                       {kursor akan berpindah kebaris selanjutnya setelah diinput dengan menekan enter}

end.                                          {akhir dari program}

Thanks for reading & sharing Kamar Pekick

Previous
« Prev Post

0 komentar:

Post a Comment