Pemrograman Komputer 1-section 2

Setelah materi yang sederhana diujikan buat mid semester trus materi di lanjutkan ke tahap yang menurutku sich lebih kompleks. Harus bener bener belajar buat bisa menguasainya. Ayo latihan sama contoh contoh di bawah ini:
1. Bab 1
Ne semua latihan latihannya.
Program Latihan_Array_1;
Uses Wincrt;
Var
a,b:integer;
tabel: array[1..3,1..2] of integer;
Begin
Write('Tabel 1,1:');Readln(tabel[1,1]);
Write('Tabel 1,2:');Readln(tabel[1,2]);
Write('Tabel 2,1:');Readln(tabel[2,1]);
Write('Tabel 2,2:');Readln(tabel[2,2]);
Write('Tabel 3,1:');Readln(tabel[3,1]);
Write('Tabel 3,2:');Readln(tabel[3,2]);
Writeln;
Clrscr;
For a:=1 to 3 do
Begin
For b:=1 to 2 do
Write(tabel[a,b],' ');
Writeln;
End;
End.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Latihan_Array_2;
Uses Wincrt;
Var
b,k:integer;
tabel: array[1..3,1..3] of integer;
Begin
Write('Berapa baris matrik yang diinginkan? ');Readln(b);
Write('Berapa kolom matrik yang diinginkan? ');Readln(k);
Begin
For b:=1 to b do
Begin
For k:=1 to k do
Begin
Write('Tabel ',b,',',k,':');Readln(tabel[b,k]);
End;
End;
Clrscr;
For b:=1 to b do
Begin
For k:=1 to k do
Write(tabel[b,k],' ');
Writeln;
End;
End;
End.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Latihan_Array_3;
Uses Wincrt;
Var
b,c,k:integer;
tabel1: array[1..10,1..10] of integer;
tabel2: array[1..10,1..10] of integer;
tabel3: array[1..10,1..10] of integer;
Begin
Write('Baris matrik 1? ');Readln(b);
Write('Kolom matrik 1 = Baris matrik 2? ');Readln(c);
Write('Kolom matrik 2? ');Readln(k);
Begin
Writeln('Matrik 1');
For b:=1 to b do
Begin
For c:=1 to c do
Begin
Write('Tabel ',b,',',c,':');Readln(tabel1[b,c]);
End;
End;
Writeln('Matrik 2');
For c:=1 to c do
Begin
For k:=1 to k do
Begin
Write('Tabel ',c,',',k,':');Readln(tabel2[c,k]);
End;
End;
Clrscr;
For b:=1 to b do
Begin
For c:=1 to c do
Write(tabel1[b,c],' ');
Writeln;
End;
Writeln;
For c:=1 to c do
Begin
For k:=1 to k do
Write(tabel2[c,k],' ');
Writeln;
End;
End;
Writeln;
Begin
For b:=1 to b do
For k:=1 to k do
For c:=1 to c do
tabel3[b,k]:=(tabel3[b,k])+((tabel1[b,c])*(tabel2[c,k]));
End;
Begin
For b:=1 to b do
Begin
For k:=1 to k do
Write((tabel3[b,k]),' ');
Writeln;
End;
End;
End.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Latihan_Array_4;
Uses Wincrt;
Var
b,k:integer;
tabel1: array[1..10,1..10] of integer;
tabel2: array[1..10,1..10] of integer;
tabel3: array[1..10,1..10] of integer;
Begin
Write('Baris matrik 1 = Baris matrik 2? ');Readln(b);
Write('Kolom matrik 1 = Kolom matrik 2? ');Readln(k);
Begin
Writeln('Matrik 1');
For b:=1 to b do
Begin
For k:=1 to k do
Begin
Write('Tabel ',b,',',k,':');Readln(tabel1[b,k]);
End;
End;
Writeln;
Writeln('Matrik 2');
For b:=1 to b do
Begin
For k:=1 to k do
Begin
Write('Tabel ',b,',',k,':');Readln(tabel2[b,k]);
End;
End;
Clrscr;
For b:=1 to b do
Begin
For k:=1 to k do
Write(tabel1[b,k],' ');
Writeln;
End;
Writeln;
For b:=1 to b do
Begin
For k:=1 to k do
Write(tabel2[b,k],' ');
Writeln;
End;
Writeln;
Begin
For b:=1 to b do
Begin
For k:=1 to k do
tabel3[b,k]:=tabel1[b,k]+tabel2[b,k];
End;
End;
Begin
For b:=1 to b do
Begin
For k:=1 to k do
Write(tabel3[b,k],' ');
Writeln;
End;
End;
End;
End.



2. Bab 2
Ne juga latihan latihan.
Program Latihan_Function;
Uses Wincrt;
Var
x,y:longint;

