Assalamu'alikum.Wr.Wb

Pengertian Matrik
  Matrik adalah struktur penyimpanan data di dalam memori utama yang setiap individu elemennya diacu dengan menggunakan dua buah indeks (yang dikonotasikan dengan indeks baris dan kolom).
Karena Matrik sebenarnya larik, maka konsep umum dari larik juga berlaku di matrik :

1. Kumpulan elemen bertipe sama
2. Setiap element data dapat diakses langsung jika indeks diketahui (baris dan kolom)
3. Merupakan struktur data yang statis, artinya jumlah elemennya dideklarasikan dahulu dan tidak bisa diubah selama pelaksanaan program

Bentuk umumnya :
nama_matrik[i.j]
i : indeks baris
j : indeks kolom

	1	2	3	4
1	M[1,1]	M[1,2]	M[1,3]	M[1,4]
2	M[2,1]	M[2,2]	M[2,3]	M[2,4]
3	M[3,1]	M[3,2]	M[3,3]	M[3,4]
4	M[4,1]	M[4,2]	M[4,3]	M[4,4]

Contoh Program Pascal Matrik 1 :
program matrik; uses crt; var mata,matb:array[1..10,1..10]of integer; x,y:integer; begin clrscr; for x:1 to 5 do begin for y:1 to 5 do begin mata[x,y]:=0; if x=y then mata[x,y]:=1; write(mata[x,y]:5); end; writeln; end; readln; end.
Hasil Pemrograman :


Contoh Program Pascal Matrik 2 :
program matrik2; uses crt; var a,b:integer; begin a:=1; a:=-1; while a<=20 do begin b:=b*-1; writeln(a*b); a:=a+2; end; readln; end.
Hasil Program:


Sekian Terima Kasih.
Wa'alaikum salam.wr.wb

Algoritma Perulangan

Assalamu'alikum.Wr.Wb

Hai....ketemu lagi dengan saya, di sini saya akan menjelaskan tentang for to do, while do, repat until dan contoh perogramnya juga, langsung saja :

Laping/perulangan di bagi menjadi 3 :

1. For to do

     For to do adalah struktur pengulangan dimana aksi dilakukan sebanyak hitungan pencacahan pengulangan, pencacahan pengulangan dapat di set sesuai dengan nilai yang ingin kita mulai.
Contoh Program For to do :

PROGRAM FORTODO;
USES CRT;
VAR
    A:INTEGER;
BEGIN
    FOR A :=1 TO 10 DO
    WRITELN (A);
    READLN;
END.

ini hasil program For to do :


2. While do

     While do adalah struktur pengulangan dimana selama kondisi (persyaratan) pengulangan masih benar, maka aksi dikerjakan.
Contoh program while do :

PROGRAM WHILEDO;
USES CRT;
VAR
       B,A:INTEGER;
BEGIN
      A:=1;
      WHILE A <= 10 DO
      BEGIN
          B:= A*2-1;
          WRITELN (B);
          A:= A+1 ;
      END;
      READLN;
END.

ini hasil program while do :


3.  Repeat Until

      Repeat berarti ulangi dan Until berarti sampai, jadi repeat until adalah struktur pengulangan dimana aksi dilakukan hingga kondisi (persyaratan) berhenti terpenuhi.
Contoh Program Repeat Until :

PROGRAM REPEAT_UNTIL;
USES CRT;
VAR
      A:INTEGER;
BEGIN
      A:=1;
      REPEAT
         WRITELN (A);
          A:= A+1;
      WRITELN A >= 10;
      READLN;
END.

ini hasil program Repeat Until :


Perbedaan For To Do, While Do dan Repeat Until sebagai berikut :

For To Do :

Ø  Langsung merupakan perulangan langsung. Program akan langsung mencetak sesuai dengan kondisi yang telah ditetapkan.

Ø  Diletakkan pada main program.

While Do :

Ø  Terdapat harga awal.

Ø  Terdapat operator pembanding (<, >, =, dll).

Ø  Terdapat counter.

Ø Menggunakan blok satatemen baru yaitu begin dan end untuk membaut program proses perulangan.

Repeat Until :

Ø  Terdapat harga awal.

Ø  Terdapat counter.

Ø  Repeat digunakan untuk mengawali program perulangan.

Ø  Until digunakan sebagai kondisi yang letaknya di bawah.

Ø Tidak menggunakan blok statemen begin dan end, karena repeat-until digunakan sebagai pengganti begin dan end.

Tugas Flowchart dan Program Div Mod

Assalamu'alikum.Wr.Wb

Disini saya akan memberikan bentuk flowchart bilangan ganjil dan program untuk menampilkan uang kembalian, tidak usah lama langsung saja.

Tugas !!!!!

1.  Buat flowchart untuk menampilkan ket, apakah suatu bilangan itu ganjil / genap ?
2.  Buat program untuk menampilkan uang kembalian ?

Jawab !!!!!

1. Flowchart menampilkan bilangan ganjil / genap
2. Program Kasir Sebagai berikut :

PROGRAM KASIR_KU;
USES CRT;
VAR
        UANG,HARGA,KEMBALIAN:LONGINT;
