Program Konversi Bilangan Positif Ke Negatif
kali ini program pascal yang akan dibuat adalah konversi bilangan positif ke negatif dimana algoritma perhitunganya bilangan positif yang diinputkan akan dikurangi 2 kali lipat hasil bilangan yang diinput. contoh jika input adalah 5 maka 5 akan dikurangi 2 kali lipat nilai dari 5 yaitu 10. maka 5 -10 = -5. algoritmanya cukup gampang dimengerti. baiklah sekarang langsung saja becoding riang.
Script Program Konversi Bilangan Positif Ke Negatif Pascal
Versi Gambar
Script Coding |
program konversi_postif_ke_negatif;
uses crt;
label input_ulang;
var a,b,c,d : integer;
begin
clrscr;
writeln('Program Pascal Konversi Positif Ke Negatif ');
writeln;
write('Masukkan Angka Positif Yang Diinginkan : ');
readln(a);
b:=a-2*a;
writeln;
writeln('Bilangan Positif ',a,' Setelah dikonversikan menjadi ',b);
readln;
end.
Tampilan Output Program saat dijalankan
Tampilan Program |
Download Program Konversi Positif Ke Negatif
scriptnya ane gak bakal banyak jelasin abis ngak terlalu susah, oh iya ane tadi lupa buat label input_ulangnya jadi itu baris bisa dihapus dan tidak akan mempengaruhi program sehingga bisa juga scriptnya seperti ini
program konversi_postif_ke_negatif;
uses crt;
var a,b,c,d : integer;
begin
clrscr;
writeln('Program Pascal Konversi Positif Ke Negatif ');
writeln;
write('Masukkan Angka Positif Yang Diinginkan : ');
readln(a);
b:=a-2*a;
writeln;
writeln('Bilangan Positif ',a,' Setelah dikonversikan menjadi ',b);
readln;
end.
Silahkan mencoba program ini dan jika tidak berhasil disarankan untuk mendownload program ini lewat mediafire agar ada perbandingan buat anda untuk mempelajari program ini.
Kayaknya b=a*(-1) aja udah cukup
BalasHapus