Pembuatan matrik pada pascal

Assalamu'alikum wr.wb.
Pada kesempatan kali ini saya akan membagikan tentang pembuatan matrik menggunakan perulangan array pada pascal.

Baris program:
Baris Program:
uses crt;
var
 i,j,ray:Array [1..10,1..10] of integer;
 baris,kolom:integer;
begin
 clrscr;
 write('jumlah baris:');readln(baris);
 write('jumlah kolom:');readln(kolom);
 for baris:=1 to baris do
 for kolom:=1 to kolom do
    begin
write('[',baris,',',kolom,']=');readln(ray[baris,kolom]);
    end;
writeln;
writeln('Matrix yang terbentuk adalah:');
for baris:=1 to baris do
    begin
for kolom:=1 to kolom do
    begin
write(ray[baris,kolom]:5);
write('');
    end;
writeln;
   end;
readln;
end.

Scrshoot:

Demikian yang dapat saya sampaikan tentang pembuatan matrik pada pascal, semoga bermanfaat. Wassalamu'alaikum wr.wb.

Penjumlahan matrik pada Pascal

Assalamu'alikum wr.wb.
Pada kesempatan kali ini saya akan membagikan tentang program menghitung matrik pada pascal menggunkan array.

Baris Program:
uses wincrt;
var
i,j,r:Array[1..10,1..10] of integer;
m,n,p:array[1..10,1..10]of integer;
a,b,hasil: array[1..20,1..20]of integer;
baris,kolom,baris2,kolom2:integer;
begin
writeln(‘—– Masukkan Matrix R —–’);
write(‘jumlah baris : ‘);readln(baris);
write(‘jumlah kolom : ‘);readln(kolom);
for baris:=1 to baris do
for kolom:=1 to kolom do
begin
write(‘[',baris,',',kolom,'] = ‘);readln(R[baris,kolom]);
end;
writeln(‘—– Masukkan Matrix P —–’);
write(‘jumlah baris : ‘);readln(baris);
write(‘jumlah kolom : ‘);readln(kolom);
for baris:=1 to baris do
for kolom:=1 to kolom do
begin
write(‘[',baris,',',kolom,'] = ‘);readln(P[baris,kolom]);
end;
writeln;
{————————- TAMPILKAN ————————}
{————————————————————}
for baris:=1 to baris do
begin
for kolom:=1 to kolom do
begin
write(R[baris,kolom]);
write(‘ ‘);
end;
writeln;
end;
writeln(‘ditambah dengan : ‘);
for baris:=1 to baris do
begin
for kolom:=1 to kolom do
begin
write(P[baris,kolom]);
write(‘ ‘);
end;
writeln;
end;
writeln(‘menjadi : ‘);
for kolom:=1 to kolom do
begin
for baris:=1 to baris do
begin
hasil[baris,kolom]:=R[baris,kolom] + P[baris,kolom];
end;
end;
for baris:=1 to baris do
begin
for kolom:=1 to kolom do
begin
write(hasil[baris,kolom]);
write(‘ ‘);
end;
writeln;
end;
writeln(‘created by retnodn’);
end.

Scrnshoot:

Demikian yang dapat saya sampaikan tentang perulangan array program penjumlahan matrik pada pascal, semoga bermanfaat. Wassalamu'alikum wr.wb.

Pengukuran Volume / Isi

Assalamu'alikum wr. wb.

Pada kesempatan kali ini saya akan membagikan tentang pengukuran isi atau volume. Untuk lebih jelasnya lihat tangga kubik berikut:

Setiap turun 1 tangga dikalikan 1000, setiap naik satu tangga dibagi 1000.

1 km3       = .....hm3  ----> 1 x 1000 = 1000 hm3

1000 dm3 = .....m3 ----> 1000 : 1000= 1 m3

Satuan isi yang lain:

1 m3       = 1000 liter

1 dm3     = 1 liter

1 liter      = 1000 cm3

1 cm3     = 1 cc

1 barrel   = 158,99 liter

1 gallon   = 4,5461 liter

kl = kilo liter

hl = hekto liter

dal = deka liter

l = liter

dl = desi liter

cl = centi liter

ml = mili liter

1 kl = 10 hl

1 hl = 10 dal

1 dal = 10 l

1 l = 10 dl

1 dl = 10 cl

1 cl = 10 ml

