Follow Us @soratemplates

Saturday, 14 November 2009

ASAL TANAH KEMBALI KE TANAH


"ASAL TANAH KEMBALI KE TANAH"

Saya merindui bahasa. 'Cerpen' merupakan genre terawal yang saya ceburi sejak tahun 2003. Namun, sejak sekian lamanya. Saya telah meninggalkannya dan beralih ke genre 'Sajak'. Tambahan lagi, selama beberapa tahun ini saya banyak belajar bahasa baharu, iaitu Bahasa Peringkat Tertinggi (high-level language)..Hehe..Ini adalah bahasa yang difahami oleh Komputer.

//CONTOH HIGH-LEVEL LANGUAGE

program cel;
uses crt;
var

num1 : real;
num2 : real;
oper : char;
t : char;
total : real;

begin

clrscr;
repeat

begin

writeln('enter num');
readln(num1);
writeln('enter operator');
readln(oper);
writeln('enter num');
readln(num2);

if oper = '+' then
begin
total := num1 + num2;
end

else if oper = '-' then
begin
total := num1 - num2;
end

else if oper = '*' then
begin
total := num1 * num2;
end

else if oper = '/' then
begin
total := num1 / num2;
end;

writeln('total : ' ,total:2:2);
writeln('enter to continue or t to exit');
readln(t);
end;

until(t = 't');
end.





**Wahai diri, izinkan daku kembali ke asaku. "Dari Tanah, pulang ke Tanah"

No comments:

Post a Comment

Terima kasih kerana sudi bertandang ke Blog Cik Bie. Senang-senang nanti datang lagi ya? Love u'olss. Muahhx