Friday

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

Artikel Terkait

Tugas PoltekProgram
4/ 5
Oleh

Berlangganan

Suka dengan artikel di atas? Silakan berlangganan gratis via email