BEGIN
        CLRSCR;
        WRITE('MASUKKAN UANG = ');READLN(UANG);
        WRITE('MASUKKAN HARGA BARANG = ');READLN(HARGA);
        KEMBALIAN:=UANG-HARGA;
        WRITELN;

        WRITE('PECAHAN DALAM MATA UANG RUPIAH');READLN;
        IF KEMBALIAN>=100000 THEN
        BEGIN
                  HARGA:=KEMBALIAN DIV 100000;
                  WRITELN(HARGA,' SERATUS RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 100000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 50000;
                  WRITELN(HARGA,' LIMAH PULUH RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 50000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 20000;
                  WRITELN(HARGA,' DUA PULUH RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 20000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 10000;
                  WRITELN(HARGA,' SEPULUH RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 10000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 5000;
                  WRITELN(HARGA,' LIMAH RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 5000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 2000;
                  WRITELN(HARGA,' DUA RIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 2000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 1000;
                  WRITELN(HARGA,' SERIBUH RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 1000;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 500;
                  WRITELN(HARGA,' LIMAH RATUS RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 500;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 200;
                  WRITELN(HARGA,' DUA RATUS RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 200;
        END;
        BEGIN
                  HARGA:=KEMBALIAN DIV 100;
                  WRITELN(HARGA,' SERATUS RUPIAH');
                  KEMBALIAN:=KEMBALIAN MOD 100;
        END;
        WRITELN;

        WRITE('TERIMA KASIH ^-^ ');
        WRITELN;
        READLN;
END.

Gambar hasil keluaran :



Terima Kasih
Wa'alaikumsalam.Wr.Wb

 Assalamu'alaikum. Wr. Wb

Saya di sini akan menjelaskan sedikit ilmu yang saya dapatkan di mata kuliah saya. meski sedikit saya bingung dengan MAPEL Algoritma ini dan demi tugas kuliah saya agar mendapatkan nilai yang memuaskan loh kok saya malah curhat, ndak usah basa basi mari kita mengelupas apa sih algoritma ,flowchart dan sedikit struktur If Then Else.

 Pengertian Algoritma dan Flowchart

• Algoritma

Algoritma adalah urutan angka berhingga untuk memecahkan masalah logika / matematika.

Langkah-langkah programan :

1)        Mendefinisikan masalah

2)        Menentukan solusi

3)        Memilih algoritma

4)        Menulis programan

5)        Menguji programan

6)        Menulis dokumentasi

7)        Merawat program

• Flowchart

Flowchart adalah suatu standart untuk menggambarkan urutan langkah dalam suatu proses.

Simbol penyusunan flowchart (Diagram Alir) :

 
  
Struktur If Then Else

IF THEN ELSE adalah tambahan dari kondisi IF THEN. Bagian ELSE digunakan untuk menjalankan kode program apabila sebuah kondisi tidak terpenuhi.

Konsep dasar dari percabangan IF THEN ELSE dalam bahasa pemrogram Pascal adalah sebagai berikut:

IF (kondisi) THEN

    (kode program 1)

ELSE

IF (kondisi) THEN

    (kode program 2)

ELSE

Langsung aja kita ke contoh langsung :

program IF_THEN_ELSE;
uses crt;
var
 berat : Integer;
 ket : string;
begin
 clrscr;
 write('masukan berat=");
 readln(berat)
 if (berat >90) then ket:='anda gemuk sekali' else
 if (berat >80) then ket:='anda agak gemuk' else
 if (berat >70) then ket:='berat ideal' else 
 if (berat >60) then ket:='anda kurus' else  
 ket :='anda kurus';

 writeln('keterangan =',ket);
 readln;
end. 

 

setelah itu kalian jalankan deh programnya itu, sedikit penampakan dari jalannya program di atas :

 

saya ngerjakan programnya tadi di android tapi sama aja kok kalok di laptop. sekian dari saya terimakasih

Wa'alaikumsalam Wr. Wb.

soal !!!!

1. Tulis algoritma dan flowchart untuk mencari luas segititga dgn masukan dari pengguna adalah alas dan tinggi rumus L = 1/2 x a x t ?
2. Tulislah algoritma dan flowchart untuk mencari sisi miring dari suatu segi tiga siku-siku jika diketahui panjang dua sisi miring segitiga siku-siku, petunjuk : sisi miring segitiga siku-siku dapat dihitung dengan rumus phytagoras !
3.  tulislah algoritma dan flowchart untuk meminta masukkan 2 bilangan dari pengguna kemudian menampilkan bilangan terbesar di antara kedua bilangan tersebut ?

Jawab !!!!

 1. Bentuk Algoritma

·         Masukkan nilai alas segitiga (a) dan nilai tinggi segitiga (t)

·         Menghitung luasnya dengan alas dan tinggi tertentu

·         Luas segitiga dihitung dengan rumus L = 1/2 x a x t

·         Nilai luas (L)di cetak sebagai output ke piranti keluaran

          Bentuk Flowchart

  
2.  Bentuk Algoritma

·         Masukkan nilai a dan b

·         Sisi miring segitiga siku-siku dihitung dengan rumus C =

·         Output sisi miring C

           Bentuk Flowchart

 

3. Bentuk Algoritma

·         Masukkan nilai A dan B

·         Cek apakah A > B

Ø  Jika “ya” tulis A

Ø  Jika “tidak” tulis B

·         Selesai

         Bentuk Flowchart