Pages

Jumat, 27 Mei 2016

Turbo Pascal

Halo, gaes.
Pada kesempatan kali ini. Gua akan berbagi ilmu (Ciaaaillleeehhh) mengenai salah satu ilmu pemrograman yang masih sangat dasar yaitu Bahasa Pascal.
Disini gua udah nyiapin 5 program kecil
1. Program Segitiga Pascal
2. Program Biner
3. Program Pembagian Uang
4. Program Silang
5. Program Varian dan Mean

Tanpa basa-basi, ini ada sebagian kecil program yang mungkin bisa bermanfaat.
1.  Program Segitiga Pascal


Kode :
             Program segitiga_pascal;
             uses crt;
             var            k,l,j,n,m,x,y,z,i,kom:longint;
             begin
                          clrscr;
                          write  ('Input Nilai       n= '); readln(n);
                          for l:=0 to n do
                          begin
                               for j:=n downto l do write (' ');
                                    for k:=0 to l do
                                    begin
                                    x:=1;
                                    y:=1;
                                    z:=1;
                                    for i:=1 to l do x:=x*i;
                                    for i:=1 to k do y:=y*i;
                                   for i:=1 to (l-k) do z:=z*i;
                                    kom:=x div (y*z);
                                    write       (kom,' ');
                                    end;
                               writeln;
                          end;
                          readln;
end.


2. Program Pembagian Uang


Kode :
                     program bagi_uang;
                     uses crt;
                     var    ratusan,limapul,duapul,sepuluh,lim,dua,hasil,satu,uang:longint;

                     begin
                          clrscr;
                          writeln    ('      Program Membagi Uang');
                          writeln;
                          write    ('Masukkan Nilai uang yang akan dibagi  = Rp');    readln (uang);
                          writeln;

                          ratusan:= uang div 100000;
                          hasil:= uang mod 100000;

                          limapul:= hasil div 50000;
                          hasil:= hasil mod 50000;

                          duapul:= hasil div 20000;
                          hasil:= hasil mod 20000;

                          sepuluh:= hasil div 10000;
                          hasil:= hasil mod 10000;

                          lim:= hasil div 5000;
                          hasil:= hasil mod 5000;

                          dua:= hasil div 2000;
                          hasil:= hasil mod 2000;

                          satu:= hasil div 1000;
                          hasil:= hasil mod 1000;

                          writeln     ('       Jika uang tesebut dipecah akan menghasilkan');
                          writeln;
                          writeln    (ratusan,' Uang seratus ribu');
                          writeln    (limapul,' Uang lima puluh ribu');
                          writeln    (duapul,' Uang dua puluh ribu');
                          writeln    (sepuluh,' Uang sepuluh ribu');
                          writeln    (lim,' Uang lima ribu');
                          writeln    (dua,' Uang dua ribu');
                          writeln    (satu,' Uang seribu');
                          writeln    ('Sisa dari pembagian uang tersebut     =',hasil);
                          readln;
end.

3.  Program Biner


Kode :
                     Program bilangan_biner;
                     uses crt;
                     var  hb,n,sisa:integer;  bin,bil,totalbil:string;
                     begin
                          clrscr;
                          write  ('Input Nilai N     ='); readln(n);

                          hb:=n div 2;
                          while (hb>=1) do
                                begin
                                     sisa:= n mod 2;
                                     hb:= n div 2;
                                     if (sisa=1) then bin:='1'
                                     else if (sisa=0) then bin:='0';

                                     bil:=bin+bil;
                                     n:=hb;
                                end;
                                totalbil:=bil;
                          write ('Bilangan Binernya adalah   = ',totalbil);
                          readln;
 end.

4. Program Silang


Kode :
                     Program silang;
                     uses crt;
                     var i,j,n:integer;

                     begin
                          clrscr;
                          write  ('Input Nilai N     ='); readln(n);
                          writeln;
                          for i:=1 to n do
                              begin
                              for j:=i to n-1 do write ('  ');
                              write (i);
                              end;
                          readln;
   end.

5. Program Mean dan Varian



Kode :
                     Program masdean;
                     uses crt;
                     var n,i,jumlah:integer;
                         mean,varix,vari,varian:real;
                         x:array [1..300] of integer;
                     begin
                          clrscr;
                          write  ('Input banyaknya data      ='); readln(n);
                          writeln;
                                  for i:=1 to n do
                                  begin
                                  write ('Data ke ',i,' ='); readln(x[i]);
                                  jumlah:=jumlah+x[i];
                                  end;
                                  mean:=jumlah/n;

                          for i:=1 to n do
                          begin
                               vari:=sqr(x[i]-mean);
                               varix:=varix+vari;
                          end;

                          varian:=varix/n;

                          writeln;
                          writeln   ('Mean             =',mean:0:2);
                          writeln   ('Varian           =',varian:0:2);
                          writeln;
                          readln;
end.


Tidak ada komentar:

Posting Komentar