Share : jawaban quis kelas R1B

Lampirkan jawaban kalian disertai nama, npm dan kelas ..
Terima kasih .

STRUKTUR DATA - STRUKTUR SEQUENCE (RUNTUNAN)

Struktur Sequence (Runtunan) adalah Sebuah instruksi yang dikerjakan secara berurutan baris perbaris mulai dari baris pertama hingga baris terakhir, tanpa ada loncatan atau perulangan.

Tiap instruksi dikerjakan satu per satu. 

Tiap instruksi dilaksanakan tepat sekali, tidak ada instruksi yang diulang. 

Urutan instruksi yang dilaksanakan pemroses sama dengan urutan instruksi sebagai tertulis di dalam teks algoritma. 

Akhir dari instruksi terakhir merupakan akhir algoritma.

Berikut ini 5 contoh Program Sequence dalam Pemrograman Pascal beserta hasil Outputnya :

1.       Data Mahasiswa

Program data_mahasiswa;

Uses Crt;

Var nm : String;

npm : Integer;

Begin

Clrscr;

Writeln ('masukkan nama dan NPM ');

Writeln ('-----------------------');

Write ('nama anda : ');

Readln (nm);

Write ('NPM anda : ');

Readln (npm);

End.

Hasil Output :

masukkan nama dan NPM

-----------------------

nama anda : ( dwi )

NPM anda : ( 33333 )

2.       Menghitung Luas keliling Persegi

program persegi;
uses crt;
var
sisi : integer;
keliling, luas : real;
begin
clrscr;

