Array 3: Dengan Pendeklarasian Variabel Sendiri

• Posted: 10/08/2009 03:28:00 pm
• |
• Author: Java[at]Saindra
• |
• Filed under: Pemrograman Terstruktur

PASCAL SOURCE :

program array3;

uses wincrt;

type
RecordMahasiswa = record
nim: string[10];
nama: string[25];
nilai: real;
umur: byte;
end;

var
DataMahasiswa: array [1..20] of RecordMahasiswa;
banyak, i: integer;

begin

write('Jumlah data yang akan dimasukkan: ');readln(banyak);
writeln('');
for i:=1 to banyak do
begin
write('NIM: ');readln(dataMahasiswa[i].nim);
write('Nama: ');readln(dataMahasiswa[i].nama);
write('Nilai: ');readln(dataMahasiswa[i].nilai);
write('Umur: ');readln(dataMahasiswa[i].umur);
writeln('');
end;

writeln('NIM NAMA NILAI HURUF');
for i:=1 to banyak do
writeln(DataMahasiswa[i].nim:1, DataMahasiswa[i].nama:8, DataMahasiswa[i].nilai:7:2, DataMahasiswa[i].umur:4);

end.


OUTPUT :

This post powered by :




copyright - javaatsaindra.blogspot.com - OSC

• (0) Comments
• Permalink
• RSS 2.0
• 
• 
• 
• 
• 
• 

Array 2: Array Yang Berdiri Sendiri

• Posted: 10/08/2009 03:28:00 pm
• |
• Author: Java[at]Saindra
• |
• Filed under: Pemrograman Terstruktur

PASCAL SOURCE :

program array2;

uses wincrt;

var
nim: array [1..20] of string[10];
nama: array [1..20] of string[25];
nilai: array [1..20] of real;
umur: array [1..20] of byte;
banyak, i: integer;

begin

write('Jumlah data yang akan dimasukkan: ');readln(banyak);
writeln('');
for i:=1 to banyak do
begin
write('NIM :');readln(nim[i]);
write('Nama :');readln(nama[i]);
write('Nilai :');readln(nilai[i]);
write('Umur :');readln(umur[i]);
writeln('');
end;

writeln('NIM NAMA NILAI UMUR');
for i:=1 to banyak do
writeln(nim[i]:1, nama[i]:8, nilai[i]:7:2,' ',umur[i]:4);

end.


OUTPUT:

This post powered by :




copyright - javaatsaindra.blogspot.com - OSC

• (0) Comments
• Permalink
• RSS 2.0
• 
• 
• 
• 
• 
• 

Penjumlahan Matriks Ordo 3x3

• Posted: 10/08/2009 03:26:00 pm
• |
• Author: Java[at]Saindra
• |
• Filed under: Pemrograman Terstruktur

PASCAL SOURCE :


program PenjumlahanMatrik;

uses wincrt;

var
matriks1, matriks2, matriks_hasil: array[1..3, 1..3] of integer;
i, j: integer;

begin

Randomize;
for i :=1 to 3 do {hanya menjalankan for saja}
for j:=1 to 3 do {melakukan 2 statement, makanya harus dikelompokkan dengan begin dan end}
begin
matriks1[i,j]:=random(5);
matriks2[i,j]:=random(5);
end;

writeln('Matriks 1');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(matriks1[i,j]:5);
end;
writeln;
end;

writeln('Matriks 2');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(matriks2[i,j]:5);
end;
writeln;
end;

for i:=1 to 3 do
for j:=1 to 3 do
begin
matriks_hasil[i,j]:=matriks1[i,j] + matriks2[i,j];
end;

writeln('Hasil penjumlahan matriks 1 dan matriks 2');
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(matriks_hasil[i,j]:5);
end;
writeln;
end;

end.


OUTPUT :

NOTE :

Perulangan


i=1
j=1
(i,j)=[1,1]
j=2
(i,j)=[1,2]
j=3
(i,j)=[1,3]

i=2
j=1
(i,j)=[2,1]
j=2
(i,j)=[2,2]
j=3
(i,j)=[2,3]

