SOAL UAS STRUKTUR DATA 2016/2017

SOAL UAS STRUKTUR DATA

TAHUN AJARAN 2016/2017

Kerjakan soal berikut !

1.       Buat algoritma dan program pascalnya untuk menghitung volume bola, balok dan kubus

2.       Buatlah  algoritma  dan program pascalnya menggunakan if untuk konversi  dari  nilai  angka  menjadi  nama  hari.  (Asumsi:  1=Senin, 2=Selasa, 3=Rabu, 4=Kamis, 5=Jumat, 6=Sabtu, 7=Minggu)

3.       Buatlah algoritma dan program pascalnya untuk menampilkan deret bilangan genap antara 0 s/d 100 menggunakan repeat!

4.       Buatlah algoritma dan program pascalnya untuk menampilkan deret bilangan prima antara 0 s/d 100 menggunakan while!

5.       Buatlah  algoritma  dan program pascalnya untuk menampilkan  deret  bilangan  menggunakan while (kelipatan di inputkan oleh pengguna)  ...  (berhenti  jika melebihi angka yang ditetapkan oleh pengguna)!

6.       Buatlah  algoritma  dan program pascalnya untuk menampilkan  deret  bilangan  menggunakan repeat (kelipatan di inputkan oleh pengguna)  ...  (berhenti  jika melebihi angka yang ditetapkan oleh pengguna)!

NB :

1.       nim ganjil mengerjakan soal nomor ganjil

2.       nim genap mengerjakan soal nomor genap

3.       jawabab dikumpulkan dalam bentuk softfile ke email tugasnyamahasiwa@gmail.com dengan subject “uas-strukturdata-namalengkap” (tanpa tanda petik) paling lambat 9 juni 2017 pkl 08.30 wib

Read More

Tugas pertemuan 10 struktur data

A. Contoh Prosedur

ketikan program ini di pascal

+++++++++++++++++++++++++++++++

program prosedure;
uses crt;
      procedure hitung(a,b:integer);
      var c:real;
      begin
      c:=a+b;
              writeln('hasil dari penjumlahan : ' ,c:0:2);
      end;

var NU,N:integer;

begin
      clrscr;
      writeln('program hitung penjumlahan');
      write('masukkan angka pertama : ');readln(N);
      write('masukkan angka kedua   : ');readln(NU);
      hitung(N,NU);
readln;
end.

++++++++++++++++++++++++++++++++++

hasil dari eksekusi program tersebut adalah

++++++++++++++++++++++++TUGAS ANDA ADALAH +++++++++++++++++++++

BUAT APLIKASI PASCAL YANG MENGHASILKAN OUTPUT SEPERTI BERIKUT

B. Contoh Fungsi

+++++++++++++TUGAS ANDA ADALAH +++++++++
BUAT APLIKASI PASCAL YANG MENGHASILKAN OUTPUT 

 *******************
HASIL PEKERJAAN DIKIRIMKAN KE
email    := tugasnyamahasiswa@gmail.com
subject := tugas pertemuan 10 pascal
telat      := 24/5/2017 12:00 wib

Read More

deret bilangan prima

Program bil_prima;
uses crt;

var
a,b,c,d : integer;

BEGIN clrscr;
      write('Masukan Bilangan Prima sampai : '); readln(d);
      for a:= 1 to d do
      Begin;
      c:=0;
      for b:=1 to a do
      Begin;
      if a mod b=0 then
      c:=c+1;
      end;

      if c=2 then
      begin;
      write(a,' ');
      write('');
      end;
      end;

      readln;
END.

END.

Read More

modul 2

Menentukan Bilangan

program  penentuan_bilangan;
uses crt;
var a,b,c : integer;
ulang : char;
begin
     clrscr;
    repeat
     write(' masukan nilai a:'); readln(a);
     write(' masukan nilai b:'); readln(b);
     write(' masukan nilai c:'); readln(c);
     writeln('**************************');
     writeln('Nilai a =', a);
     writeln('Nilai b =', b) ;
     Writeln('nilai c =', c);
     if (a>b) and (a>c) then
     writeln (' nilai a paling besar');
     if (b>a) and (b>c) then
     writeln (' nilai b paling besar');
     if (c>a) and (c>b) then
     writeln (' nilai c paling besar')
     else
     Writeln (' ada dua nilai yang sama besar');
     readln;
     writeln;
     write (' coba lagi [y/t]:'); readln(ulang);
     until ulang='t';
end.

Nama hari

program hari;
uses crt;
var
angka : integer;

begin
clrscr;
writeln ('program penentu hari');
writeln ('********************');
writeln;
write ('masukan angka=');
readln (angka);
   case angka of
        1 : writeln ('Hari yang anda Pilih : Senin');
        2 : writeln ('Hari yang anda Pilih : selasa');
        3 : writeln ('Hari yang anda Pilih : Rabu');
        4 : writeln ('Hari yang anda Pilih : Kamis');
        5 : Writeln ('Hari yang anda Pilih : Jumat');
        6 : Writeln ('Hari yang anda Pilih : Sabtu');
        7 : Writeln ('Hari yang anda Pilih : MInggu');
   else
       Begin
       Writeln (' Angka yang dimasukan tidak terdaftar, Masukan angka 1-7');
       end;
   end;
readln;
end.

Read More

Program 1

Program Tulis_hello1;
uses crt;
var
nama,alamat,hobby : string;
begin
     writeln('   Progam penampil data');
     writeln('***********************');
     write('masukan nama   :');
     readln(nama);
     write('masukan Alamat  :');
     readln(alamat);
     write('masukan Hobby  : ');
     readln(hobby);
     writeln;
     writeln('Hallo ',nama,' !!!kamu tinggal di ',alamat,' dan hobbymu adalah ',hobby);
     readln;
end.

----------------------------------------------------------------------------------------------------------------
Dari Contoh Program Diatas modifikasi dan buat tampilan seperti dibawah ini

Read More