KISI-KISI UAS LOGIKA DAN ALGORITMA
Contoh
Program Luas_segitiga;
Uses wincrt;
Var
a,t,l:real;
Begin
Write(‘masukkan Panjang Alas =’);readln(a);
Write(‘masukkan tinggi =’);readln(t);
L:=a*t/2;
Write(‘luas segitiga =’,L);
End.
LOGIKA=pikiran logis
Algoritma=Urutan
SUSUNAN TEXT ALGORITMA
1. Kepala Algoritma
2. Deklarasi
3. Dekripsi
ALGORITMA
Algoritma Luas Persegi panjang
(untuk mengetahui luas persegi panjang dan panjang dan lebarnya)
Deklarasi
P=real (panjang)
Lb=real (lebar)
L=real (Luas)
Deskripsi
Read (P)
Read (Lb)
L<= P x Lb
Read (L)
SUSUNAN LENGKAP (UMUM) TURBO PASCAL
1. PROGRAM ………………………………….;(NAMA/ JUDUL PROGRAM)
2. USES WINCRT ……………………………..; (USES NAMA UNIT)
3. LABEL ………………………………………; (LABEL)
4. CONST ………………………………………; (KONSTANTA)
5. TYPE …………………………………………; (TYPE)
6. VAR …………………………………………; (VARIABEL)
7. PROCEDURE ……………………………….; (VARIABEL)
8. FUNCTION …………………………………; (FUNGSI)
9. BEGIN ………………………………………;
- STATEMENT
10. END.
Program Luas_Persegi_Panjang;
Uses wincrt;
Var
P,Lb,L:real;
Begin
Write(‘masukkan Panjang =’);readln(P);
Write(‘masukkan Lebar =’);readln(Lb);
L:=P*Lb;
Write(‘luas adalah =’,L);
End.
Program BIO_DATA;
Uses wincrt;
Var
Nama:string(20);
Umur:integer;
Begin
Write(‘Ketik Nama =’);readln(Nama);
Write(‘Ketik Umur =’);readln(Umur);
Writeln;
Writeln(‘Nama =’,Nama);
Writeln(‘Umur =’,umur);
End.
Contoh
Uses wincrt;
Var
A,B:integer;
Begin
A:=6;
B:=5;
Writeln(‘A,’/’,B,’=’,A/B);
Writeln(‘A,’*’,B,’=’,A*B);
Writeln(‘A,’div’,B,’=’,AdivB);
End.
ALGORITMA HARGA BARANG
Deklarasi=
Discon = 0,50
H1,H2,H3: real (harga 1,2,3)
Total, disc, bayar; real ( ……….)
Deskripsi
Read (H1)
Read (H2)
Read (H3)
Total <= H1+H2+H3
Write (total)
Disc<=discon x total
Write (disc)
Bayar<=total – disc
Write (bayar)
Program Harga_Barang;
Uses wincrt;
Const
Discon=0.50;
Var
H1,H2,H3:real;
Total,disc,bayar:real;
Begin
Write(‘harga Barang Pertama =’);readln (H1);
Write(‘harga Barang Kedua =’);readln (H2);
Write(‘harga Barang Ketiga =’);readln (H3);
Total:=H1+H2+H3;
Writeln(‘Total Harga =’,total:2:0);
Disc:=discon*total;
Writeln(‘Total diskon =’,disc:2:0);
Bayar:=total-disc;
Writeln(‘Total Bayar =’,bayar:2:0);
End.
PERULANGAN (LLOPING)
Bahasa pemograman yang berulang-ulang dengan satu perintah
Missal=> for i=n
n + 1
Jenis
1. While ………..do
2. For …………..do (for to do )
3. Repeat ……….until
1. While ………do
Uses wincrt;
Var
i: integer;
begin
i:=0;
while I <= 10 do
begin
writeln (i);
i=i+1
end;
end.
Algoritma diatas
• Judul
(Perulangan lebih kecil atau sama dengan 10)
• Deklarasi
I: integer (variable untuk perulangan I)
• Deskripsi
Ambil nilai awal I
Kerjakan apabila I lebih kecil atau sama dengan 10
Tulis nilai I
Tambahkan I dengan 1
2. FOR ……. Do
Bentuk umum struktur perulangan for ada 2 macam:
1. Ascending, yaitu bentuk perulangan for ….do yang runtutan nilainya menghasilkan perulangan yang naik
2. Descending, yaitu yaitu bentuk perulangan for ….do yang runtutan nilainya menghasilkan perulangan yang turun
For :
Var:= first to last do
Statement
Or for
Var:= first down to last do
Statement
Uses wincrt;
Var
Angka:integer;
Begin
For angka:=1to20 do
Write(angka);
End.
ALGORITMA nya
• Judul
(Perulangan lebih kecil atau sama dengan 20)
• Deklarasi
angka: integer
• Deskripsi
Isikan nilai variable for dari 1 sampai dengan 20
Tulis angka
Program contoh1;
Uses wincrt;
Var
N:integer;
X:real;
K:integer;
Jumlah:real;
Rerata:real;
Begin
Write(‘Jumlah data = ‘); readln(N);
Jumlah:= 0;
For K := 1 to N do
Begin
Write (‘input angka ke’,K,’=’);read(X);
Jumlah:= Jumlah + X;
End;
Rerata:=jumlah / N;
Write (‘Rata-rata nilai adalah’, rerata :5:2);
End.
Program Perpangkatan_dengan_FOR;
Use wincrt;
Var
Angka:real;
P:integer;
Begin
Write(‘ketik angka integer =’); readln (Angka);
Writeln;
For P:=2 to 22 do
Writeln(‘ Pangkat’,P,’dari’,angka:0:0,’=’exp (ln (angka)* P):0:0);
End.
FOR
Uses wincrt;
Var
Angka:integer;
Begin
For angka:= 1 to 20 do
Write (angka);
End.
REPEAT UNTIL
Uses wincrt;
Var
K:integer;
Begin
K:= 1;
Repeat
Writeln (‘Hello’)
K:=K+1;
Until K>10;
End.
WHILE DO
Uses wincrt
Var
I:integer;
Begin
I=0;
While i<= 1o do
Begin
Writeln (i)
I:=i+1;
End;
End.
PERCABANGAN
Kondisi ditulis dalam ekspresi logika Boolean (True & False)
IF – Then – Else
A. EKSPRESI DARI KONDISI ATAU PERCABANGAN
1. satu kondisi (menyatakan semua pernyataan adalah benar)
IF ekspresi Than
…..statement ….
2. dua kondisi yang komplementer
IF ekspresi Than
…..statement 1 …….
Else
….statement 2 ……..
Ekspresi menunjukkan kondisi yang ditulis dalam ekspresi logika dan statement1 adalah aksi yang dilakukan jika ekspresi bernilai true atau kondisi terpenuhi, statement 2 adalah aksi yang dilakukan jika ekspresi bernilai Else.
3. Lebih dari dua kondisi
Menggunakan IF THEN bersarang
IF ekspresi Than
…..statement 1 …….
Else
IF ekspresi Than
…..statement2 …….
Else
……………
IF ekspresi (N-1) Then
…..statement (W-1) …….
Else
…..statement (W) …….
Contoh:
Program angka;
Uses wincrt;
Var
Angka:integer;
Begin
Write(angka:1);readln(angka);
IF (angka>0) or (angka=0) Then
Wriete(‘angka tersebut positif);
Else
Write(‘angka tersebut negative’);
End.
Uses wincrt;
Var
I:string;
Begin
Write (‘kode jurusan :I’);readln(i);
IF i:=TI then
Write (‘i=Teknik Informatika’) else
IF i:= MI Then
Write(‘i=Manajemen Informatika’);
End.
Uses wincrt;
Var
Kd:string;
Begin
Write (‘kode jurusan :’);readln(Kd);
IF Kd:=’TI’ then
Ket:=’Teknik Informatika’
else
IF Kd:= ‘MI’ Then
Ket:=’Manajemen Informatika’
Write(‘jurusannya adalah:’,Ket);
End.
PROSEDUR & FUNGSI
Yaitu membagi sub program
• Prosedur dikenal dalam bahasa pascal merupakan serangkaian statement atau statement abstrak. Setiap prosedur digunakan untuk memecahkan masalah tertentu dan yang diberi nama khusu
• Function adalah ekspresi abstrak. Function melaksanakan aksi tertentu dan mengirim hasilnya dan di beri nama khusu. Function dalam pascal dapat di deklarasikan langsung dalam modul atau program utama atau dalam sebuah unit khusus.
Contoh prosedur
Program Helo;
Use wincrt;
Procedure hello;
Begin
Writeln(‘hallo’);
End;
Begin
Hello;
End.
Program segitiga;
Uses wincrt;
Var
A,T,L:real;
Procedure luas_segitiga;
Begin
Write (‘Alas=’);readln(A);
Write(‘Tinggi =’);readln (T);
L:=A*T/2;
End;
Begin
Luas_segitiga;
End.
Posting Komentar
Posting Komentar