Untitled

Program Hitung;

USES Crt;

LABEL

Selesai;

TYPE

BilanganNyata = Byte;

VAR

Panjang : BilanganNyata;

Lebar : BilanganNyata;

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

BEGIN

ClrScr;

WriteLn(‘LuasPersegiPanjang = ‘, p * l);

WriteLn(‘KelilingPersegiPanjang = ‘, 2 * (p+l));

END;

BEGIN { Program Utama }

Panjang := 7;

Lebar := 4;

HitungLuasdanKelilingPersegiPanjang(Panjang,Lebar);

GOTO Selesai;

WriteLn(‘Lho, kok saya dilewati’);

Selesai:

WriteLn(‘Faradillah’);

ReadLn;

END

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.

hasiil ..

bilangan byte=197

bilangan shortln=-2

bilangan integer=1050

bilangan word=50678

bilangan longlnt=3000000

1. Bolehkah suatu program tidak mempunyai judul program ?

Jawab : boleh , tetapi lebih baik kalo memakainya

2. bolehkah pernyataan :

writeln (‘halo’)

ditulis menjadi :

writeln (‘halo’)

Jawab :boleh , tapi sebaiknya tidak seperti itu ..

3. apa kegunaan komentar pada program ?

jawab :agar memudahkan orang untuk menelusuri kembali dan atau memahami perintah-perintah pada program .

4. perlukah komentar bagi komputer ?

jawab :sebenarnya sih tidak ..

5. dari baris-baris berikut manakah yang tidak mengandung komentar :

a) writeln (‘halo’); {menulis halo}

b)writeln(‘halo {menulis halo }’)

c)writeln(‘halo’);(*menulis halo*)

d)writeln(‘halo’);{*menulis halo*}

e) {$N+}

f) { $N+ }

jawab : yang tidak mengandung komentar adalah yang B , D, dan E ..

6. kapan anda harus menyebutkan klausa USES di depan program ?

jawab : ketika program menggunakan rutin ataupun elemen yang ada pada suatu unit ..

7.  sebutkan unit-unit standar yang tersedia pada turbo pascal beserta kegunaannya !

jawab :

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 (turtlegraphic) yang tersedia pada Turbo Pascal versi 3.0. Overlay = Berisi rutin yang berguna untuk melakukan overlay (berbagi memory bagi suatu program yang besar) Printer = berisi fasilitas untuk memudahkan pencetakan ke printer System = berisi sejumlah pustaka yang digunakan saat eksekusi (runtime library) di antaranya berisi : Penanganan masukan/keluaran file, Penanganan string, Alokasi memory dinamis. Turbo3 = untuk menjaga kompabilitas terhadap program Turbo Pascal versi 3.0. WinDos = merupakan implementasi rutin penanganan file dan sistem operasi. Unit ini merupakan alternatif dari Unit DOS