1 kl = 10 hl

  = 100 dal

  = 1.000 l

  = 10.000 dl

  = 100.000 cl

  = 1.000.000 ml

1 hl = 10 dal

  = 100 l

  = 1.000 dl

  = 10.000 cl

  = 100.000 ml

1 dal = 10 l

  = 100 dl

  = 1.000 cl

  = 10.000 ml

1 l = 10 dl

  = 100 cl

  = 1.000 ml

1 dl = 10 cl

  = 100 ml

Sekian yang dapat saya sampaikan tentang pengukuran volume semoga bermanfaat, Wassalamu'alikum wr.wb.

Pengukuran luas

Pengukuran kuantitas

Pengukuran berat

Pengukuran panjang

Pengukuran waktu

Tips Menghitung perkalian dengan cepat metode kotak

Assalamu'alikum wr.wb

Perkalian bisa diselesaikan dengan cara susun, tetapi sering terjadi kesalahan. Untuk menghidari kesalahan atau paling tidak meminimalkan kesalahan maka metode kotak adalah solusinya. Pada kesempatan kali ini saya akan berbagi tips cara menghitung perkalian ratusan,ribuan bahkan jutaan dengan metode kotak. Di dalam metode ini kita bisa lebih ringan dalam mengerjakan dibanding metode susun. Sebagai contoh lihat uraian di bawah ini:

Contoh: 123 x 87 =  

Langkah pertama kita siapkan kotak/tabel dengan 3 kolom 2 baris dan tiap kotak dibagi 2 menggunkan garis miring. Untuk P adalah tempat angka puluhan dan S adalah tempat angka satuan. Lihat gambar:

Langkah kedua, taruh angka 123 di atas kotak dan pengalinya 87 di samping kotak. Lihat gambar:

Langkah ketiga, kalikan masing - masing angka. 1 x 8 = 8 karena tidak ada angka puluhannya maka tulis nol 0 ditempat puluhan. Lanjutkan mengalikan 2 x 8 = 16 tulis 1 di tempat puluhan dan 6 di tempat satuan begitu seterusnya sampai perkalian 3 x 7 =21. Lihat gambar

Langkah keempat, jumlahkan angka yang berada di bawah garis miring :

1=1

4+2+4=10, tulis nol dan simpan angka 1 di atas deret angka berikutnya 

1+2+6+1+1+7=17, tulis angka 7 dibawah dan simpan angka 1 di atas deret angka berikutnya

1+1+8+0=10, tulis angka 0 di bawah dan simpan angka 1 di atas deret angka berikutnya.

1+0=1

Sehingga hasil akhirnya adalah 123 x  87=10701. 

Metode ini bisa digunakan perkalian berapa saja tinggal ubah banyak kolom dan barisnya. Jika perkalian 3 angka x 1 angka maka ada 3 kolom 1 baris, jika perkalian 3 angka x 3 angka maka 3 kolom 3 baris. Sekian yang dapat saya sampaikan tentang cara menghitung cepat perkalian dengan menggunkan metode kotak, semoga bermanfaat . Wassalamu'alikum wr.wb. 

5 Tips Menghadapi Ujian Nasional

Assalamu'alikum wr.wb.

Ujian Nasional untuk SD,SMP,dan SMA/SMK memerlukan persiapan - persiapan untuk menghadapinya. Pada kesempatan kali ini saya akan membagikan beberapa tips menghadapi ujian nasional.

a. Pelajari kisi -kisi ujian yang diberikan dari pihak sekolah, perbanyak latihan soal sesuai kisi - kisi. Semakin banyak latihan soal maka akan semakin hafal tipe - tipe soal yang diujikan dan akan semakin cepat dalam mengerjakan soal.

b. Kuasai Materi Pelajaran, dengan pelajari materi apa yang akan diujikan, belajarlah dengan menggunakan teori-teori singkat yang mudah dipahami, dimengerti dan diingat dalam waktu cepat serta pelajari soal-soal Ujian Nasional sebelumnya.

c. Siapkan mental dan fisik, dengan kesiapan mental yang kuat maka saat melaksanakan Ujian Nasional, pelajar akan menghadapinya dengan tenang, percaya diri, dan tidak dalam kondisi yang takut atau stress kondusif agar anak terhindar dari suasana tekanan.

