Reta Noorina Prastika 1311100090

Welcome to my blog..!! Enjoy to read and get your knowledge. Hopefully, you can understand it

Senin, 19 Desember 2011

PROGRAM DETERMINAN DAN INVERS

,
Author: Reta Noorina Prastika | Filed Under:
program determinan_invers;
uses wincrt;
var
x,y:array [1..50,1..50] of integer;
i,j,det:integer;
begin
writeln('Masukkan nilai matriks ordo 2 x 2 !');
for i:=1 to 2 do
for j:=1 to 2 do
begin
write('nilai x[',i,',',j,'] = ');readln(x[i,j]);
end;
writeln;
writeln('Bentuk matriks nya');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(x[i,j]:5);
writeln;
end;
det:=x[1,1]*x[2,2]-x[1,2]*x[2,1];
writeln;
writeln('Determinan matriks = ',det);
y[1,1]:=x[2,2];
y[1,2]:=-x[2,1];
y[2,1]:=-x[1,2];
y[2,2]:=x[1,1];
writeln;
writeln('Invers matriks nya');
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(y[i,j]/det:8:2);
writeln;
end;
end.

PROGRAM MATRIKS

,
Author: Reta Noorina Prastika | Filed Under:
  • Penjumlahan Matrik
              program matrik_penjumlahan;
              uses wincrt;
              var a,b,c: array[1..10,1..10] of integer;
              i,j,k1,k2,b1,b2,sum,r:integer;

             begin
             write('Masukkan baris Matrik A = ');readln(b1);
             write('Masukkan kolom Matrik A = ');readln(k1);
             write('Masukkan baris Matrik B = ');readln(b2);
             write('Masukkan kolom Matrik B = ');readln(k2);
             for i:=1 to b1 do
             for j:=1 to k1 do
             readln(a[i,j]);
             writeln;
             for i:=1 to b2 do
             for j:=1 to k2 do
             readln(b[i,j]);
             writeln;
             writeln('Matrik A');
             writeln('==================');
             for i:=1 to b1 do
             begin
             for j:=1 to k1 do
             write(a[i,j],' ');
             writeln;
             end;
             writeln;
             writeln('Matrik B');
             writeln('===================');
             for i:=1 to b2 do
            begin
            for j:=1 to k2 do
            write(b[i,j],' ');
            writeln;
            end;
            writeln;
            writeln('Matrik A*B');
            writeln('================');
            for i:=1 to b1 do
            begin
            for j:=1 to k2 do
            begin
            sum:=0;
            for r:=1 to k1 do
            sum:=sum+a[i,r]*b[r,j];
            c[i,j]:=sum;
            write(c[i,j]:2,' ');
            end;
            writeln;
            end;
            end.

    • Perkalian Matriks
                program perkalian_matrix;
                uses crt;
                var
                a,b,c : array [1..50,1..50] of integer;
                i,j,k,x,y,z : integer;
                begin
                clrscr;
                writeln(‘Ukuran matrix A’);
                write(‘Baris : ‘);
                readln(x);
                write(‘Kolom : ‘);
                readln(y);
                writeln;
                writeln;
                writeln(‘Ukuran matrix B’);
                writeln(‘Baris : ‘,y);
                write(‘Kolom : ‘);
                readln(z);
                for i:=1 to x do
                for j:=1 to y do
                begin
                write(‘Elemen A[',i,',',j,'] : ‘);
                readln(a[i,j]);
                end;
                writeln;
                for i:=1 to y do
                for j:=1 to z do
                begin
                write(‘Elemen B[',i,',',j,'] : ‘);
                readln(b[i,j]);
                end;
                for i:=1 to x do
                for j:=1 to z do
                for k:=1 to y do
                c[i,j] := c[i,j] + a[i,k]*b[k,j];
                writeln;
                writeln;
                writeln(‘Hasil dari perkalian Matrix A dengan Matrix B adalah : ‘);
                Writeln;
                for i:=1 to x do
                begin
                for j:=1 to z do
                write(c[i,j],’ ‘);
                writeln;
                end;
                writeln;
                readln;
                end.

      CONTOH PROGRAM PASCAL

      ,
      Author: Reta Noorina Prastika | Filed Under:
      •  Contoh 1 :
                 program penghitung_umur;
                 uses wincrt;
                 var nama:string;
                 umur,tahunlahir:integer;
                 begin
                 write('Nama : ');
                 readln(nama);
                 write('Tahun Lahir : ');
                 readln(tahunlahir);
                 umur:= 2011 - tahunlahir;
                 write('Umur : ', umur);
                 end.

      • Contoh 2 :
                program penghitung_angka;
                uses wincrt;
                var b,n:integer;
                begin
                n:=0;
                repeat b:=1+3*n;
                n:=n+1;
                write (b, ' ');
                until
                n=6;
                end.
      • Contoh 3 :
                program mahasiswa;
                uses wincrt;
                var
                i:integer;
                begin
                i:=1; write(i);write(' ');
                repeat
                i:=i+3;
                write(i);write(' ');
                until i=16;
                end.

      • Contoh 4 :
                program pemangkatan;
                uses wincrt;
                var a,b,i:integer;n:real;
                begin
                write('A = ');readln(a);
                write('B = ');readln(b);
                n:=1;
                for i:=1 to abs(b) do
                n:=n*a;
                if (b>=0) then
                begin
                writeln('A pangkat B = ',n);
                end
                else
                begin
                writeln('A pangkat B = ',1/n);
                end
                end.

      • Contoh 5 :program faktorial;
        uses wincrt;
        var a:real;
        n,i:integer;

        begin
        write('n = ');readln(n);
        write('n faktorial = ');
        a:=1;
        if n<0 then write('tidak terdefinisi')
        else
        if n<2 then
        write(1)
        else

        begin
        for i:=n downto 2 do
        begin
        write(i,' x ');
        a:=a*i;
        end;
        write(1,' = ',a:0:0);
        end;
        end.    
      • Contoh 6 :program segitiga_pascal;
        uses wincrt;
        var
        n,i,j,x:integer;

        begin
        n:=1;
        read(x);
        writeln(x);
        for i:=1 to x do

        begin
        for j:= 1 to i do
        begin
        write(n,' ');
        n:=n+1;
        end;
        writeln(' ');
        end;
        end.
      • Contoh 7 :program deret_fibbonacci;
        uses wincrt;
        var a,b,c,i,n: integer;

        begin
        write('masukkan n = ');
        readln(n);
        a:=1; b:=0;
        for i:=1 to n do

        begin
        c:=a+b;
        a:=b;
        b:=c;
        write(c,',');
        end;
        end.

      PROGRAM KONVERSI

      ,
      Author: Reta Noorina Prastika | Filed Under:
      program konversi_biner_desimal;
      uses wincrt;
      var
         desimal,d,sisa,biner:integer;
      begin
           write('Angka Desimal');readln(desimal);
           d:=0;
           repeat
           sisa:=desimal mod 2;
           desimal:=desimal div 2;
           if (d=0) then
           d:=1
           else
           d:= d * 10;
           biner:= biner + sisa * d;
           until desimal=0;
           write('Biner = ',biner);
      end.

      program konversi_desimal_biner;
      uses wincrt;
      var
         desimal,d,biner,sisa:longint;
      begin
           write('Biner = ');readln(biner);
           d:=0;
           repeat
           sisa:=biner mod 10;
           biner:=biner div 10;
           if (d=0) then
           d:=1
           else
           d:= d*2;
           desimal:=desimal+sisa*d;
           until biner=0;
           write('Angka Desimal = ',desimal);
      end.

      ALGORITMA

      ,
      Author: Reta Noorina Prastika | Filed Under:
      Algoritma..???
      mungkin kita masih bingung apa itu algoritma dan gimana cara pengubahannya..
      Ayo, baca dengan antusias yaa..:-)

      Konversi Desimal ke Biner
      1. Mulai d = 1, biner 0
      2. Baca desimal
      3. Desimal = desimal div 2
      4. Sisa = desimal mod 2
      5. d baru = d x 10
      6. biner baru = biner + (sisa x d)
      7. Jika desimal = 0, pergi langkah 9
      8. Jika desimal tidak 0, pergi ke langkah 3
      9. Cetak biner
      10. Selesai
      Konversi Biner ke Desimal
      1. Mulai
      2. Baca biner
      3. Biner = biner div 10
      4. Sisa = biner mod 10
      5. d baru = d x 2
      6. Desimal baru = (sisa x d) + desimal
      7. Jika biner 0, pergi ke langkah 9
      8. Jika biner tidak 0, maka ulangi mulai  langkah 3
      9. Cetak desimal
      10. Selesai

      ARRAY

      ,
      Author: Reta Noorina Prastika | Filed Under:
      Array (larik) menyatakan tipe data terstruktur yang berupa kumpulan elemen-elemen
      dengan tipe data yang sama. Tipe Array dapat ditulis sebagai berikut:
      Array [Indeks_1,…,Indeks_n] of Tipe_Dasar

      •  Array Dimensi Satu
      Array berdimensi satu merupakan array dengan ciri memiliki tipe indeks hanya satu buah.
      Contoh deklarasi variabel dengan tipe array berdimensi satu:
      VAR X : ARRAY[1..10] of Integer;
      Untuk menyimpan suatu nilai kedalam lokasi array, dapat dilakukan dengan instruksi :
      D[i]:=nilai;
      atau dimana i adalah indeks array
      READLN(D[i]);
      Sedangkan untuk menampilkan nilai yang ada di salah satu elemen array dapat dengan
      cara:
      WRITELN(D[i]); dimana i adalah indeks elemen array
      • Array Dimensi Dua
      Array berdimensi dua merupakan array dengan ciri memiliki tipe indeks dua buah. Contoh
      deklarasi variabel dengan tipe array berdimensi dua:
      VAR Y : ARRAY[1..5,1..10] of Integer;
      Untuk menyimpan suatu nilai kedalam lokasi array, dapat dilakukan dengan instruksi :
      D[i,j]:=nilai;
      atau dimana i,j adalah indeks array
      READLN(D[i,j]);
      Sedangkan untuk menampilkan nilai yang ada di salah satu elemen array dapat dengan
      cara:
      WRITELN(D[i,j]); dimana i,j adalah indeks elemen array

      PERNYATAAN PERULANGAN

      ,
      Author: Reta Noorina Prastika | Filed Under:
      Pernyataan perulangan adalah pernyataan yang akan menjalankan pernyataan yang
      mengikutinya secara berulang sampai syarat tertertentu terpenuhi. Ada 3 buah pernyataan
      perulangan, yaitu FOR, WHILE dan REPEAT.

      Statement FOR
      Statement FOR adalah suatu perintah yang berfungsi untuk melakukan proses
      pengulangan, dimana jumlah pengulangannya sudah diketahui. Bentuk dari statement
      FOR adalah:
      FOR {Variabel} := {Nilai Awal} TO {Nilai Akhir} DO
      BEGIN
      {Statement 1}
      {Statement 2}
      ....
      {Statement n}
      END;

      FOR {Variabel} := {Nilai Awal} DOWNTO {Nilai Akhir}
      DO
      BEGIN
      {Statement 1}
      {Statement 2}
      ....
      {Statement n}
      END;

      Jika Nilai Awal < Nilai Akhir gunakan statement FOR TO DO. Sedangkan jika Nilai
      Awal > Nilai Akhir gunakan statement FOR DOWNTO DO.

      Statement WHILE
      Statement WHILE adalah suatu perintah yang berfungsi untuk melakukan proses
      pengulangan, dimana pengulangan akan terus dilakukan jika kondisi tertentu dipenuhi.
      Jika banyaknya pengulangan diketahui tapi kenaikan atau penurunan pengulangan
      tidak sebesar satu, statement IF tidak cocok untuk digunakan. Sebagai alternatif dapat
      digunakan statement WHILE atau REPEAT. Sedangkan jika banyaknya pengulangan
      tidak diketahui maka statement IF tidak dapat digunakan, sehingga harus digunakan
      statement WHILE atau REPEAT. Bentuk dari statement WHILE adalah:
      WHILE {Kondisi} DO
      BEGIN
      {Statement 1}
      {Statement 2}
      ....
      {Statement n}
      END;


      Statement REPEAT
      Statement REPEAT adalah suatu perintah yang berfungsi untuk melakukan proses
      pengulangan, dimana pengulangan akan berhenti jika kondisi yang tertulis di akhir
      pengulangan dipenuhi. Sintak dari statement REPEAT adalah:
      REPEAT
      {Statement 1}
      {Statement 2}
      ....
      {Statement n}
      UNTIL {Kondisi};

      Langganan: Postingan (Atom)
       

      Reta Noorina Prastika 1311100090 Blak Magik is Designed by productive dreams for smashing magazine Bloggerized by Ipiet
      Thanks to Blogger Templates Blog | Distributed by Deluxe Templates © 2008