kuis pemrograman komputer

UJIAN KD III SEMESTER FEBRUARI – JULI 2010

UNIVERSITAS SEBELAS MARET

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

Mata Kuliah    : Pemrograman Komputer                      Hari/Tgl    :

Jurusan          : Matematika                                         Sifat        :  Tertutup

Dosen           : Titin Sri Martini, S.Si., M.Kom              Waktu      :  100 menit

Bowo Winarno S.Si., M.Kom

Nilai untuk setiap soal terdistribusi di bawahnya

1.Tuliskan dengan statement pascal yang benar

a. Perbedaan procedure dan function

b. jelaskan variable global dan lokal(berikan satu contoh)

 [Nilai :10 +20]

2. Buatlah procedure dan funtcion untuk menghitung volume bola, lengkap dengan main program

[Nilai : 25+25]

3. output dr program berikut jika input…..

  1. Program proc3;
  2. var A, B, C : integer;
  3. function baco( A,B : integer ) : integer;
  4. begin
  5.      Baco := sqrt(A) *B ;
  6. end;
  7. Procedure coba(X, Y : integer);
  8.      var B : integer;
  9.      begin
  10.         B := X;
  11.         Y := Y + B;
  12.         X := Y;
  13.         writeln(B);
  14.         writeln(X);
  15.         writeln(Y);
  16.      end;
  17. begin
  18.      A := 20; B := 27;
  19.      writeln(A);
  20.      writeln(B);
  21.      writeln;
  22.      coba(A, B);
  23.      writeln;
  24.      writeln(A);
  25.      writeln(B);
  26.      C:=Baco(A,B);
  27.      Writeln( C );
  28.      readln;
  29. End.

Leave a comment