ASAL TANAH KEMBALI KE TANAH

By BIE - 7:48:00 PTG


"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"

  • Share:

You Might Also Like

0 ulasan

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