Perhatikan potongan program berikut ini! WRITELN('HARGA = ', HARGA); WRITELN('KELAS = ', KELAS); WRITELN('DISKON = ', DISKON:0:0); WRITELN('TOTAL TAGIHAN = ', TAGIHAN:0:0); READLN;READLN;READLN; Berdasarkan potongan program diatas, apakah fungsi dari WRITELN('DISKON = ', DISKON:0:0); ...
1. Perhatikan potongan program berikut ini! WRITELN('HARGA =', HARGA); WRITELN('KELAS =', KELAS); WRITELN('DISKON =', DISKON:0:0); WRITELN('TOTAL TAGIHAN =', TAGIHAN:0:0); READLN;READLN;READLN; Berdasarkan potongan program diatas, apakah fungsi dari WRITELN('DISKON =', DISKON:0:0); ...
Program Pascal
writeln('DISKON =',DISKON:0:0); --> mencetak atau menampilkan isi variabel diskon ke layar dengan bilangan bulat
Semoga Membantu
2. KERJAKAN 2 PROGRAM DI BAWAH INI DI HAPE KALIAN. PROGRAM 1. program Konversi-suhu; uses crt; var suhu : integer; lagi ; char; f : real; Begin repeat writeln('___________________________'); writeln( KONVERSI SUHU '); writeln(' CELCIUS KE FAHRENHEIT ); writeln('___________________________'); writeln; write('Ketik Angka Suhu Derajat Celcius =') readln(suhu); writeln; f := 1.8 * suhu + 32; writeln('Suhu dalam Celcius =',suhu); writeln('Suhu dalam Fahreinheit =',f:0:2) writeln; write('Tekan Y Untuk menghitung lagi atau T untuk keluar = ); readln(lagi); until UPCASE(lagi) <> Y; End PROGRAM 2. programlagu_anak_ayam uses crt; var anak_ayam,I; integer; begin clrscr; writeln(==============); writeln('Lagu Anak Ayam'); writeln('=============='); writeln; write('Input jumlah anak ayam: '); readln(anakayam); writeln; for i := anak_ayam downto 1 do begin writeln('Anak ayam turun ',i,' pergi 1, tinggal ',i-1); end readln; end.
Jawaban:
bagaimana?
Penjelasan:
yang program pertama, loop REPEAT ... UNTIL. Perulangan terus dilakukan hingga kondisi tertentu dipenuhi.
yang program kedua, loop FOR TO DO. perulangan yang dilakukan dalam rentang tertentu.
3. perbedaan write dan writeln pada bahasa pemrograman
perbedaan write dan writeln yaitu;
#write
-perintah write di gunakan untuk menulis output,dengan posisi cutsor petunjuk arah,terletakpada akhir output yg di tampilkan pada garis yg sama
#writeln
-perintah writeln di gunakan untuk menulis output dengan posisi cursor petunjuk aktif,terletak pada awal baris berikutnya
JADI PERBEDAANNYA YAITU;
-KALAU WRITE TERLETAK PADA AKHIR OUTPUT
-KALAU WRITELN TERLETAK PADA AWAL BARISS
TERIMA KASIH^-^
4. Tipe variabel ekspresi manakah yang tidak dapat ditampilkan dengan procedure Writeln ?
Tipe data enumerasi. Tipe data enumerasi tidak dapat ditampilkan dengan perintah Writeln.
5. 1. Apa fungsi interge di pemograman pascal?2. Apa fungsi Writeln di pemograman pascal?
1.Integer dalam pascal berfungsi sebagai tipe data yg bisa digunakan untuk angka maupun huruf
2.Writeln dalam pascal berfungsi agar ad enter kebawah(tidak berdempet kesamping)
Smoga mmbntu
6. Program input;Uses Crt,Var nm : String,npm : String;BeginClrscr;Writeln ('masukkan nama dan NPM ');Writeln (-Write ('nama anda : ');Readln (nm);Writeln ('NPM anda : ');Readin (npm);End.Dari program input/output menggunakan pascal diatas, jawablah pertanyaan di bawah ini.1. Uses crt, maksud dari perintah ini adalah...2. Tipe apa variabel yang digunakan dalam program tersebut?3. Apa perbedaan hasil writeln dan write?4.Apa fungsi dari perintah Clrscr?5. Hasil yang dikeluarkan oleh program sederhana diatas adalah....
Jawaban:
1. uses crt = clrscr, fungsinya untuk memberi perintah membersihkan layar/jendela program. crt digunakan pada awal program.
2. tipe data String.
3. writeln: mencetak hasil pada baris baru, sedangkan write: mencetak hasil program pada baris yang sama dengan hasil terakhir yang dicetak program.
4. clrscr, fungsinya untuk memberi perintah membersihkan layar/jendela program.
5. hasil yang dikeluarkan adalah,
nama anda : ...... (nama yang anda masukkan)
NPM anda : ....... (npm yang anda masukkan)
7. Tipe variabel ekspresi manakah yang tidak dapat ditampilkan dengan procedure Writeln ?
Jawaban:
Type T=(Small, Medium, Large) Pembahasan: Opsi ini adalah tipe data enumerasi. Tipe data enumerasi tidak dapat ditampilkan dengan perintah Writeln.
Penjelasan:
maaf kalo salah...
8. Please bantu saya !!! program pegadaian; uses wincrt; var annualrate,balance,interest,payment,monthlyrate:real; j,month:integer; begin writeln('what is the current mortgage balance?'); writeln('omit $.'); readln(balance); writeln('what is the annual interest rate?'); writeln('omit %.'); readln(annualrate); writeln('what is the monthly payment?'); writeln('omit $.'); readln(payment); monthlyrate:=annualrate/12; monthlyrate:=0.01*monthlyrate;{express as decimal} writeln('the next 12 months;'); writeln;{blank line before table} writeln('Month':10,'interest':10,'balance':10); for j:=1 to 30 do{draw a line under the heading} write('_'); writeln;{move to beginning of next line} writeln;{leave a blank} for month:=1 to 12 do begin interest:=monthlyrate*balance; balance:=balance+interest-payment; write(month:10); write(interest:10:2); write(balance:10:2); end; end. 1. LACAK PERUBAHAN NILAI VARIABELNYA 2. DESKRIPSIKAN ALGORITMA PROGRAM DENGAN PSEUDOCODE 3. PECAHKAN PROGRAM DALAM MODUL-MODUL MENGGUNAKAN PROCEDURE
1. Lacak perubahan variabel...
ada di baris ini, saya jelaskan perbaris
-interest:=monthlyrate*balance;
pada syntax ini, variabel "interest" merupakan perkalian dari "monthlyrate" dan "balance", arti nya value var ini pasti berubah.
- balance:=balance+interest-payment;
pada syntax ini, variabel "balance" merupakan hasil dari "balance+interest-payment", arti nya value var ini pasti berubah.
untuk variabel "annualrate", tidak ada perubahan nilai,,, karena hanya di pake untuk perkalian saja, pada baris ini
monthlyrate:=annualrate/12;
utk var monthlyrate, dia berubah value pada baris ini
monthlyrate:=annualrate/12;
monthlyrate:=0.01*monthlyrate;{express as decimal}
2. Pseudocode nya
1. Masukan Value "balance", "annualrate" dan "payment"
2. hitung mountlyrate <- annualrate/12
3. hitung monthlyrate:=0.01*monthlyrate;
4. cetak garis untuk pembatas
5. perulangan dari bulan 1 sampe ke 12
6. setiap perulangan hitung interest dan balance
7. interest:=monthlyrate*balance;
8. balance:=balance+interest-payment;
9. Cetak hasil perhitungan
3. Pecah program pake procedure
program pegadaian;
uses wincrt;
{INI PROCEDURE NYA}
Procedure count(var interest : real; var payment : real; var monthlyrate : real; var balance : real);
var month:integer;
Begin
for month:=1 to 12 do
begin
interest:=monthlyrate*balance;
balance:=balance+interest-payment;
write(month:10);
write(interest:10:2);
write(balance:10:2);
end;
End;
var
annualrate,balance,interest,payment,monthlyrate:real;
j,month:integer;
begin
writeln('what is the current mortgage balance?');
writeln('omit $.');
readln(balance);
writeln('what is the annual interest rate?');
writeln('omit %.');
readln(annualrate);
writeln('what is the monthly payment?');
writeln('omit $.');
readln(payment);
monthlyrate:=annualrate/12;
monthlyrate:=0.01*monthlyrate; {express as decimal}
writeln('the next 12 months;');
writeln;{blank line before table}
writeln('Month':10,'interest':10,'balance':10);
for j:=1 to 30 do { draw a line under the heading}
write('_');
writeln;{move to beginning of next line}
writeln;{leave a blank}
{ PADA BAGIAN INI ADALAH UTK PEMANGGILAN PROCEDURE }
count(interest, payment, monthlyrate, balance);
end.
9. Perhatikan kode program di bawah ini, Berikan output kode program tersebut, serta beri penjelasan dengan coment di sourcodenya, ? uses crt; var a,b,c,d,e,f,g,h:integer; begin; clrscr; a:= 9; b:= 8; c:= 3 ; d:= a and b XOR c + 3 * 2 ; writeln(d); E := 3 * 11 + 9 MOD 3 + 3 * 2 OR a ; writeln ( E ); F := 15 MOD 3 * 3 + 20 DIV 4 + b ; writeln ( F ); G := 25 + 12 * 4 DIV 3 * 6 MOD c * 2 ; writeln ( G ); H := 31 - 16 * 4 DIV 8 MOD a + 12 and b ; writeln ( H ); readln; end.
Jawaban:
operator aritmatika di dalam pascal:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program operator_aritmatika;
uses crt;
var
a,b,c,d,e,f,g,h:integer;
begin
clrscr;
a:=8+4;
b:=9-2;
c:=2*3;
d:=10+3-7*4;
e:=((10+3)-7)*4;
f:=-79;
writeln('a: ',a);
writeln('b: ',b);
writeln('c: ',c);
writeln('d: ',d);
writeln('e: ',e);
writeln('f: ',f);
readln;
end.
Penjelasan:
jika salah mohon maaf, tetap bersemangat belajar dan stay at home
10. Diberikan Algoritma dan Program berikut ini: Program Aritmatika; Uses crt; Var a,b,c,d : integer; Begin Clrscr; writeln (‘Masukan Bilangan 1:’); readln (a); writeln (‘Masukan Bilangan 2:’); readln (b); c:=a mod b; d:=a div b; e:= a/b; writeln (c); writeln (d); writeln (e); readln; End. Jika a = 57, b=2. maka keluarannya adalah? Dan berikan alasannya
Jawaban:
c = 1
d = 28
e = 28
Penjelasan:
Untuk mod adalah dengan mengambil sisa hasil baginya, sedangkan div atau / untuk mengambil hasil baginya
Terima Kasih,
^_^
11. please help me!!!! program pegadaian; uses wincrt; var annualrate,balance,interest,payment,monthlyrate:real; j,month:integer; begin writeln('what is the current mortgage balance?'); writeln('omit $.'); readln(balance); writeln('what is the annual interest rate?'); writeln('omit %.'); readln(annualrate); writeln('what is the monthly payment?'); writeln('omit $.'); readln(payment); monthlyrate:=annualrate/12; monthlyrate:=0.01*monthlyrate;{express as decimal} writeln('the next 12 months;'); writeln;{blank line before table} writeln('Month':10,'interest':10,'balance':10); for j:=1 to 30 do{draw a line under the heading} write('_'); writeln;{move to beginning of next line} writeln;{leave a blank} for month:=1 to 12 do begin interest:=monthlyrate*balance; balance:=balance+interest-payment; write(month:10); write(interest:10:2); write(balance:10:2); end; end. 1. LACAK PERUBAHAN NILAI VARIABELNYA 2. DESKRIPSIKAN ALGORITMA PROGRAM DENGAN PSEUDOCODE 3. PECAHKAN PROGRAM DALAM MODUL-MODUL MENGGUNAKAN PROCEDURE
1. Lacak perubahan variabel...
ada di baris ini, saya jelaskan perbaris
-interest:=monthlyrate*balance;
pada syntax ini, variabel "interest" merupakan perkalian dari "monthlyrate" dan "balance", arti nya value var ini pasti berubah.
- balance:=balance+interest-payment;
pada syntax ini, variabel "balance" merupakan hasil dari "balance+interest-payment", arti nya value var ini pasti berubah.
untuk variabel "annualrate", tidak ada perubahan nilai,,, karena hanya di pake untuk perkalian saja, pada baris ini
monthlyrate:=annualrate/12;
utk var monthlyrate, dia berubah value pada baris ini
monthlyrate:=annualrate/12;
monthlyrate:=0.01*monthlyrate;{express as decimal}
2. Pseudocode nya
1. Masukan Value "balance", "annualrate" dan "payment"
2. hitung mountlyrate <- annualrate/12
3. hitung monthlyrate:=0.01*monthlyrate;
4. cetak garis untuk pembatas
5. perulangan dari bulan 1 sampe ke 12
6. setiap perulangan hitung interest dan balance
7. interest:=monthlyrate*balance;
8. balance:=balance+interest-payment;
9. Cetak hasil perhitungan
3. Pecah program pake procedure
program pegadaian;
uses wincrt;
{INI PROCEDURE NYA}
Procedure count(var interest : real; var payment : real; var monthlyrate : real; var balance : real);
var month:integer;
Begin
for month:=1 to 12 do
begin
interest:=monthlyrate*balance;
balance:=balance+interest-payment;
write(month:10);
write(interest:10:2);
write(balance:10:2);
end;
End;
var
annualrate,balance,interest,payment,monthlyrate:real;
j,month:integer;
begin
writeln('what is the current mortgage balance?');
writeln('omit $.');
readln(balance);
writeln('what is the annual interest rate?');
writeln('omit %.');
readln(annualrate);
writeln('what is the monthly payment?');
writeln('omit $.');
readln(payment);
monthlyrate:=annualrate/12;
monthlyrate:=0.01*monthlyrate; {express as decimal}
writeln('the next 12 months;');
writeln;{blank line before table}
writeln('Month':10,'interest':10,'balance':10);
for j:=1 to 30 do { draw a line under the heading}
write('_');
writeln;{move to beginning of next line}
writeln;{leave a blank}
{ PADA BAGIAN INI ADALAH UTK PEMANGGILAN PROCEDURE }
count(interest, payment, monthlyrate, balance);
end.
12. Perhatikan program pascal berikut:Program cetak;BeginClrscr;Writeln (“Selamat Datang di Laboratorium Komputer');Writeln('MAN');Writeln ('Saya sedang belajar PASCAL');Readkey;End.Jika program tersebut dijalankan (Run), maka program akan mengalami runtime error. Apa yang menyebabkan demikian?
Jawaban:
1. Karena compiler mendeteksi illegal character pada character ", yang harusnya diganti dengan character '
2. Tidak ditemukan Identifier Clrscr
kalau ada salah tolong dikoreksi, semoga membantu
13. 1. Diberikan Algoritma dan Program berikut ini: Program Aritmatika; Uses crt; Var a,b,c,d : integer; Begin Clrscr; writeln (‘Masukan Bilangan 1:’); readln (a); writeln (‘Masukan Bilangan 2:’); readln (b); c:=a mod b; d:=a div b; e:= a/b; writeln (c); writeln (d); writeln (e); readln; End. Jika a = 57, b=2. maka keluarannya adalah? Dan berikan alasannya
Jawaban:
Program Aritmatika;
Uses crt;
Var a,b,c,d : integer;
Begin Clrscr;
writeln (‘Masukan Bilangan 1:’);
readln (a);
writeln (‘Masukan Bilangan 2:’);
readln (b);
c:=a mod b;
d:=a div b;
e:= a/b;
writeln (c); // 1
writeln (d); // 28
writeln (e); // 28.5
readln;
End.
Penjelasan: sudah ya tidak perlu ada penjelasan lagi, kita putus...
14. 1. apa fungsi integer di pemograman pascal2. apa fungsi writeln di pemograman pascal
1. Integer untuk tipe data menyimpan angka
2. writeln untuk mencetak sebuah nilai bisa berrupa string atau integer dll yang diakhir mencetak baris baru
15. Perhatikan source code berikut : a =20; b =10; c = a + b; writeln('21 + 10 =', c ); c = a - b; writeln('21 - 10 =', c ); apa yang terjadiketika program dijalankan?
Jawaban:
Outputnya bakalan begini:
21 + 10 = 30
21 – 10 = 10
Loh, kok hasil penjumlahan sama pengurangannya salah?
Ya karena 20 + 10 sama 21 + 10 beda. Dan kamu milih buat nampilin sendiri 21 + 10 tapi hasilnya adalah c, dimana c=20+10=30.
Kasus kedua juga kurang lebih sama.
16. Begin Writeln ( ( 10 shr 1 ) shl 2 ) end.
Jawaban:
20
Penjelasan:
1010 shift right = 0101 #0101 = 5
5 shift left 2 = 10100 #10100 = 20
17. instruksi untuk mulai membuat writeln
Jawabadi gunakan untuk menulis output dengan posisi cursor petunjuk aktif,terletak pada awal baris berikutnya
Penjelasan:
18. 1.Tuliskan hasil dari Program dibawah ini Uses crt; Var A,B,C : integer; Begin Clrscr; A:=20; B:=6; Writeln(A*B); Writeln(A mod B); Writeln(5 div 3);Readln; End.
Jawaban:
Hasil eksekusi program tersebut:
120
2
1
Penjelasan:
Urut-urutan eksekusi program:
Variabel A diisi (di-assign) dengan nilai 20.Variabel B diisi dengan nilai 6.Menulis 120 pada layar sebagai hasil operasi A×B, dan sekaligus menambahkan line-feed (berganti baris, karena perintahnya adalah WriteLn).Menulis 2 pada layar sebagai hasil operasi A mod B (sisa pembagian A dengan B), dan sekaligus berganti baris.Menulis 1 pada layar sebagai hasil operasi 5 div 3 (pembagian bilangan bulat tanpa memperhatikan sisa pembagian). dan sekaligus berganti baris.Menunggu input apapun dari user, berupa penekanan tombol apapun.Selesai.19. (Algoritma) mohon bantuannya nih ,, ane mentok di pangkat,, ga tau cara ngubah simbol pangkat di pascal dan cara operasinya seperti apa? ---------------------------------------------------- program geometri; uses crt; var A,R,N,X : integer; Perhitungan1, Perhitungan2 : integer; pangkat1 : integer; pangkat2 : integer; Hasil : integer; begin clrscr; writeln('ini adalah Program Perulangan'); writeln('==============================================='); writeln('Masukan Jumlah Data'); readln(N); writeln('Masukan Nilai Awal'); readln(A); writeln('Masukan Rasio'); readln(R); Hasil := 0; X := 1; while X <= N do begin pangkat1 := Hasil := Hasil + (A*R^N / R^1) X := X + 1; end; writeln(Hasil); end.
kalau susah, dibuat kali 2 saja.. contoh 2 pangakat 2 = 2*2
20. Begin writeln ((10 shr 1) shl 2) berapa hasilnya
SHR = geser ke kanan
SHL = geser ke kiri
jadi hasil tampilan dari
Begin
writeln ((10 shr 1) shl 2)
Ubah angka desimal menjadi binner dulu
10 = 1010
SHR 1 , jadi geser ke kanan 1 digit
1010 --> 0101
SHL 2, jadi geser ke kiri 2 digit
0101 --> 010100
Konversi binner ke desimal
010100 = 20
0 komentar:
Posting Komentar