setelah kemarin ngepost tentang Menghitung Luas Segitiga dengan C++ maka sekarang akan mencoba ngeshare tentang mencari luas persegi panjang pada program C++
langsung ke TKP :)
Coding Program
Hasil RUN
semoga berhasil ^_^
Tampilkan postingan dengan label Pemograman. Tampilkan semua postingan
Tampilkan postingan dengan label Pemograman. Tampilkan semua postingan
Lagi-lagi dihadapkan dengan program. Setelah kita sibuk dengan Pascal sekarang berganti dengan program C++. Untuk awal** ini yang dapat ane bagi adalah program menghitung luas segitiga dan program menghitung pangkat sebuah angka.
Monggo di cek aja langsung
A. Program menghitung luas segitiga
hasil RUN
B. Program menghitung pangkat
Hasil RUN
selamat mencoba . smgha berhasil ^_^
Salam hangat buat semuanya. Sekarang kami akan mencoba memberi scrip " mengkomentari " suatu bilangan pada program PASCAL. langsung saja ke TKP ^_
program ini bekerja sesuai perintah yang kita masukkan pada program itu sendiri. kami memberi perintah seperti ini :
1. Negatif jika nilai nya kurang dari nol
2. Positif jika nilainya lebih dari nol
3. Nol jika nilai nya sama dengan nol
program PengomentarBilangan ;
x : integer ;
begin
write ( 'Masukkan sebuah bilangan : ' ) ; readln (x) ;
if x = 0 then
write ( 'Bilangan Tersebut adalah Nol' )
else
if x > 0 then
write ( 'Bilangan Tersebut adalah Positif')
else
write ( 'Bilangan Tersebut adalah Negatif' ) ;
(* endif *)
(* endif *)
end.
jika mengalami DEBUG coba cek kembali scrip anda ^_^
karena lagi-lagi semangatnya "ngutak atik" PASCAL , ini ada lagi cara mengkomentari huruf abjad dan menentukan urutannya. tanpa basa basi lagi ini scripnya
Program ini menggunakan fungsi ORD pada pascal :
Program UrutanHuruf;
uses wincrt;
var
x : char;
begin
readln(x);
if (ord(x)>=65) and (ord(x)<97)then
begin
writeln ( '====================== ') ;
writeln ( 'Huruf Kapital');
write ( 'Huruf Ke ',ord(x)-64) ;
writeln ( ' Dalam Abjad');
write ( '======================' ) ;
end
else
begin
writeln ( '======================' ) ;
writeln ( 'Huruf Non Kapital');
write ( 'Huruf Ke ',ord(x)-96 ) ;
writeln ( ' Dalam Abjad');
writeln ( '======================' ) ;
end;
end.
jika di RUN hasilnya adalah sebagai berikut :
hasilnya :Program UrutanHuruf;
uses wincrt;
var
x : char;
begin
readln(x);
if (ord(x)>=65) and (ord(x)<97)then
begin
writeln ( '====================== ') ;
writeln ( 'Huruf Kapital');
write ( 'Huruf Ke ',ord(x)-64) ;
writeln ( ' Dalam Abjad');
write ( '======================' ) ;
end
else
begin
writeln ( '======================' ) ;
writeln ( 'Huruf Non Kapital');
write ( 'Huruf Ke ',ord(x)-96 ) ;
writeln ( ' Dalam Abjad');
writeln ( '======================' ) ;
end;
end.
jika di RUN hasilnya adalah sebagai berikut :
A
===============
Huruf Kapital
Huruf Ke 1 Dalam Abjad
===============
a
===============
Huruf Non Kapital
Huruf Ke 1 Dalam Abjad
===============
catatan :
tanda " =========== " hanya sebagai hiasan saja tanpa tanda itupun bisa atau mau diganti dengan tanda " ******** " atau yang lainnya. jika anda mengalami DEBUG maka coba cek kembali scrip karena kurang tanda " ; " sangat berpengaruh .
wahhh ,., pertama kali belajar pemograman memang sulit untuk dimengerti tetapi setelah di pelajari akhirnya bisa juga walaupun masih newbie ,., hehehee
nah ini saya kasih scripnya smogha bermanfaat
langsung ngeluncur aja
program ini menggunakan PASCAL
program tahunkabisat ;
var
tahun : integer ;
begin
write ('masukkan tahun : ') ; readln (tahun) ;
if tahun mod 100 = 0 then
begin
if tahun mod 400 = 0 then
writeln ('Tahun Kabisat')
else
writeln ('Bukan Tahun Kabisat') ;
end
else
begin
if tahun mod 4 = 0 then
writeln ('Tahun Kabisat')
else
writeln ('Bukan Tahun Kabisat') ;
end;
end.
bila di RUN hasilnya sebagai berikut dan jika anda mengalami DEBUG mohon cek kembali scripnya ^_^
Hasilnya :
masukkan tahun : 2000
Tahun Kabisat
masukkan tahun : 2001
Bukan Tahun Kabisat