d. Tingkatkan motivasi belajar, dalam menghadapi Ujian Nasional sangat ditentukan oleh tinggi rendahnya motivasi pelajar dalam mempersiapkan diri. Pelajar akan memiliki semangat  belajar yang dahsyat manakala memiliki motivasi yang kuat dan hebat.

e. Datangkan guru pendamping belajar / les privat agar belajar lebih kondusif.

Sekian 5 tips untuk menghadapi ujian nasional yang dapat saya sampaikan, jangan lupa berdo'a. Bagaimanapun usaha kita semua yang menentukan adalah Allah Swt. Wassalamu'alikum wr.wb.

Pengukuran luas satuan persegi dan are

Assalamu'alikum. wr. wb.

Pengukuran luas pada dasarnya adalah satuan persegi dari kilometer persegi sampai centimeter persegi, setiap turun satu trap dikali 100, setiap naik satu trap dibagi 100. Lebih jelasnya lihat trap persegi berikut:

Contoh:

1 m2  =  100 dm2  (1  x 100 )

1000 cm2  = 10 dm2 (1000 / 100)

Selain persegi satuan luas yang lain adalah are setiap turun 1 trap dikali 10 dan setiap naik satu trap dibagi 10, untuk lebih jelasnya lihat uraian berikut:

ka

    | ha

          | daa

                 |a

                   | da

                        |ca

                            |ma

ka = kilo are

ha = hekto are

daa = deka are

a = are

da = desi are

ca = centi are

ma = mili are

1 ka = 10 ha

1 ha = 10 daa

1 daa= 10 a

1 a = 10 da

1 da = 10 ca

1 ca = 10 ma

1 ka = 10 ha

  = 100 daa

  = 1.000 a

  = 10.000 da

  = 100.000 ca

  = 1.00.000 ma

1 ha = 10 daa

  = 100 a

  = 1.000 da

  = 10.000 ca

  = 100.000 ma

1 daa= 10 a

  = 100 da

  = 1.000 ca

  = 10.000 ma

1 a = 10 da

  = 100 ca

  = 1.000 ma

1 da = 10 ca

  = 100 ma

Hubungan antara are dan persegi

1 hektar = 10.000 m2

1 are = 1 dam2 = 100 m2

1 ca = 1 m2

Sekian yang dapat saya sampaikan tentang pengukuran luas, semoga bermanfaat. Wassalamu'alikum wr.wb.

Program Kalkulator Menggunakan Delphi

Assalamu'alikum wr.wb.
Program kalkulator menggunakan delphi dengan desain formnya sebagai berikut:

Baris program
procedure TfrmKalkulatorSederhana.btnAplusBClick(Sender: TObject);
var A, B, C  : real;
begin
   A:=StrToFloat(edtA.Text);
   B:=StrToFloat(edtB.Text);
   C:=A+B;
   edtC.Text:=FloatToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnAminBClick(Sender: TObject);
var A, B, C  : real;
begin
   A:=StrToFloat(edtA.Text);
   B:=StrToFloat(edtB.Text);
   C:=A-B;
   edtC.Text:=FloatToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnAkaliBClick(Sender: TObject);
var A, B, C  : real;
begin
   A:=StrToFloat(edtA.Text);
   B:=StrToFloat(edtB.Text);
   C:=A*B;
   edtC.Text:=FloatToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnAbagiBClick(Sender: TObject);
var A, B, C  : real;
begin
   A:=StrToFloat(edtA.Text);
   B:=StrToFloat(edtB.Text);
   C:=A/B;
   edtC.Text:=FloatToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnAmodBClick(Sender: TObject);
var A, B, C  : integer;
begin
   A:=StrToInt(edtA.Text);
   B:=StrToInt(edtB.Text);
   C:=A mod B;
   edtC.Text:=IntToStr(C);
end;
procedure TfrmKalkulatorSederhana.btnResetClick(Sender: TObject);
begin
  edtA.Text := '';
  edtB.Text := '';
  edtC.Text := '';
  edtA.SetFocus;
end;
procedure TfrmKalkulatorSederhana.btnCloseClick(Sender: TObject);
begin
     close
end;
end.

Tampilan program:

Sekian yang dapat saya sampaikan tentang pembuatan program kalkulator sederhana menggunakan delphi, semoga bermanfaat. Wassalamu'alikum wr.wb.