Function Tambah(a,b:longint):longint;
Var
Hasil:longint;
Begin
Hasil:=a+b;
Tambah:=Hasil;
End;
Begin
Write('Masukkan bilangan pertama: ');readln(x);
Write('Masukkan bilangan kedua: ');readln(y);
Write('Hasilnya adalah ',(Tambah(x,y)));
end.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Operasi_Tambah_Kurang_Kali_Procedure;
Uses Wincrt;
Procedure Penjumlahan(Var a,b:longint);
Var
c:longint;
Begin
Writeln ('Operasi yang anda pilih adalah Penjumlahan');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
c:=a+b;
Gotoxy (20,7); Writeln ('Hasil Penjumlahan adalah ',c);
End;
Procedure Pengurangan(Var a,b:longint);
Var
d:longint;
Begin
Writeln ('Operasi yang anda pilih adalah Pengurangan');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
d:=a-b;
Gotoxy (20,7); Writeln ('Hasil Pengurangan adalah ',d);
End;
Procedure Perkalian(Var a,b:longint);
Var
e:longint;
Begin
Writeln ('Operasi yang anda pilih adalah Perkalian');
Gotoxy (20,5); Write ('Masukkan bilangan pertama=');readln (a);
Gotoxy (20,6); Write ('Masukkan bilangan kedua=');readln (b);
e:=a*b;
Gotoxy (20,7); Writeln ('Hasil Perkalian adalah ',e);
End;
Var
a,b,c,d,e,i:longint;
f,y,n:string;
Begin
f:='y';
While f='y' do
Begin
Gotoxy (25,3); Writeln ('Menu Opersai Dua Bilangan');
Gotoxy (25,5); Writeln ('1. Penjumlahan');
Gotoxy (25,6); Writeln ('2. Pengurangan');
Gotoxy (25,7); Writeln ('3. Perkalian');
Gotoxy (25,9); Write ('Masukkan Pilihan Anda= '); readln (i);
Clrscr;
Gotoxy (20,3); If i=1 then
Begin
Penjumlahan(a,b);
End
else If i=2 then
Begin
Pengurangan(a,b);
End
else If i=3 then
Begin
Perkalian(a,b);
End
else Writeln ('Pilihan Anda Salah');
Gotoxy (20,9); Write ('Apakah anda ingin mengulang(y/n)?');read (f);
Clrscr;
End;
End.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Latihan_Rekursi_1;
Uses Wincrt;
Function Faktorial(a:real):real;
Begin
If (a=1)then
Faktorial:=1
else
Faktorial:=a*faktorial(a-1);
End;
Var
x:longint;
Begin
Writeln('Berapa Faktorial? ');Readln(x);
Writeln(x,' faktorial ','= ',Faktorial(x):5:0);
End.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Menukar_Nilai_A_dan_C;
Uses Wincrt;
Var
A,B,C:longint;
Function Tukar(Var A1,B1,C1:longint):longint;
Var
temp:longint;
Begin
temp:=A1;
A1:=C1;
C1:=temp;
End;
Begin
Write ('Masukkan Nilai A=');readln (A);
Write ('Masukkan Nilai B=');readln (B);
Write ('Masukkan Nilai C=');readln (C);
Tukar(A,B,C);
Writeln ('Nilai A setelah ditukar ',A);
Writeln ('Nilai B setelah ditukar ',B);
Writeln ('Nilai C setelah ditukar ',C);
End.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Latihan_Rekursi_2;
Uses Wincrt;
Procedure Rekursi(a:integer);
Var
y:integer;
Begin
If a<10>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>.

Program Latihan_Rekursi_3;
Uses Wincrt;
Var
suku,a,b,c: longint;
Function Fibonacci(n:longint):longint;
Begin
If (n=1) then Fibonacci:=a
else
If (n=2) then Fibonacci:=b
else
Fibonacci:=Fibonacci(n-1)+Fibonacci(n-2);
End;
Begin
Write('Masukkan suku pertama dalam deret fibonacci :');readln(a);
Write('Masukkan suku kedua dalam deret fibonacci :');readln(b);
Write('Sampai suku keberapa deret fibonacci yang diinginkan?: ');readln(c);
Writeln;
Writeln('Deret Fibonaccinya adalah sebagai berikut:');
For suku:= 1 to c do
Write(Fibonacci (suku):3);
End.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Latihan_Rekursi_4;
Uses Wincrt;
Var
a:real;
b:real;
Function Pangkat(x:real;n:real):real;
Begin
If n=0 then pangkat:=1
else if n>0 then pangkat:=pangkat(x,n-1)*x
else pangkat:=pangkat(x,n+1)/x;
End;
Begin
Write('Berapa data yang ingin dipangkatkan? ');readln(a);
Writeln;
Write('Data ingin dipangkatkan berapa? ');readln(b);
Writeln;
Write(a:5:0,' pangkat ',b:3:0,' = ');
Write(pangkat(a,b):5:0);
end.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Program Menukar_Nilai_A_dan_B;
Uses Wincrt;
Var
A,B:real;
Procedure Tukar(Var X,Y:real);
Var
penukar:real;
Begin
penukar:=X;
X:=Y;
Y:=penukar;
End;
Begin
Write ('Masukkan Nilai A=');readln (A);
Write ('Masukkan Nilai B=');readln (B);
Writeln ('Nilai A sebelum ditukar',(A):5:0);
Writeln ('Nilai B sebelum ditukar',(B):5:0);
Tukar(A,B);
Writeln ('Nilai A setelah ditukar',(A):5:0);
Writeln ('Nilai B setelah ditukar',(B):5:0);
End.
Abis dech matrinya. Kalo semua udah di pelajari berarti siap siap buat ujian ne...
Waduh harus intens latihan. Semoga oal ujiannya ga susah. Amin
Belajar yuuuu..................