Tugas TIK_ Turbo Pascal

TURBO PASCAL 7.0 PROGRAM DEKLA

Ini Dia Hasil Program Dekla Turbo Pascal ;;;;;;;;;;;



Niy caranya dapatin hasilnya program dekla ;

PROGRAM Dekla;

{ ——————————————— }
{ Contoh deklarasi yang lengkap. }
{ ——————————————— }


USES Crt;

LABEL
Selesai;

TYPE
BilanganNyata = Byte;

VAR
Panjang : BilanganNyata;
Lebar : BilanganNyata;

PROCEDURE HitungLuasDanKeliling (p : BilanganNyata; l : BilanganNyata);

BEGIN
ClrScr;
WriteLn(‘Luas = ‘, p * l);
WriteLn(‘Keliling = ‘, 2 * (p+l));
END;

BEGIN { Program Utama }
Panjang := 7;
Lebar := 4;
HitungLuasDanKeliling (Panjang, Lebar);
GOTO Selesai;

WriteLn(‘Lho kok saya dilewati’);

Selesai:
WriteLn(‘Muhammad Harits Parlin Xa’);

END.

Ini Kome' Gambareeeeeeeeeeee ;

Uchiha

Madara Uchiha
Fusaku Uchiha
Shisui Uchiha
Hikaku Uchiha
Fugaku Uchiha
Inabi Uchiha
Itachi Uchiha
Izuna Uchiha
Kagami Uchiha
Mikoto Uchiha
Obito Uchiha
Sasuke Uchiha
Sasuna Uchiha
Setsuna Uchiha
Tekka Uchiha
Tayuki Uchiha
Teyaki Uchiha
Uruchi Uchiha
Yakumi Uchiha
Yashiro Uchiha

Tugas Komputer { Program Jenis Bilangan}

Pertanyaan ;

Apa bedanya Bilangan Byte, ShortInt, Word, Integer dan LongInt ?
Program Pascal berikut mungkin bisa memberikan gambaran perbedaannya.

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.

Jalankan program di atas, ubahlah jumlah digit pada format pencetakkannya.
Angka setelah titik dua di atas menunjukkan lebar pencetakan, contoh pada c1:4 artinya c1 dicetak dengan disediakan 4 digit, maka cobalah untuk mengubah-ubah lebar pencetakan ini, serta perhatikan hasil programnya.

Jawab :

Hasilnya adalah :

Bilangan byte = 197
Bilangan shortln = -2
Bilangan integer = 1050
Bilangan word = 50678
Bilangan longlnt = 3000000

Kemudian setelah dicoba untuk mengubah jumlah digit pada format percetakannya, hasilnya hanya spasinya yang berbeda .

Jawaban Latihan Menganalisa Program Turbo Pascal

1. tHasil dari pertanyaan pertama turbo pascal adalah
   
   • Jumlah Jam Per Hari=24
   • Jumlah Hari Per Minggu=7
   • Jumlah Bulan Per Tahun=12
   • Jumlah Hari Per Tahun=365
2. Jika Uses Crt dihilangkan pada program tersebut, maka hasilnya akan menjadi,' Error 3: Unknown Identifier'. Hal tersebut dikarenakan Uses Crt merupakan standar unit pada turbo pascal yang berisikan sejumlah rutin yang berkaitan dengan layar, keyboard, dan suara.
3. Hasilnya akan sama dengan nomor satu, yaitu
   
   • Jumlah Jam Per Hari=24
   • Jumlah Hari Per Minggu=7
   • Jumlah Bulan Per Tahun=12
   • Jumlah Hari Per Tahun=365
   Hal ini terjadi karena, perintah pada nomor 1 itu sama dengan nomor 3 yang berbeda hanyalah pernyataannya.
   

Tugas TIK Bab 3

LATIHAN BAB 3

1. Bolehkah suatu program tidak mempunyai judul program seperti: PROGRAM Lat 1; ?
Jawaban dan Pembahasan =
Tidak boleh. Karena yang perlu diperhatikan dari suatu program adalah;
a. Tanda titik koma (;) harus diletakkan sesudah nama seperti Lat 1.
b. Nama seperti Lat 1 adalah nama yang didefinisikan sendiri oleh pemrograman.
c. Kata PROGRAM adalah sebuah kata yang memiliki makna khusus bagi Turbo Pascal dan disebut sebagai kata tercadang.
2. Bolehkah pernyataan :
WriteLn('Halo');
ditulis menjadi :
writeln('Halo');
Jawaban dan Pembahasan =
Boleh,karena suatu perintah pada Pascal tidak membedakan huruf kecil&kapital.
3. Apa kegunaan komentar pada program ?
Jawaban dan Pembahasan =
a. Dapat dengan mudah menulusuri kembali perintah-perintah yang ada pada program.
b. Juga bertindak sebagai dokumentasi.
4. Perlukah komentar bagi komputer ?
Jawaban dan Pembahasan =
Tidak perlu, karena komentar tidak berarti apa-apa bagi komputer, tetapi hanya berguna bagi manusia untuk dokumentasi. Selain itu, komentar mungkin justru membuat program menjadi sulit untuk dibaca.
5. Dari baris-baris berikut, manakah yang tidak mengandung komentar ?
Jawaban dan pembahasan =
a. WriteLn('Halo');{Menulis Halo} = mengandung komentar
b. WriteLn('Halo{Menulis Halo}'); = tidak ada komentar
c. WriteLn('Halo');(*Menulis Halo*) = mengandung komentar
d. WriteLn('Halo'); {*Menulis halo*} = tidak ada komentar
e. {$N+} = mengandung komentar
f. { $N+ } = tidak ada komentar
6. Kapan anda harus menyebutkan klausa USES di dalam program ?
Jawaban dan Pembahasan =
Klausa USES digunakan sesudah kepala program.
7. Sebutkan unit-unit standar yang tersedia pada Turbo Pascal beserta kegunaannya !
Jawaban dan Pembahasan =
a. Crt berisi sejumlah rutin yang berkaitan dengan layar, keyboard dan suara.
b. Dos berkaitan dengan operasi terhadap sistem operasi dan penanganan file.
c. Graph berisi lebih 50 rutin yang berkaitan dengan operasi grafis.
d. Graph3 menyediakan pengendali grafik kura-kura yang tersedia pada Turbo Pascal versi 3.0
e. Overlay berisi rutin yang berguna untuk melakukan overlay.
f. Printer berisi fasilitas untuk memudahkan pencetakan ke printer.
g. System berisi sejumlah pustaka yang digunakan saat eksekusi.
h. Turbo3 untuk menjaga kompabilitas terhadap program Turbo Pascal versi 3.0.
i. WinDos merupakan implementasi rutin penanganan file dan sistem operasi.



SELESAI