Category

Thursday, October 10, 2013

Contoh Program Logika dan Aritmatika dalam PASCAL

 hello gan,,
lama ni ane ga ngepos, maklum waktu ini lagi ospek.. di bully abis..
sekarang ane akan membahas dan share tentang pascal gan..
bwt agan agan yang udah doyan pemrograman pasti ga asing lagi dengan ini..

berikut adalah syntaxnya,,

untuk program aritmatika ane pake program penentu kategori nilai (kaya sistem penilaian kuliah gitu gan hehe)



program logika;

uses crt;

var
        nilai:integer;

begin
        clrscr;
        write('Masukkan nilai mata kuliah : '); readln(nilai);

        if (nilai>85) then
        begin
            writeln('Nilai anda adalah A.');
        end;

        if (nilai>70) and (nilai<=85) then
        begin
            writeln('Nilai anda adalah B.');
        end;

        if (nilai>50) and (nilai<=70) then
        begin
            writeln('Nilai anda adalah C.');
        end;

        if (nilai>30) and (nilai<=50) then
        begin
            writeln('Nilai anda adalah D.');
        end;

        if (nilai>=0) and (nilai<=30) then
        begin
            writeln('Nilai anda adalah E.');
        end;
        readln;

end.



berikutnya syntax tentang program aritmatika, disini ane pake program kalkulator gan

program kalkulator;
uses wincrt;
var
   satu,dua : integer;
   hasil : real;
   op : char;
begin
       writeln('Bilangan Pertama : ');readln(satu);
       writeln('Bilangan Kedua   : ');readln(dua);
       write('Pilihan              : ');readln(op);
case op of
     '+' : begin hasil := satu + dua; write('Hasil : ' , hasil:0:2); end;

     '-' : begin hasil := satu - dua; write('Hasil : ' , hasil:0:2); end;

     '*' : begin hasil := satu * dua; write('Hasil : ' , hasil:0:2); end;

     '/' : begin hasil := satu / dua; write('Hasil : ' , hasil:0:2); end;
 end;
end.


itu semua udah ane coba di TPW gan.. semoga bermanfaat ^_^


No comments:

Post a Comment