Wednesday 9 May 2012

Belajar Pascal

No comments


KODE YANG AKAN DIPASANG 



Baiklah saya disini akan berbagi beberrapa ilmu yang telah saya dapatkan dari perkuliahan saya di semester 1

sebelum mulai ngoding silahkan download aplikasi free pascal..bisa di downloaad disini

setelah di install silahkan tulis source code ini di program pascal...

uses crt;
var
        a,b:integer;
        hasil:char;
begin
        clrscr;
        readln(a);
        readln(b);

        writeln('pilih operasi yang anda inginkan');
        writeln('================================');
        writeln('masukkan operasi: 
                 (+)penjumlahan,
                 (-)pengurangan,
                 (*)perkalian,
                 (/)pembagian');

        readln(hasil);
        case hasil of

                '+':writeln('hasil: ',a+b);
                '-':writeln('hasil: ',a-b);
                '*':writeln('hasil: ',a*b);
                '/':writeln('hasil: ',a/b);
        else
                writeln('operasi salah');
        end;
        readln;
end.

klo sudah slesai Maka klik compile> run maka program akan berjalan...

No comments :

Post a Comment