[Pascal] Program Kelulusan

ok, kali ini saya akan memberikan ilmu yg saya dapat ketika bimbingan pada hari sabtu lalu kwkwkwkwk :v.
sebelumnya saya mengucapkan terima kasih dulu kepada kang yuda yg telah mengajarkan cara menggunajan IF ELSE di pascal :D

ok langsung saja ke codenya, (kurang lebih seperti ini codenya, karena kemarin lupa bawa flashdisk jadi gk di copy codenya)

program kelulusan;
uses wincrt;
var nama,kelas:string;
    nilai:integer;

begin
writeln('+---Program Kelulusan---+');
write('Nama  : ');readln(nama);
write('Kelas : ');readln(kelas);
write('Nilai : ');readln(nilai);
clrscr;
writeln('+----------------------------------------+');
writeln(' Saya menyatakan bahwa siswa yang bernama ');
writeln(' Nama  : ',nama);
writeln(' Kelas : ',kelas);
writeln(' Nilai : ',nilai);
writeln(' Dinyatakan ');
if nilai>80 then
writeln(' ------------------LULUS----------------- ')
else if nilai>=60 then
writeln(' --------------HARUS REMEDIAL--------------- ')
else if nilai<60 then
writeln(' ---------------TIDAK LULUS-------------- ')
end.

ok code di atas adalah code untuk menentukan nilai kelulusan, bila kita input nilai lebih <60 maka akan keluar output "TIDAK LULUS", apabila kita input nilai >=60 maka akan keluar output "HARUS REMEDIAL", dan apabila kita input nilai ">80" maka akan keluar output "LULUS"

ini contohnya:

contoh menginputkan nilai <60 (lebih kecil dari 60)

contoh menginputkan nilai >=60 (lebih besar atau sama dengan 60)

contoh menginputkan nilai >80 (lebih besar dari 80)

sekian tutorial dari saya :D




regards: Poticous

[Python] Segitiga bolak balik

sebenarnya artikel ini sudah lama saya post di forum tercinya :D code ini dibuat dengan menggunakan bahasa pemograman Python. Code ini adalah klonengan dari codenya om Chentiz yg di buat dengan menggunakan bahasa pemograman C++, saya posting kembali di blog ini karena blog ini udah lama gk update post terbaru :D, ok cukup saja basa basinya sekarang kita lanjut ke codenya

#!/usr/bin/python

n = input("Berapa bintang omz ? ");
a = 0
b = 0
c = n
while(1<=n):
    print " " * (b) + "*" * (n+1) + "*" + "*" * (n-1)
    n = n-1
    b = b+1
print " " * c + "*"
while(1<=c):
    print " " * (c-1) + "*" * (a+1) + "*" + "*" * (a+1)
    c = c-1
    a = a+1

apabila code di atas dijalankan maka akan mengeluarkan output sebagai berikut

Regards: Poticous

cuman bisa ngakak

ketika saya sedang nongkrong di soutbox eh tiba-tiba beg3nk newb1e yg ngeshout "asem situs sby kena lagi http://www.presidentsby[dot]info/"

otomatis saya kaget kan baru kemarin situs sby kena deface masa udah kena lagi -_-, karena penasaran saya whois tuh domain http://who.is/whois/presidentsby[dot]info

dan ternyata domain tersebut terdaftar oleh

Registrant Contact Information:
    Name: sund4nymouz sund4nymouz
    Organization: null
    Address 1: Jl Jalan
    City: Cirebon
    State: Jawa Barat
    Zip: 45611
    Country: ID
    Phone: +1.0899737078
    Email: @yahoo.com

dan ternyata cuman boongan di deface :D dan domain tersebut terdaftar di intuit (domain gratis :v), dan saya coba cari dimana hosting web tersebut

dan ternyata

presidentsby.info.    3600    IN    A    216.239.32.21

dari A record di atas dapat di ketahui web tersebut menggunakan blogspot karena 216.239.32.21 adalah A record dari blogspot :D


dari tulisan di atas sudah terbukti bahwa situs presidentsby[dot]info adalah palsu sedangkan yg asli beralamat di presidensby.info jadi bedanya hanya di penulisan "president" sama "presiden"

Note: Artikel ini hanya untuk refresing aja, gk ada unsur  untuk menjatuhkan seseorang atau komunitas