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):
- Program Menghitung Luas dan Keliling Lingkaran;
- Uses crt;
- Var r, Luas: Integer ; K: real;
- Begin;
- Clc;
- Write(‘Masukan r lingkaran = ’);writeln (r);
- L:=pi()*r*r;
- K:=2*3.14*r;
- Write(‘r :’,r, ‘maka luas Lingkaran : ‘,L,10:2);
- Writeln(‘ dan Keliling Lingkaran : K’,10:3);
- end;
- 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
Posted on 2 Juli 2010, in XYZ(Matematika, Komputer dll). Bookmark the permalink. 20 Komentar.
Taufik's Weblog 
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.
SukaSuka
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
SukaSuka
aslm…bapa!!
untuk yang namanya tidak tercantum diatas, apa berarti nilai nya sudah mencukupi C?
boleh kah juga mengikuti perbaikan nilai?
SukaSuka
w3. yang nimnya tidak tercantum berarti sudah dapat C keatas. Jadi tidak perlu menjawab lagi, dan jangan menjawabkan temannya.
SukaSuka
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
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka
Assalm.Wr.Wb
Pa Maaf, Untuk soal No 1 Baris Ke-11 itu sebenarnya Kesalahan yg Ke-8,Bukan Tanda Senyum.
syukron Pa.
SukaSuka
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
SukaSuka
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.
SukaSuka
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.
SukaSuka
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.
SukaSuka