Tugas PoltekProgram

1.       Jelaskan dan berikan contoh tipe data dibawah ini

a.       Bilangan bulat

Jawab

Dalam pascal tipe bilangan bulat 1, 2, 3 dst tipe ini ini terdiri dari lima macam yaitu, sortint,integer, longint, byte ,word. Digunakannya tipe tersebut sesuai dengan jangkauan atau banyak angka yang digunakan. Namun tipe integer lebih sering digunakan apalagi di pemograman perkalian, pembagian, pengurangan, pertambahan dst.

Contoh

Program Contoh_tipe_Bulat;
Uses CRT;
Var a,b,c : integer;
Begin
ClrScr;
Write(‘masukkan nilai a dan b : ‘);
Readln(a,b);
c:=a+b;
Writeln(‘nilai c : ‘,c);
Readln;
End.

b.      Tipe karakter  (char)

Jawab

Yaitu untuk menyatakan huruf, karakter dan tanda baca. Tipe data tunggal yang berhubungan dengan tombol-tombol di keyboard. Char adalah semua tombol yang terdapat pada keyboard atau lebih lengkapnya semua karakter yang terdapat pada kode ASCII.

Contoh

Program_char;
uses crt;

var

huruf : char;
  
Begin
     clrscr;
     write('Input Huruf        = ');

readln(huruf);
     writeln(' Data Char   = ',huruf);
     readln;
End.

c.       Tipe real

Jawab

Yaitu untuk menyatakan bilangan desimal. Misalnya : 1.45, 5.76, dst. Pemisah tanda desimal menggunakan  titik bukan  koma.

Contoh

Program ContohReal;
Uses CRT;
Var

y : Integer;
p : Real;
X : Real;
Begin
y := 9;
p := 6;
x := y : p;
Writeln(‘Nilai X adalah :’,x);
End.

d.      Ripe string

Jawab

Yaitu untuk menyatakan kata atau kalimat. String (adalah kumpulan type data yang berbentuk karakter). Tipe data string digunakan untuk menampung nilai dalam bentuk huruf, dimana batas maximal adalah sebanyak 255 karakter.

Contoh

Program Contoh_Variabel;
Uses crt;
Var
Nama : string[15];
Jumlah,harga : Longint;
Nilai : real;
Begin
ClrScr;
{Memasukkan data}
Nama:=’Semen’;
jumlah:=10;
harga :=250000;
Nilai :=Harga * Jumlah ;
{Menampilkan Data yang Telah Diproses}
writeln(‘Nama Barang:’,Nama);
writeln(‘Jumlah:’,Jumlah);
writeln(‘Harga:’,Harga);
writeln(‘Nilai Barang:’,Nilai);
Readln;
end.

2.       Jelaskan pengertian konstanta dan berikan contohnya

Jawab

 konstanta adalah variabel yang nilainya bersifat tetap dan tidak dapat diubah sepanjang kode program. Umumnya konstanta digunakan untuk nilai yang tidak akan berubah, seperti nilai phi dalam matematika yang bernilai 3.14, atau kecepatan_cahaya yang bernilai 299.792.458 m/s.

program konstanta;

uses crt;

const

  phi=3.14;

  dollar=14500;

  nama='M.Harifan';

  

var

  nama2:string='pekerjaan';

  

begin

  clrscr;

  writeln(phi:4:2);

  writeln(dollar);

  writeln(nama);

  writeln(nama2);

  readln;

end.

3.       Apa yang anda ketahui tentang variable. Berikan contoh

Jawab

Variabel adalah ‘penanda’ identitas yang digunakan untuk menampung suatu nilai. Nilai tersebut dapat diubah sepanjang kode program. Secara teknis, variabel merujuk kepada suatu alamat di memory komputer. Setiap variabel memiliki nama yang sebagai identitas variabel tersebut.

program variabel;

uses crt;

  

var

  nama,alamat:string;

  umur:integer=20;

  universitas:string='Politeknik Raflesia';

  

begin

  clrscr;

  

  nama:='Harifan';

  alamat:='Jl. Air Meles Bawah no.21';

  umur:=19;

  

  writeln(nama);

  writeln(umur);

  writeln(alamat);

  writeln(sekolah);

  readln;

end.

4.       Apa yang anda ketahui tentang struktur program yang tepat lengkap berikan contohnya

5.       Buatlah contoh bilangan operasi keluar dan masukan

6.       Buatlah contoh pernyataan dibawah ini

a.       Pernyataan if sederhana

program If_sederhana;

var

   angka        : integer;

begin

     write('Masukan sebuah angka: '); readln(angka);

     if angka > 0 then

        writeln ('Angka adalah Positif')

     readln;

end.

b.      Pernyataan if else

program If_else;

var

   angka        : integer;

begin

     write('Masukan sebuah angka: '); readln(angka);

     if angka > 0 then

        writeln ('Angka adalah Positif')

     else

            writeln ('Angka bukan Positif')

     readln;

end.

c.       Pernyataan if bersarang

program If_bersarang;

var

   angka        : integer;

begin

     write('Masukan sebuah angka: '); readln(angka);

     if angka > 0 then

        writeln ('Angka adalah Positif')

     else

         if angka < 0 then

            writeln ('Angka adalah Negatif')

         else

             writeln ('Angka adalah Nol');

     readln;

end.

7.       Apa yang anda ketahui tentang proses pengulangan berikan contoh minimal 2 menggunakan for to dan for down to

Yaitu proses yang berulang  namun dapat ditulis dengan kode yang pendek..

For to

program If_forto1;

var

   harifan       : integer;

begin

clrscr ;

for harifan := 1 to 21 do

writeln (harifan);

end.

program If_forto2;

var

   ax       : integer;

begin

clrscr ;

for ax := 1 to 21 do

writeln (‘harifan’);

end.

For down to

program If_fordownto1;

var

   ax2       : integer;

begin

clrscr ;

for ax := 21 downto 1 do

writeln (ax2);

end.

program If_fordownto2;

var

   ax21       : integer;

begin

clrscr ;

for ax := z downto a do

writeln (ax21);

end.

 tinggal dirubah aja..ingat jangan sampai sama.... 

salaamm Politeknik Raflesia