Proses Pengerjaan :
PROGRAM Hitung;
USES Crt;
TYPE
BilanganNyata = Integer;
VAR
panjang:BilanganNyata;
lebar:BilanganNyata;
BEGIN
ClrScr; {Membersihkan layar output}
panjang := 7; {Memberikan nilai pada variabel “panjang”}
lebar := 4; {Memberikan nilai pada variabel “lebar”}
WriteLn(‘Diketahui Panjang = 7, Lebar = 4’);
WriteLn(‘Rumus luas = Panjang x Lebar’);
WriteLn(‘Rumus keliling = 2 x (Panjang + Lebar)’);
WriteLn(”);
WriteLn(‘Hasil:’);
WriteLn(‘Luas = ‘, panjang * lebar);
WriteLn(‘Keliling = ‘, 2 * (panjang + lebar));
ReadLn;
END.
Rabu, 17 November 2010
Rabu, 29 September 2010
Program yang menghasilkan bunyi nada.
Yang tidak kalah menarik dalam program Turbo Pascal adalah fungsi sound, fungsi ini digunakan untuk menghasilkan suara,
1. Fungsi sound (x), dimana x = adalah nada, menurut pengalaman penulis jika x= 100 , maka 100=do
x=200 , maka 200=re dst sampai x=1000=mi tinggi
2.ada sound maka ada fungsi no sound, digunakan untuk menghentikan suara
3.berikutnya fungsi delay, yang digunakan untuk memberikan lama waktu sound untuk lebih jelasnya dapat dilihat pada program dibaris dibawah ini
Program Suara;
uses crt;
var i,j:integer;
begin
clrscr;
writeln('Program sound ');
j:=100;
for i:=1 to 10 do
begin
sound(j);
writeln('Coba matikan winamp dan dengarkan suaranya');
delay(500);
nosound;
j:=j+100;
end;
readln;
end.
Untuk menghasilkan tempo yang dikehendaki cobalah mengganti angka pada delay, sedangkan untuk mendapatkan tinggi nada cobalah mengganti isi variabel j:= j+100 menjadi j:= j + 10 danseterusnya.
1. Fungsi sound (x), dimana x = adalah nada, menurut pengalaman penulis jika x= 100 , maka 100=do
x=200 , maka 200=re dst sampai x=1000=mi tinggi
2.ada sound maka ada fungsi no sound, digunakan untuk menghentikan suara
3.berikutnya fungsi delay, yang digunakan untuk memberikan lama waktu sound untuk lebih jelasnya dapat dilihat pada program dibaris dibawah ini
Program Suara;
uses crt;
var i,j:integer;
begin
clrscr;
writeln('Program sound ');
j:=100;
for i:=1 to 10 do
begin
sound(j);
writeln('Coba matikan winamp dan dengarkan suaranya');
delay(500);
nosound;
j:=j+100;
end;
readln;
end.
Untuk menghasilkan tempo yang dikehendaki cobalah mengganti angka pada delay, sedangkan untuk mendapatkan tinggi nada cobalah mengganti isi variabel j:= j+100 menjadi j:= j + 10 danseterusnya.
Diposting oleh
rosani rizki amilia
Selasa, 28 September 2010
PROGRAM JENIS BILANGAN
Program Kosntanta_numeric_integer;
Uses Crt;
Const
c1 =197; {byte}
c2 =-2; {shortInt}
c3 =1050; {Integer}
c4 =50678; {word}
c5 =3000000; {LongInt}
Begin
Clrscr;
Writeln('Bilangan byte =',c1:4);
Writeln('Bilangan shortInt =',c2:4);
Writeln('Bilangan Integer =',c3:4);
Writeln('Bilangan word =',c4:5);
Writeln('Bilangan LongInt =',c5:7);
Readln
End.
Diposting oleh
rosani rizki amilia
Selasa, 03 Agustus 2010
Jawaban Latihan Bab 3 Komputer
- Suatu program boleh tidak mempunyai judul program karena bersifat opsional (bisa diisi, bisa tidak)
- Pernyataan 'WriteLn('Halo') ditulis menjadi writeln ('Halo').
- Kegunaan kegunaan komentar pada program adalah untuk menelusuri kembali perintah-perintah yang ada.
- Komentar bagi komputer perlu karena bertindak sebagai dokumentasi.
- Yang tidak mengandung komentar adalah B
- Klausa USES ditempatkan sesudah kepala program
- Unit-unit standar pada Turbo pascal
- Crt: berisi sejumlah rutin yang berkaitan dengan layar, keyboard dan suara
- Dos: Berkaitan dengan operasi terhadap sistem operasi dan penanganan file
- Graph: Berisi lebih dari 50 rutin yang berkaitan dengan operasi grafis.
- Graph3: Menyediakan pengendali grafik kura-kura (turtlegraphics) yang tersedia pada Turbo Pascal versi 3.0
- Overlay: Berisi rutin yang berguna overlay (berbagi memori bagi suatu program yg besar).
- Printer: Berisi fasilitas untuk memudahkan pencetakan ke printer
- System : Berisi sejumlah pustaka yang digunakan saat eksekusi
- Turbo3 : Untuk menjaga kompatibilitas terhadap program Turbo Pascal versi 3.0.
- WinDos: Merupakan implementasi rutin penanganan file dan sistem operasi. Unit ini merupakan alternatif dari unit Dos
Diposting oleh
rosani rizki amilia
Langganan:
Postingan (Atom)