Categories: Program Pascal

Program Pascal Negatif Dan Positif

Sore guys, kegiatan pascal bilangan negatif dan positif ini aku posting untuk memacu semangat becoding terus , kali ini aku akan membagikan script untuk memilih bilangan faktual atau negatif dan menyerupai yang kita ketahui bahwa setiap bilangan yang dibawah angka 0 yaitu negatif dan lebih dari 0 yaitu bilangan positif. program pascal ini mungkin masih kurang tepat dan mungkin teman-teman sanggup membuat program bilangan faktual dan negatif ini menjadi lebih baik lagi. ok, pribadi aja di cek sricpt pascal nya di bawah ini

kegiatan negatifpositif;
uses crt;
var
   a : integer;
begin
   clrscr;
   write(‘Masukkan Angka : ‘);
   readln(a);
   if a > 0 then
   write(a,’ Adalah Bilangan Positif ‘);
   else if a < 0 then
   write(a,’ Adalah Bilangan Negatif ‘);
   else
   write(a, ‘ Adalah Bilangan Nol ‘);
   readln;
end.

Tampilan Output Program :

Program Bilangan Positif Dan Negatif

Penjelasan script : pada kegiatan pascal ini aku memakai penyeleksian kondisi if-else if – else dan algoritmanya yaitu sebagai berikut angka < (kurang dari ) 0 yaitu bilangan negatif dan angka > 0 ( kurang lebih ) 0 yaitu bilangan faktual dan kalau angka tersebut = 0 maka nilainya yaitu bilangan 0 alasannya yaitu 0 yaitu angka netral ( bukan negatif maupun faktual ).

Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.

Ahmad Code