Program luas dan keliling persegi panjang

Program Delphi Menghitung Luas dan Keliling Persegi Panjang

Assalamu'alikum wr.wb.
Program menghitung luas dan keliling persegi panjang dengan delphi, desain formnya adalah sebagai berikut:

Baris Program, botton1 untuk hitung, button2 untuk reset, dan button3 untuk close:

procedure TfrmPersegiPanjang.btnHitungClick(Sender: TObject);
var Panjang, Lebar, Luas, Keliling: Real;
begin
    Panjang:=StrToFloat(edtPanjang.Text);
    Lebar:=StrToFloat(edtLebar.Text);
    Luas:=Panjang*Lebar;
    Keliling:=(Panjang+Lebar)*2;
    edtLuas.Text:=FloatToStr(Luas);
    edtKeliling.Text:=FloatToStr(Keliling);
end;
procedure TfrmPersegiPanjang.btnResetClick(Sender: TObject);
begin
    edtPanjang.Text:='';
    edtLebar.Text:='';
    edtLuas.Text:='';
    edtKeliling.Text:='';
    edtPanjang.SetFocus;
end;
procedure TfrmPersegiPanjang.btnCloseClick(Sender: TObject);
begin
     close;
end;
end.

Tampilan

Sekian yang dapat saya sampaikan semoga bermanfaat, wassalamu'alikum wr.wb.

Program Delphi Menghitung Luas Persegi Panjang

Assalamu'alikum wr.wb.

Desain Formnya menghitung luas Persegi Panjang dengan Delphi adalah sebagai berikut:

Baris Program botton1 untuk hitung, botton2 untuk reset, dan button3 untuk tutup :

procedure TForm1.Button1Click(Sender: TObject);

var Panjang, Lebar, Luas : Real;

begin

     //baca panjang dan lebar

   Panjang := StrToFloat(edit1.Text);

   Lebar := StrToInt(edit2.Text);

   //hitung luas

   Luas := Panjang * Lebar;

   //tampilkan luas

   edit3.Text := FloatToStr(Luas);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

    edit1.Text := '';

    edit2.Text := '';

    edit3.Text := '';

    edit1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

end.

Tampilan

Sekian yang dapat saya sampaikan tentang delphi program menghitung luas persegi panjang, semoga bermanfaat. Wassalamu'alikum wr.wb.

Program menghitung volume tabung

Program Delphi Menghitung Luas Tabung

Assalamu'alikum wr.wb.

Membuat program menghitung luas dan volume tabung pada delphi, untuk desain formnya adalah sebagai berikut :

Baris Program Tabung botton 1 untuk hitung, botton2 untuk reset, dan botton3 untuk close:

procedure TForm1.Button1Click(Sender: TObject);
  var t,r,l,v:Real;
begin
  t:=StrToFloat(Edit1.Text);
  r:=StrToFloat(Edit2.Text);
  v:=(22/7)*r*r*t;
  l:=2*(22/7)*r*(r+t);
  Edit3.Text:=FloatToStr(v);
  Edit4.Text:=FloatToStr(l);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;
end.

Tampilan program menghitung luas dan volume tabung:

Sekian yang dapat saya sampaikan semoga bermanfaat, Wassalamu'alikum wr.wb.

Program volume kerucut

Tes Pola Bilangan TPA beserta kunci jawaban

Assalamu'alaikum wr.wb.

Tes Pola Bilangan pada TPA adalah tes melanjutkan deret angka / huruf yang belum selesai. Pada tes ini bisa kita lihat pola bilangannya untuk menjawab.

Soal pola bilangan
1.  | 92 | 88 | 84 | 80 | 76 | ... | ... |

a. 72 68
b. 68 64
c. 72 64
d. 68 72
e. 72 62

2.  | 3 | 7 | 16 | 35 | 74 | ... | .... |

a. 109  48
b. 148  312
c. 153  312
d. 153  328
e. 158  328

3. | 2 | 3 | 5 | 7 | ... | ... |

a. 9  11
b. 9  12
c. 11  13
d. 13  17
e. 8  9

4. | 4 | 7 | 4 | 7 | 10 | 7 | 10 | ... | ... |

a. 7  16
b. 7  14
c. 7  17
d. 10  18
e. 10  16

5. |  1 | 2 | 4 | 5 | 25 | 26 | ... | ... |

