Kisi-Kisi Algoritma Pemrograman

Ini adalah kisi-kisi Algoritma Pemrograman yang saya dapatkan, dan sudah saya beri contohnya, semoga bermanfaat untuk teman-teman semua.


1. Pemilihan (If then dan case of)
Taukah kalian, kalau if then dan case of itu fungsinya sama? Cuma dalam penerapannya saja yang berbeda, if then lebih bertele-tele, sedangkan case of lebih simple.
Trus bagaimana dengan flowchartnya? Flowchartnya juga sama.
Ini adalah contoh flowchart pemilihan (if then dan case of).

Ini adalah contoh code if then:

begin
if pilih:=1 then
  begin
  luas_lingkaran;
  end
if pilih:=2 then
  begin
  luas_persegi_panjang;
  end else
  begin
  luas_segitiga;
  end;
writeln(hasil);
end.

dan ini adalah contoh code case of:

begin
case pilih of
1:
  begin
  luas_lingkaran;
  end;
2:
  begin
  luas_persegi_panjang;
  end;
3:
  begin
  luas_segitiga;
  end;
end;
writeln(hasil);
end.

2. Pengulangan(For to do, While do, Repeat Until)
For To Do
Perulangan dengan statemen For digunakan untuk mengulang statemen atau suatu blok statemen berulang kali. Perulangan dengan statemen For dapat berupa perulangan positif dan perulangan negatif.
Contoh:
Program perulangan;
uses wincrt;
var
i:integer;
begin
for i:=1 to 10 do
writeln('Farid Eka Dharma');
readln;
end.

While Do
Penyeleksian kondisi digunakan untuk agar program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Perulangan While – Do tidak dilakukan jika kondisi tidak terpenuhi.
Contoh:
program ulang;
Uses wincrt;
Var
i : Integer;
Begin
i := 0;
While i<6 do

Begin

Write (i:3);

Inc (i); { sama dengan i:=i+1 }
End;
readln;
End.

Repeat Until
            Perintah Repeat . . . Until mirip dengan perintah While . . . Do, yaitu untuk melakukan perulangan jika banyak perulangan yang akan dikerjakan belum diketahui. Perbedaan antara Repeat . . . Until dengan While . . . Do adalah bahwa pada  Repeat  . . . Until statement akan dikerjakan secara berulang-ulang sampai kondisi logika bernilai TRUE.  Dengan demikian selama kondisi bernilai FALSE, maka perulangan akan terus dilakukan.
Pada Repeat . . . Until, pemeriksaan kondisi untuk menentukan benyaknya perulangan setelah statement dikerjakan.  Dengan demikian statement pada perulangan ini akan selalu dikerjakan minimal satu kali.
Contoh:
program ulang;
Uses wincrt;
Var
i : Integer;
Begin
i := 1;
repeat
write('Looping ke: ',i,' ');
writeln('Farid Eka Dharma');
i:=i+1;
until i=10;
readln;
End.

3. Procedure dan Function
Procedur atau sub program adalah salah satu cara untuk menyederhanakan program yang akan kita buat.
Tujuan procodure yang lain adalah untuk membuat kita sebagai programmer untuk fokus pada proses program secara keseluruhan, jadi untuk proses yang membutuhkan detail perhitungan bisa kita selesaikan secara khusus.


Contoh:
 PROGRAM PROCEDURE
program proc_farid;
uses wincrt;
procedure nama;
var nm: string;

begin

write('masukkan nama anda ');

readln(nm);

write('haloo ', nm,' selamat datang di program ini!!');

end;

begin

writeln('-======Program Procedure Input Nama======-');

nama;

readln;

end.

Fungsi adalah suatu bagian program yang mengerjakan satu tugas dan hasilnya biasanya hanya satu.

PROGRAM FUNCTION
program Fungsi_farid;
uses wincrt;
function kecbenda(jarak: integer; waktu:integer) : real;
var kecepatan:real;

begin

kecepatan:= jarak/waktu;

kecbenda:= kecepatan;

end;

var s,t:integer;
kecepatan: real;
begin

writeln('-======Program Fungsi Menghitung Kecepatan======-');

writeln;

write('masukkan jarak(km) : '); readln(s);

write('masukkan waktu(jam) : '); readln(t);

write('Kecepatannya adalah : ', kecbenda(s,t):0:2,' km/jam');

writeln;

writeln('By Farid Eka Dharma');

readln;
end.

4. Array
array(larik) adalah sebuah variable yang dapat menyimpan lebih dari satu nilai sejenis (memiliki tipe data yang sama)
contoh:
Program Contoh_Deklarasi_Array_Beragam;
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('Isi berapa data array yang diperlukan :');Readln(banyak);
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]);
End;
{cetak varibel array}
Writeln('NIM     NAMA     NILAI    UMUR ');
For i:= 1 to banyak Do
Begin
Writeln(Nim[i]:10,' ',Nama[i]:25,' ', Nilai[i]:3:2,' ', Umur[i]:3);
End;
Readln;
End.

Share on Google Plus

About Unknown