teknik informatika

Macam-macam tipe data pascal dan batasannya

1. Macam-macam tipe data pascal.

v Tipe sederhana

Tipe ordinal

§ Integer

§ Shortin

§ Longint

§ Boolean

§ Char

§ Byete

§ Word

§ Subrange

§ Enumerated

Tipe real

v Tipe string

Array
Record
File
Set

v Tipe terstruktur

v Tipe pointer

2.    Batasannya.
v   Semua tipe sederhana disebut tipe ordinal kecuali real.
v   Nilai integral dalam semua tipe kecuali tipe integer nilai yang pertama yang bernilai
prodesesor kecuali yang terakhir yang bernilai suksesor.
v Apabila fungsi standad perd diterapkan untuk mengetahui prodesesornya, jika
diterapkan pada nilai pertama akan menyebabkan kesakahan.
v Apabila fungsi standad succ diterapkan untuk mengetahui prodesesornya, jika
diterapkan pada nilai terakhir akan menyebabkan kesakahan.
v Konstanta bertipe real dalam pascal harus ada satu digit sebelum dan sesudah titiik
desimal.
v Tipe string yang dinyatakan panjang karakternya dianggap mempunyai 255 karakter.
v Tipe tersrukturnya ditentukan berdasar cara penstrukturan dan tipe masing-masing
komponennya, apabila yang dihasilkan lebih dari penstrukturan maka tingkat
penstrukturan bisa tak terbatas.
v Semua tipe yang disebutkan diatas, apabila digunakan untuk mendeklarasikan suatu
perubahan dalam tipe pointer, maka bersifat perubahan yang statis.

http://www.4shared.com/file/o73DimXs/Macam-macam_tipe_data_pascal_d.html

Algoritma memasak supermie

http://www.4shared.com/file/dNIgvNlg/1_online.html

flowchat dan algoritma

1. Flowchat membuat supermie

2. Algoritma volume bangunan kerucut

r = 3
t = 15
v = 0
v<– ((3.15*r*r)/3)*t
v = 0

http://www.4shared.com/file/dNIgvNlg/1_online.html

Program mencari luas dan volume

Program mencari luas segitiga sama kaki

uses crt;
var
a,t:integer;
luas:real;
begin
clrscr;
writeln(' <ooooooooooooooooooooooooooooooooo>');
writeln(' <<<<< Gufron Arafat >>>>>');
writeln(' <ooooooooooooooooooooooooooooooooo>');
write(' => Alas : ');
readln(a);
write(' => Tinggi : ');
readln(t);
luas:=(a*t/2);
writeln(' => luas segitiga sama kaki :',luas:2:2);
readln;
end.

Program mencari luas sisi balok

uses crt;

var
p,l,t:integer;
luas:real;
begin
clrscr;
writeln(' <oooooooooooooooooooooooooooooooo>');
writeln(' <<<<< Gufron Arafat >>>>>');
writeln(' <oooooooooooooooooooooooooooooooo>');
write(' => Panjang : ');
readln(p);
write(' => Tinggi : ');
readln(t);
write(' => Lebar : ');
readln(l);
luas:=2*p*l+2*p*t+2*l*t;
writeln(' => Luas sisi balok : ',luas:2:2);
readln;
end.

Program mencari volume tabung

uses crt;

var

r,t:integer;

phi,volume:real;

begin

clrscr;

writeln(' <ooooooooooooooooooooooooooooooooo>');

writeln(' <<<<< Gufron Arafat >>>>>');

writeln(' <ooooooooooooooooooooooooooooooooo>');

write(' => Phi :');

readln(phi);

write(' => Jari-jari :');

readln(r);

write(' => Tinggi :');

readln(t);

volume:=(phi*r*r*t);

writeln(' => Volume tabung : ',volume:2:2);

readln;

end.

http://www.4shared.com/rar/l7a6HriP/tugas_3.html

program pascal menggunakan string

uses crt;

var

na,al,nama:string;

ni,thns,TI,TU,umur:real;

begin

clrscr;

textcolor(red);

writeln(' #-#==============================#-#');

writeln(' #-# Nama : Gufron arafat #-#');

writeln(' #-# NIM : 12012688 #-#');

writeln(' #-# Kelas : H #-#');

writeln(' #-# Tugas : Pascal ke 4 #-#');

writeln(' #-#==============================#-#');
writeln('=============================================================');

textcolor(white);

write(' * Tahun input : '); readln(TI);

write(' * Nama : '); readln(na);

write(' * NIM : '); readln(ni);

write(' * Alamat : '); readln(al);

write(' * Tahun kelahiran : '); readln(TU);

writeln('==============================================================');

umur:=(TI-TU);

writeln(' * UMUR ANDA SAAT INI : ',umur:2:0);

writeln(' ==> TERIMAKASIH <==');

readln;

end.

http://www.4shared.com/rar/gWQoFBTi/tugas_4.html

Flowchart dari perulangan repeat to until, while to do, for to do

1. Flowchart dari perulangan repeat.....until

             Contoh :
             uses crt;
             var
    a : integer;
             begin
     repeat
         writeln (a);
             inc (a);
              until (a<=10);
              readln;
              end.

2. Flowchart dari perulangan while.....do

Contoh :
uses crt;
var
   a : integer;
begin
while (a<=10) do
begin
   writeln (a);
        inc (a);
end;
      readln;
end.

3.    Flowchart dari perulangan for.....do

                 Contoh :
                     uses crt;
                     var
    a : integer;
                     begin
                     clrscr;
                     for a := 1 to 10 do
            writeln (a);
                           readln;
                     end.

  http://www.4shared.com/rar/YfnnUdDm/tugas_5.html