STEI Freshman Race 2014
Kumpulan foto-foto saat STEI Freshman Race 2014. Apakah ada foto Anda di sana? :D
Abstract but still well-read.
procedure namaprocedure(parameter1:tipedata
;paramater2:tipedata...);
var
{pendeklarasian variabel}
begin
{statement}
end;
contoh penerapannya : Procedure swap(a,b:integer); var temp:integer; begin temp:=a; a:=b; b:=temp; end;nah, contoh procedure yang saya buat di atas adalah procedure yang berisi statement-statement yang akan menukar dua buah bilangan. dan procedure diatas dapat dipanggil berulang-ulang hanya dengan menulis code :
swap(a,b);
function nama function(parameter1:tipedata;
parameter2:tipedata...):tipedata;
var
{pendeklarasian variabel}
begin
{statement}
namafungsi:=nilaikembalian;
end;
contoh penerapannya :function kali(a,b:integer):longint; begin kali:=a*b; end;kita juga bisa menggunakan variabel bantu pada contoh di atas, seperti ini :
function kali(a,b:integer):longint; var hasil:longint; begin hasil:=a*b; kali:=hasil; end;Pada dua buah contoh di atas, fungsi kali mengembalikan nilai yang sama. Yang menjadi pembeda
Type
|
Tipe Dat
|
Contoh
|
String
|
Text/Kata
|
‘Budi’, ‘Bandung’
|
Integer
|
Bilangan Bulat
|
1, 2, 123
|
Real
|
Bilangan Desimal
|
2.23 , 2.12
|
Boolean
|
Logika (True atau False)
|
TRUE, FALSE
|
Character
|
Karakter
|
‘A’, ‘B’
|
Type
|
Minimum
|
Maximum
|
Format
|
Integer
|
-2147483648
|
2147483647
|
signed 32-bit
|
Cardinal
|
0
|
4294967295
|
unsigned 32-bit
|
Shortint
|
-128
|
127
|
signed 8-bit
|
Smallint
|
-32768
|
32767
|
signed 16-bit
|
Longint
|
-2147483648
|
2147483647
|
signed 32-bit
|
Int64
|
-2^63
|
2^63 - 1
|
signed 64-bit
|
Byte
|
0
|
255
|
unsigned 8-bit
|
Word
|
0
|
65535
|
unsigned 16-bit
|
Longword
|
0
|
4294967295
|
unsigned 32-bit
|
Type
|
Range
|
Angka Signifikan
|
Size
|
Real
|
platform dependant
|
???
|
4 atau 8
|
Double
|
1.5E-45 .. 3.4E38
|
7-8
|
4
|
Single
|
5.0E-324 .. 1.7E308
|
15-16
|
8
|
Extended
|
1.9E-4932 .. 1.1E4932
|
19-20
|
10
|
Comp
|
-2E64+1 .. 2E63-1
|
19-20
|
8
|
Currency
|
-922337203685477.5808 .. 922337203685477.5807
|
19-20
|
8
|
type enum-identifier = ( item1, item2, item3, … );
type Bentuk = (Bulat, Kotak, Elips, Segitiga); Warna = (Coklat, Hitam, Putih, Biru, Merah); Ikan = (Lele, Nila, Mas, Hiu); Bulan = (Januari, Februari, Maret, April, Mei, Juni, Julli, Agustus, September, Oktober, November, Desember);
type
Minuman = (Teh, Kopi, Susu, Jus, Soda);
Makanan = (Ketoprak, Nasi_Goreng, Nasi_Kuning);
Var
Makan : Makanan;
Minum : Minuman;
Begin
Makan := Ketoprak;
Minum := Teh;
Writeln('Kemarin, Saya makan ', Makan,'.');
Writeln('Lalu, Saya minum ', Minum,'.');
End.
Kemarin, Saya makan Ketoprak. Lalu, Saya minum Teh.
type subrange-identifier = lower-limit … upper-limit;
type bulan = 1 … 12; abjad = a … b;
type Bulan = (Januari, Februari, Maret, April, Mei, Juni, Juli, Agustus, September, Oktober, November, Desember); semester1 = Januari … Juni; semester2 = Juli … Desember;
Febi Agil Ifdillah, 18 YO. Internet Addict.. I'm Passionately Curious, vowed that I'd live and I'd learn.
View Profile