Informasi Tugas Komputer dan Pemrograman

Berikut data mahasiswa yang nilainya dibawah rata – rata, masih saya kasih kesempatan untuk mengerjakan tugas berikut,  dg catatan nilai maksimalnya bisa berubah C asalkan hasil kerjanya menjadi mencukupi untuk dapat C, kalau tidak mencukupi ya mohon maaf mungkin harus mengambil mata kuliah ini lagi tahun depan.

Berikut NIM mahasiswa yg her:

0901250415
0901250417
0901250424
0901250432
0901250445
0901250446
0901250451
0901250456
0901250459
0901250461
0901250463
 
0901250411
0901250412 (matlab)
0901250413
0901250416
0901250440
0901250442
0901250454 (matlab)

Adapun yang warna merah mengerjakan soal matlab karena UTS nya rendah, yang lainnya mengerjakan Turbo Pascal. Soal tugasnya ada di bawah, menjawabnya lewat komentar di blog ini juga. Batas jawaban terakhir diterima tanggal 11 juli 2010.

SOAL TURBO PASCAL:

Tulis dulu NIM, Nama dan kelas A atau B (lihat contoh)

1. Tentukan delapan kesalahan dari penulisan program berikut (sebut baris ke berapa, dan apa salahnya pada baris tersebut, no 1 sd 12 adalah nomor baris saja):

  1. Program Menghitung Luas dan Keliling Lingkaran;
  2. Uses crt;
  3. Var r, Luas: Integer ; K: real;
  4. Begin;
  5. Clc;
  6. Write(‘Masukan r lingkaran = ’);writeln (r);
  7. L:=pi()*r*r;
  8. K:=2*3.14*r;
  9. Write(‘r :’,r, ‘maka luas Lingkaran : ‘,L,10:2);
  10. Writeln(‘ dan Keliling Lingkaran :  K’,10:3);
  11. end;
  12. end.

2. Buatlah program untuk menghitung volume dan luas permukaan balok, inputnya: panjang, lebar dan tinggi, outputnya: volume dan luas permukaan.

SOAL MATLAB:

 

1. Dengan matlab, buatlah program (m-file) untuk menghitung panjang garis pelukis, luas alas, volume dan luas permukaan kerucut dengan ketentuan:

INPUT :

jari – jari alas kerucut (r) dan tinggi kerucut (t) : di input lewat keyboard saat program di jalankan

OUTPUT PROGRAM :

Jari – jari alas kerucut = …(akan muncul jari –jari yg sudah diketik)

Tinggi kerucut = …(akan muncul tinggi yg sudah diketik)

Panjang garis pelukis (s) = …(akan muncul dari hasil perhitungan)

Luas alas kerucut = …(akan muncul dari hasil perhitungan)

Volume kerucut = …(akan muncul dari hasil perhitungan).

2. Tentukan 3 kesalahan penulisan penggalan program matlab berikut:

a = 1, b = 2,
k = 0;
while b-a > 1e-5
    x = (a + b) :2;
    if x^2 > 2
      b := x
    else
          a := x
    end
k = k + 1;
end

Iklan