i=3
j=1
(i,j)=[3,1]
j=2
(i,j)=[3,2]
j=3
(i,j)=[3,3]




This post powered by :




copyright - javaatsaindra.blogspot.com - OSC

• (0) Comments
• Permalink
• RSS 2.0
• 
• 
• 
• 
• 
• 

Array

• Posted: 10/08/2009 03:26:00 pm
• |
• Author: Java[at]Saindra
• |
• Filed under: Pemrograman Terstruktur

PASCAL CODE :

program ContohArray;

uses
WinCrt;

var
larik: array[1..10] of integer;
i: integer;

begin

larik[3]:=45;

{Writeln(larik[1]);
Writeln(larik[5]);
Writeln(larik[2]);}

larik[5]:=50;

{Writeln(larik[3]+larik[5]);}

i:=1;

for i:=1 to 10 do
Writeln('Larik ke [',i,'] nilainya ',larik[i]);

end.



OUTPUT :

Larik ke [1] nilainya 0
Larik ke [2] nilainya 0
Larik ke [3] nilainya 45
Larik ke [4] nilainya 0
Larik ke [5] nilainya 50
Larik ke [6] nilainya 0
Larik ke [7] nilainya 0
Larik ke [8] nilainya 0
Larik ke [9] nilainya 0
Larik ke [10] nilainya 0



This post powered by :




copyright - javaatsaindra.blogspot.com - OSC

• (0) Comments
• Permalink
• RSS 2.0
• 
• 
• 
• 
• 
• 

Pemrograman Terstruktur 1

• Posted: 10/08/2009 03:23:00 pm
• |
• Author: Java[at]Saindra
• |
• Filed under: Pemrograman Terstruktur

Materi struktur data mencakup :

1. Konsep Dasar


2. Tipe Data


3. Struktur Program
   





• Sequence (runtunan)


• Selection (pemilihan)


• Repeat (pengulangan)
  





4. Tipe Terstruktur


5. Modular
   





• Procedure


• Function


• Rekursi
  





6. Studi Kasus
   

Evaluasi :

1. Ujian Akhir : 40%


2. Tugas/Kuis : 15%


3. Final Project : 35%


4. Afektif/Keaktifan : 10%
   

Algoritma

ialah urutan langkah-langkah untuk menyelesaikan masalah
Euclid Algorithm : algoritma untuk menentukan FPB/GCD

• Contoh nyata : Tentukan FPB(48,36)!
  Jawab :
  48 : 1 2 3 4 6 8 12 16 24 48
  36 : 1 2 3 4 6 9 12 18 36
  


• Euclid :
  Diberikan 2 bilangan positif m dan n (m>n)
  FPB diperoleh sbb:
  
  
  
  
  1. Bagilah m dg n, misal sisa = R
  
  
  2. Apakah R = 0?
     
  
  
  
  
  
  • Jika benar, proses berhenti. FPB = n
  
  
  • Jika tidak, teruskan ke langkah 3
  
  
  
  
  
  3. Ulangi langkah ke no 1 dg mengganti m dg n dan mengganti n dg R.
  
  
  
  
  

Pendekatan Pemecahan Masalah

1. Analisis Masalah

Misal: Menentukan persamaan kuadrat! Ax² + Bx + C = 0, A ≠ 0 Input : A, B, C D = B² - 4 A C Kondisi : D > 0 atau D = 0 atau D < 0 Maka akan didapat x₁ dan x₂

2. Desain (Algoritma)


3. Coding


4. Debuging


5. Documenting

Karakteristik Algoritma Yang Baik

1. Dapat menghentikan proses


2. Ada output


3. Boleh tanpa input


4. Tidak boleh ambigu


5. Efisien

Penyajian algoritma ada dua yaitu Bahasa(deskripsi) dan Gambar(flowchart)


This post powered by :




copyright - javaatsaindra.blogspot.com - OSC

• (0) Comments
• Permalink
• RSS 2.0
• 
• 
• 
• 
• 
•