write(' Menghitung luas dan keliling persegi’);

writeln(‘--------------------------------‘);
write('Masukkan sisi persegi: ');

readln(sisi);
keliling := 4 * sisi;

luas := sisi * sisi;

writeln('keliling persegi = ', keliling:0:2);

writeln('luas persegi = ', luas:0:2);

readln;
end.

hasil output:

Menghitung luas dan keliling persegi

-----------------------------

Masukan sisi persegi : 2

keliling persegi = 8.00

luas persegi = 4.00

3.       Menghitung Konversi Suhu Celcius menjadi Reamur dan Farenhait

program Konversi_Suhu;

uses crt;

var
C : integer;

R,F : real;

begin
clrscr;

write(' Menghitung Konversi Suhu Celcius menjadi Reamur dan Farenhait');

writeln(‘----------------------------------------------------------‘);
write('Masukkan suhu celcius: ');

readln(C);
R := 4/5* C;

F := 9/5 * C + 32;

writeln('Suhu dalam Reamur = ', R:2:2);

writeln(‘Suhu dalam Farenhait = ', F:2:2);

readln;
end.

hasil output:

Menghitung Konversi Suhu Celcius menjadi Reamur dan Farenhait

-----------------------------------------------------------

'Masukkan suhu celcius : 37

Suhu dalam Reamur = 29,60

Suhu dalam Farenhait = 98,60

4.       Menghitung Usia

program Menhitung_Usia;

uses crt;

var
tl,ts,umur : integer;

Begin
clrscr;

write(' Menghitung usia’);

writeln(‘-------------‘);
write('Masukkan tahun lahir: ');

readln(tl);

write('Masukkan tahun sekarang: ');

readln(ts);
umur:= ts-tl; 

writeln(‘Usia anda adalah', umur);

readln;
end.

hasil output:

Menghitung usia

-----------------

Masukan tahun lahir : 1994

Masukan tahun sekarang : 2012

Usia anda adalah 18

5.       Menghitung Luas Segitiga

program Luas_Segitiga;

uses crt;

var

A,T: integer;

Luas : real;

begin
clrscr;

write(' Menghitung Luas Segitiga’);

writeln(‘----------------------‘);
write('Masukkan Alas : ');

readln(A);

write('Masukkan Tinggi : ');

readln(T);
Luas:= ½ * A * T; 

writeln(‘Luas Segitiga =', luas:2:2);

readln;
end.

hasil output:

Menghitung Luas Segitiga

----------------------

Masukan Alas : 5

Masukan Tinggi : 10

Luas Segitiga = 25.00

LATIHAN UAS ALGORITMA 1

                                                         ALGORITMA 1

11.  Apa yang dimaksud dengan looping? Ada berapakah yang termasuk dalam statement looping, jelaskan !

2. Berikut ini merupakan potongan dari suatu program Pascal:

for i:=1 to 3 do

begin

for j:=1 to 5 do

write(‘*’);

writeln;         

end;

Jika i dan j bertipe integer dan program dianggap benar, maka output dari potongan program di atas adalah .... jelaskan hasilnya !

                                        

33  Buatlah algoritma pseudecode menggunakan perulangan while do dengan hasil output : “ Teknik      Informatika” sebanyak 5 kali perulangan, jelaskan hasil keluaran algoritma tersebut.

44. Buatlah algoritma pseudecode menggunakan perulangan assending dan descending untuk hasil output :  “ Bahasa Pemrograman Pascal “.

 5.  Apa yang dimaksud dengan tipe data, identifier, unit, judul program, deklarasi, dan statement (pernyataan) dan berikan masing-masing contohnya 

  6. Perhatikan source code pascal dibawah ini :

z := 1; repeat Z := z + 5; x := z – 4; z := x – 1; z := z + 1; until z < 20 write (z);

     Berapakh hasil keluaran source code diatas, jelaskan !

7. 

write(i); sum := sum + i; end; write(sum);

    Penulisan algoritma diatas yang tepat adalah…..

Program pascal Kamus Algoritma input(x) pascal ← true while (x<10) and pascal do output('Teknik Informatika')

 8. 

Jika X = 6, berapakah hasil yang dikeluarkan, jelaskan !

   

9.  Perhatikan potongan program berikut :

for b:= 1 to 3 do for k:=b downto 1 do if k=b then M[B,K] := k else M[B,K] := b;

    Dari prosedur diatas dimungkinkan suatu matriks 3x3, jelaskan hasil output tersebut !

                     

 10. Berikan contoh algoritma yang menggunakan perulangan while do dan repeat until !

                           SELAMAT MENCOBA ... !!! SEMANGAT .. !!!

LATIHAN UAS PEMROGRAMAN 1

LATIHAN SOAL PEMROGRAMAN 1

11. Buatlah program yang dapat melakukan perkalian dua buah bilangan bulat, namun di dalamnya hanya terdapat operator  + ( tidak diperkenankan menggunakan operator  * ). Gunakan tiga buah jenis pengulangan for, while dan repeat until !

                                                                                       

22.  Terdapat program dibawah ini :

Var

i, hasil : integer;

begin

hasil := 1;

for i := 10 to 10 do begin

i := i + 1;

hasil := hasil + i;

end;

writeln(hasil);

end.

Pada program diatas, berapakah nilai yang akan ditampilkan dilayar monitor? Jelaskan? Jika tidak ada nilai, jelaskan ?

33. Buatlah pemrograman pascal dengan menggunakan statement repeat – until yang dapat menentukan nilai pembagi bersama terbesar ( factor persekutuan terbesar ) dari dua buah bilangan  dengan hasil keluaran sebagai berikut: ( Contoh jika bilangan pertama 16 dan bilangan kedua 24 ).

Masukkan bilangan pertama          :  16 Masukakan bilangan kedua            :  24 Pembagi bersama terbesar = 8

44.  Buatlah pemrograman pascal dengan menggunakan statement While-do yang dapat menampilkan bilangan ganjil antara 1 .. 20 dengan hasil output adalah sebagai berikut :

1               3       5      7       9      11      13      15      17      19

55. Terdapat elemen Array  A[1] sampai A[5] dengan indeks array 1 – 5 dan terdapat nilai elemen array sebagai berikut:

Array  A
1	75
2	73
3	78
4	81
5	80

Buatlah pemrograman pascal dengan menggunakan metode beruntun apabila data yang dicari ditemukan dalam array maka program akan menampilkan  indeks dimana data tersebut berada, sebaliknya apabila data tidak ditemukan maka program akan mengembalikan indeks nol.

                                           SELAMAT MENCOBA .... ^_^

Jawaban Statement For, Statement While_do, Statement Repeat Until

Information TREE – STRUKTUR DATA

TREE – STRUKTUR DATA

 Just Check the Google Drive,, in to my circle... 

share for class : S3K, S3L, S3L..
thanks before

Note tambahan While_do

2. Statement While

        { Apabila hanya terdapat satu statement}

  while (kondisi) do

  statement;

{Apabila terdapat lebih dari satu statement}

  while (kondisi) do begin

Statement1;

Statement2;

….

End;

Ada 2 jenis precedure dalam while_do :

prosedur Inc (Increment) artinya menaikkan nilai. Berikut contoh penggunaan prosedur Inc:

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

Inc(I, 2);  {sama dengan i:=  i + 2}

Inc(I, 10);  {sama dengan i:=  i + 10}

Selain procedur Inc,  Bahasa pascal jg menyediakan prosedur Dec (Decrement) artinya menurunkan nilai. Berikut penggunaannya:

Dec(I);  {sama dengan i:=  i - 1}

Dec(I, 2);  {sama dengan i:=  i - 2}

Dec(I, 10); {sama dengan i:=  i - 10}