Latar Belakang

Posisi Geografis pulau Batam yang bersebelahan dengan negara Singapura menjadi kawasan ini berkembang dengan pesat dalam berbagai hal.Disamping menjadi kawasan industri dan pusat perdagangan, Batam juga sekarang telah dipenuhi dengan berbagai sarana dan jasa layanan terhadap kebutuhan masyarakat, termasuk pendidikan dari tingkat dasar hingga perguruan tinggi.
Sejalan dengan perkembangan jumlah populasi penduduk yang memerlukan sarana pendidikan tersebut, maka muhammad Raihan alias Achui pemilik sagulung Mall yang juga seorang pengusaha yang sukses diberbagai usaha bisnis di pulau Batam, beserta dengan beberapa pengusaha sukses lainnya sepakat untuk menanamkan inpestasi untuk mendirikan sebuah lembaga pendidikan yang diberinama Sekolah Globe National plus.
Sekolah Globe National plus yaitu sebuah lembaga pendidikan yang berkualitas bertaraf internasional dimana dalam sistem pembelajaran akan menggunakan dua bahasa pengantar yaitu bahasa Indonesia dan bahasa Inggris, kemudian akan ditambahkan lagi dengan beberapa mata pelajaran bahasa asing tambahan yaitu bahasa Mandarin, Jepang dan Jerman yang dapat dipilih menjadi salah satu mata pelajaran pilihan

Selasa, 28 September 2010

Contoh looping pada pascal

uses wincrt;
{ program memasukan nilai sederhana dalam dua versi bahasa}
var nilai,x:integer;
mk:string;
begin
writeln (' SELAMAT DATANG DALAM PENGISIAN NILAI ');
writeln (' 1. dalam versi bahasa jawa');
writeln (' 2. dalam versi bahasa indonesia');
writeln (' 3. Keluar ');
repeat
write ('pilih versi = ');read (x);
if (x= 1) then
begin
write ('lebokno nilai nilai koe = '); readln (nilai);
if (nilai < 60)then
begin
writeln ('Nilai kowe elek banget. Kowe kudu rajin belajar yoooo');
end
else
begin
writeln ('Nilai kowe apik……..!!!! matur nuon');
end;
end;
if (x = 2) then
begin
write ('Masukan nilai kamu = '); readln (nilai);
if (nilai < 60)then
begin
writeln ('Nilai kamu jelek banget, rajinlah belajar yahhhhh!!!!');
end
else
begin
writeln ('nilai kamu bagus, terima kasih……');
end;
end;
if (x=3) then
begin
writeln ('Terima kasih, anda termasuk orang yang ANEHHHHHHHHH, KACIAN DEH LHOOOOO');
end;
until x>2
end.
Diposting oleh di

1 komentar:

  1. SMK GLoBe NaTionaL HenzZ*1 Oktober 2010 pukul 02.00

    HEndro.Prayogo IT_B
    uses wincrt;
    { program memasukan nilai sederhana dalam dua versi bahasa}
    var nilai,x:integer;
    mk:string;
    begin
    writeln (' SELAMAT DATANG DI PENGETAHUAN ZODIAC ');
    writeln (' 1. cancer');
    writeln (' 2. aquarius');
    writeln (' 3. gemini ');
    repeat
    write ('pilih zodiacmu = ');read (x);
    if (x= 1) then
    begin
    write ('WOW ! kamu mempunyai sifat yang efektif ,,dan meliki energi yang potential = '); readln (nilai);
    end
    else
    begin
    writeln ('WEW ! kamu tuh adalah orang yang sabar ,,tidak suka eMOSI >.<');
    if (x=2) then
    begin
    writeln ('Wew ,,');
    end;
    end;
    if (x = 2) then
    begin
    write ('Masukan zodiacmu = '); readln (nilai);
    writeln ('wew ! zodiamu krg brntung deh ..')
    end;
    if (x=3) then
    begin
    writeln ('waw ! kamu LuCKy Deh ,,');
    writeln ('wah" ! ,,eloh tuh orang yang LUCKy deh ..');
    end;
    until x>2
    end.

    BalasHapus

Langganan: Posting Komentar (Atom)