Posted on 2 Juli 2010, in XYZ(Matematika, Komputer dll). Bookmark the permalink. 20 Komentar.

  1. Kunci Jawaban TURBO PASCAL:

    No.1
    1) Baris ke-1 kesalahannya judul seharusnya tidak menggunakan spasi.
    2) Baris ke-3 kesalahannya integer seharusnya tidak ada, karena akan membatasi input dan outputnya berupa bilangan bulat, sedangkan pi sendiri bukan bilangan bulat. seharusnya var r, L, K: real;
    3) Baris ke-4 kesalahnnya begin seharusnya sesudah tidak menggunakan titik koma.
    4) Baris ke-5 kesalahannya Clc, ini perintah di matlab, seharusnya Clrscr;
    5) Baris ke-6 kesalahannya Writeln seharusnya readln jadi Write(‘Masukan r lingkaran = ‘);readln(r);
    6) Baris ke-7 kesalahannya letak tanda tutup kurung seharusnya L:=pi*(r*r); atau pi*r*r;
    7) Baris ke-10 kesalahannya tanda petik (‘) seharusnya sebelum K dan setelah itu tanda koma, yakni Writeln(‘ dan Keliling Lingkaran : ‘, K,10:3);
    8.) Baris ke-11 kesalahannya ada dua kali end, yakni end; dan end. seharusnya cukup end. yg terakhir saja, boleh juga end; jadi readln;

    No.2
    Program Menghitung_Volume_dan_Luas_Permukaan_Balok;
    uses crt;
    var p, l, t, V, LP: real;
    begin
    clrscr;
    write(‘inputnya = ‘);
    write(‘masukkan nilai panjang = ‘);readln(p);
    write(‘masukkan nilai lebar = ‘);readln(l);
    write(‘masukkan nilai tinggi = ‘);readln(t);
    writeln(‘outputnya = ‘);
    V:=p*l*t;
    LP:=2*(p*l+p*t+l*t);
    writeln(‘volume : ‘,V);
    writeln(‘ Luas Pemukaan Balok : ‘, LP);
    readln;
    end.

    Suka

  2. Contoh Jawaban:
    NIM : 0901250459
    Nama :
    Kelas : A atau B
    Soal : Turbo Pascal

    Jawaban:
    1. kesalahannya:
    1) baris ke -…. kesalahannya ….. seharusnya ….
    2) baris ke …. kesalahannya …. seharusnya….
    dst

    Suka

  3. aslm…bapa!!
    untuk yang namanya tidak tercantum diatas, apa berarti nilai nya sudah mencukupi C?
    boleh kah juga mengikuti perbaikan nilai?

    Suka

    • w3. yang nimnya tidak tercantum berarti sudah dapat C keatas. Jadi tidak perlu menjawab lagi, dan jangan menjawabkan temannya.

      Suka

  4. Ass.wr.wb.Pa! jika maulang semsester brkutnya kwlach mendapat A ,dan jk uln menggawe tgs ne pa kw gen lach dapat B,mohon dipertimbangkan,smlam middle matlab gara2 thpus jawwbannya biz maulan ke no 1 baass shingga kd sawat ge menggawe no.2.mhn prtimbanganya

    Suka

    • Kalau kedepan mengambil lagi ya ada kemungkinan dapat A, namun juga ada kemungkinan tdk lulus juga. Untuk sekarang yg nim nya tercantum diatas maximal dapat C atau bisa juga tetap belum lulus.

      Suka

  5. Nama : Alfianor
    NIM : 0901250413
    Kelas : B
    SOAL TURBO PASCAL:
    1. Tentukan delapan kesalahan dari penulisan program berikut (sebut baris ke berapa, dan apa salahnya pada baris tersebut, no 1 sd 12 adalah nomor baris saja):
    1. Program Menghitung Luas dan Keliling Lingkaran;
    2. Uses crt;
    3. Var r, Luas: Integer ; K: real;
    4. Begin;
    5. Clc;
    6. Write(‘Masukan r lingkaran = ’);writeln (r);
    7. L:=pi()*r*r;
    8. K:=2*3.14*r;
    9. Write(‘r :’,r, ‘maka luas Lingkaran : ‘,L,10:2);
    10. Writeln(‘ dan Keliling Lingkaran : K’,10:3);
    11. end;
    12. end.
    2. Buatlah program untuk menghitung volume dan luas permukaan balok, inputnya: panjang, lebar dan tinggi, outputnya: volume dan luas permukaan.
    Jawab:
    1. Kesalahan pertama terdapat pada baris ke-3 Var r, Luas: Integer ; K: real; yaitu kesalahannya pada kata integer seharusnya dihapus, dan penulisan Luas sudah benar tapi alangkah baiknya Luas diganti L saja, jadi penulisan yang benar adalah Var r, L, K: real;
    Kesalahan kedua terdapat pada baris ke-4 yaitu Begin; seharusnya setelah kata Begin tidak ada titik koma jadi penulisannya yang benar adalah Begin
    Kesalahan ketiga terdapat pada baris ke-5 yaitu Clc; seharusnya ditulis Clrscr;
    Kesalahan keempat terdapat pada baris ke-6 Write(‘Masukan r lingkaran = ’);writeln (r); dan kesalahannya adalah writeln padahal seharusnya ditulis readln, jadi penulisannya seharusnya Write(‘Masukan r lingkaran=’);Readln (r);
    Kesalahan kelima terdapat pada baris ke-7 L:=pi()*r*r; dan kesalahannya terdapat pada tanda kurung seharusnya tanda kurung itu dihilangkan, jadi penulisan yang benar adalah L:=pi*r*r; atau bisa ditulis L:pi*(sqr(r));
    Kesalahan keenam terdapat pada baris ke-9 Write(‘r :’,r, ‘maka luas Lingkaran : ‘,L,10:2); yaitu pada kata write sharusnya ditulis writeln, dan juga pada penulisan’ r :’,r, itu seharusnya dihilangkan, serta penulisan koma setelah huruf L seharusnya diganti titik dua. Sehingga penulisan yang benar adalah Writeln(‘maka luas Lingkaran:’,L:10:2);
    Kesalahan ketujuh terdapat pada baris ke-10 Writeln(‘ dan Keliling Lingkaran : K’,10:3); yaitu kesalahannya terdapat pada penulisan tanda petik satu dan koma setelah K seharusnya tanda petik satu dan koma itu ditulis sebelum huruf K dan setelah huruf K seharusnya tanda titik dua. Dan penulisan yang benar seharusnya Writeln(‘dan Keliling Lingkaran:’,K:10:3);
    Kesalahan Kedelapan terdapat pada baris ke-11yaitu kata end; seharusnya diganti dengan Readln;
    Jadi, program yang benar adalah
    Program Menghitung Luas dan Volume Lingkaran;
    Uses Crt;
    Var r, L, K: real;
    Begin
    Clrscr;
    Write(‘Masukan r lingkaran=’);Readln (r);
    L:=pi*r*r;
    K:=2*3.14*r;
    Writeln(‘maka luas Lingkaran:’,L:10:2);
    Writeln(‘dan Keliling Lingkaran:’,K:10:3);
    readln;
    end.
    2. Buatlah program untuk menghitung volume dan luas permukaan balok, inputnya: panjang, lebar dan tinggi, outputnya: volume dan luas permukaan.

    Program_Menghitung_Volume_dan_Luas_Permukaan_Balok;
    Uses crt;
    Var p, l, t, V, Lp : Real;
    Begin
    Clrscr;
    Write(‘Masukan Panjang Balok:’);Readln(p);
    Write(‘Masukkan Lebar Balok:’);Readln(l);
    Write(‘Masukkan Tinggi Balok:’);Readln(t);
    V:=p*l*t;
    Lp:=2*p*l+2*p*t+2*l*t;
    Writeln(‘Volume Balok:’,V:0:0);
    Writeln(‘Luas Permukaan Balok:’,Lp:0:0);
    Readln;
    End.

    Suka

  6. nama :Deddy Sholihin
    NIM : 0901250417
    kelas : A
    soal: turbo pascal

    1. Kesalahannya :
    a. Baris ke 1 kesalahan nya tidak menggunakan kurung kurawal
    Seharusnya {program menghitung luas dan keliling lingkaran}
    b. Baris ke 3 kesalahannya pada luas: integer;
    Seharusnya L: real;
    c. Baris ke 5 kesalahannya clc;
    Seharusnya clrscr;
    d. Baris ke 6 kesalahannya writeln(r);
    Seharusnya readln(r);
    e. Baris ke7 kesalahannya l:pi0*r*r;
    Seharusnya L:22/7*(r*r);
    f. Baris ke 8 kesalahannya K: 2*3,14*r;
    Seharusnya K:2*22/7*(r);
    g. Baris ke 10 kesalahannya (‘dan keliling lingkaran: K’,10:3);
    Sehausnya(‘dan keliling lingkaran: ‘, K:10:3);
    h. Baris ke11 keasahannya end;
    Seharusnya readln;
    2. {program menghitung luas dan volume balok}
    Uses crt;
    Var l, p, t, L: real; V:real;
    Begin;
    Clrscr;
    Write(‘masukkan l = ‘); readln(l);
    Write(‘masukkan p= ‘); readln(p);
    Write(‘masukkan t= ‘); readln(t);
    V:= l*p*t;
    L:= 2*((l*t)+(p*t)+(l*p));
    Write(‘maka luas balok: ‘, L:10:2);
    Writeln(‘ dan volume balok: ‘, V:10:3);
    Readln;
    End.

    Suka

  7. NIM : 0901250446
    Nama : Norjannah
    Kelas : A
    Soal : Turbo Pascal

    Jawaban:
    No.1
    1) baris ke-1 kesalahannya judul pemrograman tidak menggunakan spasi seharusnya tanda underscore jadi Program Menghitung_Luas_dan_Keliling_Lingkaran;
    2) baris ke-3 kesalahannya Luas, integer, dan tanda titik koma sesudah integer seharusnya var r,L,K: real;
    3) baris ke-4 kesalahannya ada titik koma seharusnya begin
    4) baris ke-5 kesalahannya Clc seharusnya clrscr;
    5) baris ke-6 kesalahannya writeln seharusnya diganti dengan readln
    6) baris ke-7 kesalahannya letak tanda kurung seharusnya L:=pi*(r*r);
    7) baris ke-8 kesalahannya angka 3.14 seharusnya diganti dengan tulisan pi jadi K:=2*pi*r;
    8) baris ke-11 kesalahannya end seharusnya readln jadi readln;

    No.2
    Program Menghitung_Volume_dan_Luas_Permukaan_Balok;
    Uses crt;
    var P, L, T, V, LP :real;
    begin
    clrscr;
    write(‘Masukkan Panjang Balok = ‘);readln(P);
    write(‘Masukkan Lebar Balok = ‘);readln(L);
    write(‘Masukkan Tinggi Balok = ‘);readln(T);
    writeln(‘outputnya = ‘);
    V:=P*L*T;
    LP:=2*(P*L+P*T+L*T);
    writeln(‘Volume Balok = ‘,V:4:2);
    writeln(‘Luas Permukaan Balok = ‘,LP:4:2);
    readln;
    end.

    Suka

  8. NIM : 0901250459
    Nama : Safitriani
    Kelas : A
    Soal : Turbo pascal

    Jawaban:
    No.1
    1)baris ke-1 kesalahan judul pemrograman tidak menggunakan spasi seharusnya tanda under score jadi program menghitung _Luas_dan_Keliling_Lingkaran
    2)baris ke-3 kesalahannya luas,integer,dan tanda titik koma sesudah integer seharusnya Var r,L,k:real;
    3)baris ke-4 kesalahannya ada titik koma seharusnya begin
    4)baris ke-5 kesalahannya Clr seharusnya Clrscr;
    5)baris ke-6 kesalahannya writeln seharusnya diganti dengan readln
    6)baris ke-7 kesalahannya letak tanda kurung seharusnya L:=pi*(r*r);
    7)baris ke-8 kesalahannya angka 3,14 seharusnya diganti dengan tulisan pi jadi K:=2*pi*r,;
    8)baris ke-7 kesalahannya end seharusnya readln

    No.2
    Program Menghitung_Volume_dan_Luas_Permukaan_Balok;
    Uses crt ;
    var P,L,T,V,A :real;
    begin
    clrscr;
    write(‘Masukkan Panjang Balok=’);readln(P);
    write(‘Masukkan Lebar Balok=’);readln(L);
    write(‘Masukkan Tinggi Balok=’);readln(T);
    writeln(‘outputnya=’);
    V:=P*L*T
    A:=2*(P*L+P*T+L*T);
    writeln(‘Volume Balok=’,V:3:1);
    writeln(‘Luas Permukaan Balok=’,A:3:1);
    readln;
    end.

    Suka

  9. NIM:0901250456
    Nama:Rahmini
    Kelas:A
    Soal:Turbo pascal

    Jawabannya:

    no.1
    1)Baris ke-1 kesalahan judul pempograman tidak menggunakan spasi seharus nya tanda under score jadi program menghitung_luas_dan_keliling_lingkaran
    2)baris ke-3 kesalahannya luas,integer,dan tanda titik koma sesudah integer seharusnya Var r,l,k:real;
    3)baris ke-4 kesalahannya ada titik koma seharus nya BEGIN
    4)baris ke-5 kesalahannya Crl seharusnya Crlscr;
    5)baris ke-6 kesalahannya writeln seharusnya diganti dengan readln
    6)baris ke-7 kesalahannya letak tanda kurung seharus nya L:=pi*(r*r);
    7)baris ke-8 kesalahannya angka 3,14 seharusnya diganti dengan tulisan pi jadi k:=2*pi*r,;
    8)baris ke-7 kesalahannya end seharusnya readln;

    No.2

    program menghitung_Volume_dan_luas_permukaan_balok;
    uses crt;
    var P, L, T, V, R :real;
    Begin
    clrscr;
    writeln(‘Input= ‘);
    write(‘masukan panjang balok= ‘);readln(P);
    write(‘masukan lebar balok= ‘);readln(L);
    write(‘masukan tinggi balok= ‘);readln(T);
    writeln (‘output= ‘);
    V:=P*L*T;
    R:=2*(P*L+P*T+L*T);
    writeln(‘Volume Balok= ‘ ,V:6:3);
    writeln(‘Luas Permukaan Balok= ‘, R:6:3);
    readln;
    end.

    Suka

  10. NIM :0901250463
    NAMA :SARTIKA
    KELAS :A
    SOAL :TURBO PASCAL

    NO.1
    1)BARIS KE-1 kesalahan judul pemograman tidak menggunakan spasi seharusnya tanda underscore jadi program menghitung_luas_dan_keliling_lingkaran
    2)Baris ke-3 kesalahannya luas, integer, dan tanda titik koma sesudah integer seharusnya Var r, L, k ; real ;
    3)Baris ke-4 kesalahannya ada titik koma seharusnya begin
    4)Baris ke-5 kesalahannya Clr seharusnya Clrscr ;
    5) Baris ke-6 kesalahannya writeln seharusnnya di ganti dengan readln
    6)baris ke-7 kesalahannya letak tanda kurung seharusnya L : = pi *(r*r) ;
    7)baris ke -8 kesalahannya angka 3,14 seharusnya diganti dengan tulisan pi jadi k = 2*pi*r, ;
    8)Baris ke -7 kesalahannya end seharusnya readln

    No.2
    program menghitung _volume_dan luas_permukaan _balok;
    Uses crt ;
    var panjang, lebar, tinggi : Real ;
    luas_permukaan, volume : Integer;
    begin
    Clrscr ;
    write (‘masukkan panjang balok = ‘) ;readln (panjang);
    Write (‘masukan lebar balok = ‘ ) ;readln (lebar) ;
    Write (‘masukan tinggi balok = ‘ ) ;readln (tinggi) ;
    Luas_permukaan_balok: = 2*(panjang*lebar+panjang*tinggi+lebar*tinggi) ;

    Program menghitung_volume_dan_luas_permukaan_balok ;
    Uses crt ;
    var P,L,T,V,S: real ;
    begin
    clrscr ;
    Write (‘masukan panjang balok = ‘ ); readln (P) ;
    Write (‘masukan Lebar balok = ‘ ); readln (L) ;
    Write (‘masukan Tinggi balok = ‘ ); readln (T) ;
    Writeln *(‘outputnya =’);
    V : = P*L*T
    S : = 2*(P*L+P*T+L*T);
    Writeln (‘Volume balok = ‘, V : 3 : 2);
    Writeln (‘Luas permukaan balok = ‘ , A : 3 :2);
    readln ;
    end.

    Suka

  11. NIM : 0901250451
    NAMA : PUTRI HUTARI
    KELAS : A
    SOAL :TURBO PASCAL

    Jawaban:
    No 1.
    Kesalahannya:
    1)BARIS KE-1 kesalahan judul pemograman tidak menggunakan spasi, seharusnya tanda underscore.jadi judul yang seharusnya:program_menghitung_luas_dan_keliling_lingkaran;
    2)Baris ke-3 kesalahannya luas, integer, dan tanda titik koma sesudah integer seharusnya Var r, L, k ; real ;
    3)Baris ke-4 kesalahannya ada titik koma seharusnya begin tanpa titik koma.
    4)Baris ke-5 kesalahannya Clr seharusnya Clrscr ;
    5) Baris ke-6 kesalahannya writeln seharusnnya di ganti dengan readln
    6)baris ke-7 kesalahannya letak tanda kurung seharusnya L : = pi *(r*r) ;
    7)baris ke -8 kesalahannya angka 3,14 seharusnya diganti dengan tulisan pi jadi k = 2*pi*r, ;
    8)Baris ke -11 kesalahannya end seharusnya readln

    No 2.
    program menghitung _volume_dan luas_permukaan _balok;
    Uses crt ;
    var panjang, lebar, tinggi : Real ;
    luas_permukaan, volume : Integer;
    begin
    Clrscr ;
    write (‘masukkan panjang balok = ‘) ;readln (panjang);
    Write (‘masukan lebar balok = ‘ ) ;readln (lebar) ;
    Write (‘masukan tinggi balok = ‘ ) ;readln (tinggi) ;
    Luas_permukaan_balok: = 2*(panjang*lebar+panjang*tinggi+lebar*tinggi) ;

    Program menghitung_volume_dan_luas_permukaan_balok ;
    Uses crt ;
    var P,L,T,V,S: real ;
    begin
    clrscr ;
    Write (‘masukan panjang balok = ‘ ); readln (P) ;
    Write (‘masukan Lebar balok = ‘ ); readln (L) ;
    Write (‘masukan Tinggi balok = ‘ ); readln (T) ;
    Writeln *(‘outputnya =’);
    V : = P*L*T
    S : = 2*(P*L+P*T+L*T);
    Writeln (‘Volume balok = ‘, V : 3 : 2);
    Writeln (‘Luas permukaan balok = ‘ , A : 3 :2);
    readln ;
    end.

    Suka

  12. NIM : 0901250415
    Nama : Andari Widyastuti
    Kelas : A
    Soal : Turbo Pascal

    Jawaban:
    1. Kesalahannya:
    No.1
    1) Baris ke-1 kesalahannya judul tidak menggunakan spasi seharusnya menggunakan under score jadi Program Menghitung_Volume_dan_Keliling_Lingkaran;
    2) Baris ke-3 kesalahannya integer titik koma, Luas, seharusnya integer tidak ada dan Luas diganti dengan L jdai var r, L, K: real;
    3) Baris ke-4 kesalahnnya titik koma seharusnya sesudah Begin tidak menggunakan titik koma jadi Begin
    4) Baris ke-5 kesalahannya Clc seharusnya Clrscr jadi Clrscr;
    5) Baris ke-6 kesalahannya Writeln seharusnya readln jadi Write(‘Masukan r lingkaran = ‘);readln(r);
    6) Baris ke-7 kesalahannya letak tanda tutup kurung seharusnya L:=pi*(r*r);
    7) Baris ke-8 kesalahannya angka 3.14 seharusnya pi jadi K:=2*pi*r;
    8) Baris ke-11 kesalahannya end seharusnya readln jadi readln;

    No.2
    Program Menghitung_Volume_dan_Luas_Permukaan_Balok;
    uses crt;
    var p, l, t, V, LP: real;
    begin
    clrscr;
    write(‘inputnya = ‘);
    write(‘masukkan nilai panjang = ‘);readln(p);
    write(‘masukkan nilai lebar = ‘);readln(l);
    write(‘masukkan nilai tinggi = ‘);readln(t);
    writeln(‘outputnya = ‘);
    V:=p*l*t;
    LP:=2*(p*l+p*t+l*t);
    writeln(‘volume : ‘,V,4:2);
    writeln(‘dan Luas Pemukaan Balok : LP’,4:2);
    readln;
    end.

    Suka

  13. Muhammad Pahri

    NIM : 0901250440
    Nama :Muhammad Pahri
    Kelas : B
    Soal : Turbo Pascal

    Jawaban:
    Soal_No_1:
    Kesalahannya:
    1) Baris Ke-1,Kesalahannya:Program Mehitung Luas dan Keliling Lingkaran,Seharusnya: Program Menghitung_Luas_dan_Keliling_Lingkaran;
    2) Baris Ke-3,Kesalahannya: Var r, Luas:Integer;K:real;,Seharusnya: Var r, L, K :real;
    3) Baris Ke-5,Kesalahannya: Clc;,Seharusnya:Clrscr;
    4) Baris ke-6,Kesalahannya: Write(‘Masukkan r Lingkaran= ‘);Writeln(r);,Seharusnya: (Writeln) Diganti dengan (Readln).
    5) Baris Ke-7,Kesalahannya: L:=Pi()*r*r;,Seaharusnya: L:=3.14*r*r;
    6) Baris Ke-9,Kesalahannya: Write(‘r:’,r,’maka luas lingkaran:’,L,10:2);,Seharusnya: write(‘Luas lingkaran : ‘,L:10:2);
    7) Baris Ke-10,Kesalahannya: Writeln(‘dan Keliling Lingkaran : K’,10:3);,Seharusnya: Write(‘Keliling Lingkaran : ‘,K:10:3);
    8) Baris Ke-11,Kesalahannya: end;,Seharusnya: Readln;.

    Soal_No_2:
    Program Menghitung_Volume_dan_Luas_Permukaan_Balok;
    Uses Crt;
    Var p, l, t, V, A :real;
    Begin
    Clrscr;
    writeln(‘input: ‘);
    write(‘Masukkan panjang balok = ‘);readln(p);
    write(‘Masukkan lebar balok = ‘);readln(l);
    write(‘masukkan tinggi balok = ‘);readln(t);
    writeln(‘Output:’);
    V:=p*l*t;
    A:=2*(p*l+p*t+l*t);
    writeln(‘Volume balok = ‘, V:12:4);
    writeln(‘Luas Permukaan balok = ‘,A:12:4);
    readln;
    end.

    Suka

  14. Muhammad Pahri

    Assalm.Wr.Wb
    Pa Maaf, Untuk soal No 1 Baris Ke-11 itu sebenarnya Kesalahan yg Ke-8,Bukan Tanda Senyum.
    syukron Pa.

    Suka

  15. NIM : 0901250412
    Nama : Alfiannor
    Kelas : B
    Soal : MATLAB

    Jawaban :
    1.program (m-file) untuk menghitung panjang garis pelukis, luas alas kerucut,volume kerucut dan luas permukaan kerucut,yaiu;

    %menghitung panjang garis pelukis=s
    %menghitung luas alas kerucut=L
    %menghitung volume kerucut=V
    %menghitung luas permukaan kerucut=A
    clear
    clc
    r=input(‘masukkan jari-jari alas kerucut= ‘);
    t=input(‘masukkan tinggi kerucut= ‘);
    s=sqrt(r^2+t^2)
    L=22/7*(r^2)
    V=(22/7*(r^2)*t)/3
    A=(22/7*r*s)+L
    end

    2.kesalahannya:
    1) baris ke-5, kesalahannya if x^2 > 2,seharusnya
    if (‘x^2’) > 2
    2) baris ke-6, kesalahannya b:=x, seharusnya b = x
    3) baris ke-8,kesalahannya a:=x, seharusnya a = x

    Suka

  16. MUHAMMAD SABRI

    NIM : 0901250442
    NAMAN : MUHAMMAD SABRI
    KELAS : B
    SOAL : TURBO PASCAL

    JAWABAN :
    1. KESALAHANNYA:
    1)baris ke-1. kesalahannya nama program ditulis pakai spasi. seharusnya tanpa spasi (MenghitungLuasdanKelilingLingkaran).
    2)baris ke-3. kesalahannya Luas : variabel tidak didefinisi. seharusnya var L : real
    3)baris ke-4. kesalahannya begin; seharusnya begin tanpa ;
    4)baris ke-5 kesalahannya clc; seharusnya penulisannya clrscr;
    5)baris ke-6 kesalahannya kata writeln seharusnya menggunakan readln
    6)baris ke-7 kesalahannya pi() nilainya tidak didefinisikan seharusnya definisikan dulu nilai pi() nya itu berapa
    7)baris ke-9 kesalahannya “,L,10:2” seharusnya L:10:2
    8)baris ke-10 kesalahannya K’10:3 seharusnya K:10:3 karena nilai “K” tidak ada
    9)baris ke-11 kesalahannya end; seharusnya tidak perlu end; langsung menggunakan end.

    2. program menghitung volume dan luas permukaan balok

    Program menghitungVolumedanLuasPermukaanBalok;
    uses crt;
    var p,l,t,volume,luas:real;
    begin
    clrscr;
    write (‘panjang : ‘);readln (p);
    write (‘lebar : ‘); readln (l);
    write (‘tinggi : ‘); readln (t);
    volume := p*l*t;
    luas := (p*l)+(p*t)+(l*t);
    writeln ( ‘ Volume = ‘, volume :2:0);
    writeln ( ‘ Luas = ‘, luas :2:0);
    end.

    Suka

  17. Nim : 0901250416
    Nama : Anisa Syahidah
    Kelas : B
    Jawaban :
    1. Kesalahannya
    1) baris ke-3 kesalahannya Var r,Luas:Integer;K:real; seharusnya Var r,Luas,K:real;
    2) baris ke-4 kesalahannya Begin; seharusnya Begin
    3) baris ke-5 kesalahannya Clc; seharusnya Clrscr;
    4) baris ke-6 kesalahannya writeln (r) seharusnya readln (r)
    5) baris ke-7 kesalahannya L:=pi()*r*r seharusnya L:=3.14 *r*r
    6) baris ke-10 kesalahannya K’,10:3 seharusnya K’,10:2
    7) baris ke-11 kesalahannya end; seharusnya readkey;

    2. Membuat program untuk menghitung volume dan luas permukaan balok

    Program Menghitung Volume dan Luas Permukaan Balok;
    Uses crt;
    Var p,l,tvolume,luas:real;
    Begin
    Clrscr;
    Write (‘panjang: ‘);readln (p);
    Write (‘lebar: ‘);readln (l);
    Write (‘tinggi: ‘);readln (t);
    V:=p*l*t;
    L:=(p*l)+(p*t)+(l*t);
    Writeln (‘Volume=’,volume:2:0);
    Writeln (‘Luas=’,luas:20:0);
    Readkey;
    End.

    Suka

  18. Assalamu’alikum bapak, maaf jawaban saya kemaren ada kesalahan, ini yg baru :
    NIM : 0901250461
    Nama : Samsul Bahri
    Kelas: A
    Soal: turbo pascal

    1.jawabannya;
    a.pada baris ke- 3, salahnya pada ‘var r,Luas : integer ; k : -real ;’
    seharusnya : var r,K,L : real;
    b. pada baris ke-1, salahnya pada ‘menghitung’
    seharusnya : Program Luas_dan_Keliling_lingkaran;
    c. pada baris ke-5, salahnya pada ‘clc;’
    seharusnya: clrscr;
    d.pada baris ke-6, salahnya pada ………………….writeln(r)’
    seharusnya: …………………………..readln(r);
    e. pada baris ke-7, salahnya pada pi()
    seharusnya: L:=3,14*r*r;
    f. pada baris ke-9, salahnya pada ‘r:’r,’ dan L,
    seharusnya: write(’maka Luas Lingkaran:’ ,L:10:2);
    g. pada baris ke-10, salahnya pada K’,
    seharusnya: writeln(‘Dan Keliling Lingkaran:’ ,K:10:3);
    h. pada baris ke-11, salahnya pada’end’
    seharusnya: readln;

    2.jawabannya;
    a.Program Volume_dan_Luas_Permukaan_Balok;
    b.uses crt;
    c. var p,l,t,V,LpB : real;
    d.begin
    e.clrscr;
    f.write(‘masukkan p balok = ‘);readln(p);
    g. write(‘masukkan l balok = ‘);readln(l);
    h. write(‘masukkan t balok = ‘);readln(t);
    i.V:=p*l*t;
    j.L:=2*(p*l+p*t+l*t);
    k.writeln(’maka Volume balok =’ ,V:8:2);
    l.write(‘Dan Luas permukaan balok =’ ,LpB:8:4);
    m.readln;
    n.end.

    Suka

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s