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.