@ [code]

Info Sekitar Kita

Program konversi suhu dengan pascal

Written By Abdul Wakhid on 19 Oktober 2008 | 10.17.00

abdulmail | freeware | free game | exotic artikel | tips dan trik | free tutorial | internet marketing | gratis |education

ni contoh program konversi suhu dengan pascal.

program suhu;
uses crt;
var CL, FR, RE, KE :real;
    LAGI :CHAR;
LABEL A,B,C;
begin
A:  clrscr;
    WRITELN('+-------------------------------------------------+');
    writeln('| PROGRAM KONVERSI SUHU                           |');
    WRITELN('|                                                 |');
    WRITELN('| DARI CELCIUS KE KELVIN, REAMUR DAN FAHRENHEIT   |');
    writeln('+-------------------------------------------------+');
    write(' MASUKKAN SUHU YANG AKAN DIKONVERSIKAN : ');readln(CL);
    WRITELN;
    KE :=CL+273;
    RE :=(4/5)*CL;
    FR :=(9/5*CL)+32;
    write(' SUHU :',CL:10:1);WRITELN(' DERAJAT CELCIUS, SETARA DENGAN :');
    WRITELN;
    write(' ',KE:10:1);writeln(' DERAJAT KELVIN');
    WRITELN;
    write(' ',RE:10:1);writeln(' DERAJAT REAMUR');
    WRITELN;
    write(' ',FR:10:1);writeln(' DERAJAT FAHRENHEIT');
    WRITELN;
    WRITELN(' ---------- SELESAI -----------');
    WRITELN;
C:  WRITE(' ANDA INGIN MENGHITUNG  LAGI ? (Y/N)');READLN(LAGI);
    CASE (LAGI) OF
    'Y','y':GOTO A;
    'N','n':GOTO B;
    ELSE
    WRITELN(' PILIHAN HANYA Y / N !');GOTO C;
    readln;
B:  END;
end.

mohon dikoreksi agar lebih sempurna,
10.17.00 | 0 komentar | Read More

Download Software, Kumpulan Software gratis

Written By Abdul Wakhid on 17 Oktober 2008 | 16.07.00

onion40Bagi anda yang sedang mencari software-software gratisan, mungkin software – software dibawah ini yang sedang anda cari ;

Cepetan download selagi masih bisa ;

Jika anda menghendaki software berkualitas, hendaknya anda harus membeli software yang berlisensi ;

16.07.00 | 0 komentar | Read More

Download software Hape Symbian dan Java

Written By Abdul Wakhid on 15 Oktober 2008 | 15.46.00

onion15Buat yang lagi nyari ; aplikasi hape, aplikasi symbian, game java, free ringtoon, aplikasi gratis, symbian zone, crack symbian, sofware hape, aplikasi nokia, game sony ericson, walpaper, theme hape, skin hape, get symbian, zona gratis, .sis, .jar, aplikasi symbian s60, aplikasi symbian s60v.2, aplikasi symbian s60v.3.
====   please buy original version   =====
==============================
==============================
==============================
==============================
============================== Update soon . . .
15.46.00 | 0 komentar | Read More