a. 27  54
b. 51  52
c. 27  28
d. 244  255
e. 676  677

6. | 1 | 2 | 6 | 24 | 120 | .... |

a. 144
b. 180
c. 240
d. 480
e. 720

7.  | 1 | 2 | 4 | 8 | 16 | ... | ... |

a. 24  32
b. 8  4
c. 32  66
d. 8  2
e. 32  64

8. |  12  | 13 | 15 | 18 | ... | ... |

a. 19 20
b. 22 27
c. 20 25
d. 22 26
e. 21 25

9. | 2 | 10 | 4 | 8 | 6 | 6 | ... | ... |

a. 8 10
b. 8 2
c. 4  2
d. 10  12
e. 8  4

10. | 81 | 64  | 72 | 56 | 63 | 48 | 54 | 40 | 45 | ... | ... |

a. 31  36
b. 32  36
c. 32  37
d. 30  35
e. 36  32

11. | 1 | 3 | 7 | 15 | ... | .... |

a. 20 26
b. 30 60
c. 31  63
d. 31  62
e. 22  29

12.  | 9  | 9 | 9 | 6 | 9 | 3 | ... | ... |

a. 9  9
b. 3  9
c. 3  6
d. 9  0
e. 9  10

13. | 4 | 4 | 8 | 4 | 16 | 4 | .. | ... |

a. 32  4
b. 12  44
c. 4  8
d. 16  20
e. 9  3

14. | 18 | 10 | 20 | 12 | 24 | 16 | ... | ... |
a. 8  16
b. 20  28
c. 32  24
d. 9  3
e. 28  24

15. | 0 | 1/2 | 4  1/2  | 1  1/2 |  9 | 2  1/2  | ... | ... |

a. 13  1/2             3  1/2
b. 12                    2  1/2
c. 3  1/2               12  1/2
d. 14  1/2              4 1/2
e. 12  1/4              3  1/4


Jawaban:
1.  a
2.  c
3.  c
4. a
5. e
6. e
7. e
8. b
9. e
10. b
11. c
12. d
13. a
14. c
15. a

Sekian yang dapat saya sampaikan semoga bermanfaat, Wassalamu'alikum wr.wb.
Pola bilangan I

Program menghitung luas kerucut pada delphi

Assalamu'alikum wr.wb.

Pada kesempatan kali ini saya akan membagikan tentang program sederhana delphi menghitung luas dan volume kerucut. 

Langkah pertama masuk ke program dephi kemudian desain form seperti dibawah ini dilengkapi dengan gambar kerucut. Untuk cara memasukan gambar bisa dilihat di Cara masukan gambar

Langkah ke dua masukan baris program di bawah ini dengan cara double klik pada ke tiga button.. button1 untuk Hitung, button 2 untuk reset dan button3 untuk close.

procedure TForm1.Button1Click(Sender: TObject);
 var t,r,s,v,l:Real;
begin
  t:=StrToFloat(Edit1.Text);
  r:=StrToFloat(Edit2.Text);
  s:=StrToFloat(Edit3.Text);
  v:=(1/3)*3.14*r*r*t;
  l:=3.14*r*(r+s);
  Edit4.Text:=FloatToStr(v);
  Edit5.Text:=FloatToStr(l);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Edit5.Text:='';
  Edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;
end.

Dengan klik run maka tampilanya akan seperti di bawah ini :

Sekian yang dapat saya sampaikan tentang program sederhana menghitung luas kerucut menggunakan delphi, semoga bermanfaat.

Wassalamu'alikum wr. wb.

Cara memasukann foto / gambar pada program Delphi

Assalamu'alikum wr. wb.

Pada kesempatan kali ini saya akan membagikan tips cara memasukan foto/gambar kedalam program delphi. 

Langkah pertama masuk ke program delphi kemudian pilih Additional --> double klik pada lmage  atau lebih jelasnya perhatikan gambar dibawah ini :

Langkah kedua pilih picture pada Object Inspector Image--> Load --> Pilih file foto yang ingin dimasukan kemudian klik Ok, untuk lebih jelasnya perhatikan gambar di bawah ini :

Maka hasilnya akan seperti yang ada di bawah ini: 

   

Sekian yang dapat saya sampaikan tentang Insert Picture pada Program Delphi, semoga bermanfaat.

Wassalamu'alikum wr. wb.