-
Program Berat
Program Berat_badan ; uses crt ; var berat : integer ; begin write ( ‘ masukkan berat badan : ‘ ); readln (berat) ; if berat > 37 then writeln (‘berat’); else writeln ( ‘ kurus ‘ ) ; readln ; end.
-
Program Pencari Tanggal
ProgramPencariHar; uses WinDos, Wincrt; const days:array [0..6] of string [9]= (‘Minggu’,’Senin’,’Selasa’,’Rabu’,’Kamis’,’Jumat’,’Sabtu’); var th, tg, bl, dow: word; begin GetDate(th,bl,tg,dow); write(‘Hari ini adalah ‘ ,days[dow],’, ‘,tg:0,’ ‘); case bl of 1:begin write(‘Januari’); end; 2:begin write(‘Februari’); end; 3:begin write(‘Maret’); end; 4:begin write(‘April’); end; 5:begin write(‘Mei’); end; 6:begin write(‘juni’); end; 7:begin write(‘Juli’); end; 8:begin write(‘Agustus’); end; 9:begin write(‘September’);…
-
ARRAY PADA PASCAL
Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan nilai dan endeks array yang merupakan nilai urut untuk mengakses nilai pada array. Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100. A[1] A[2] A[3] A[4] A[5]…
-
Aplikasi Stack pada Struktur Data untuk Mengkonversikan Notasi INFIX Menjadi POSTFIX
Listing Program Uses crt; const Noelstack = 80; Makschar = 80; Type Eon = char; stack = Record Top : array[1…Noelstack] of Eon; Noel : 0… Noelstack; End; Tipeindex = 0… makschar; Typeeks = array[1… Noelstack] of char Var lagi : char; {Bentuk-bentuk operasi stack} Function isempty(Var s : stack):Boolean; Begin IsEmpty : = s.…
-
Program Banyak Huruf dalam Kalimat
uses wincrt; var n:array[1..26] of integer; i,j:integer; kata : String; begin for i:=1 to 26 do n[i]:=0; write(‘Ketikkan sebuah kalimat : ‘);readln(kata); for i:=1 to length(kata) do for j:=1 to 26 do if ord(upcase(kata[i]))=64+j then inc(n[j]); for i:=1 to 13 do writeln(chr(64+2*i-1),’ = ‘,n[2*i-1],’ ‘,chr(64+2*i),’ = ‘,n[2*i]); end.
-
Program untuk Mengurutkan Data dengan Metode RADIX SORT
Uses WinCrt; Type Pointer = ^TypeData; TypeData = Record Nilai : integer; Berikutnya : Pointer; End; Pointer2 = Array[0..9] Of Pointer; Var List : Pointer; Q : Pointer2; {====================================================================} {===================== MASUK DATA DARI DEPAN ========================} {====================================================================} Procedure Masuk_Depan(Var L : Pointer; X : Integer); Var Baru : Pointer; Begin New(Baru); Baru^.Nilai := X; Baru^.Berikutnya :=…
-
Instruksi Pemilihan
1. Instruksi If/Then/Else Instrusksi If/Then/Else digunakan untuk memilih alternative apabila suatu syarat atau kondisi dipenuhi ( 1 kasus ), atau memilih satu alternatif dari dua kemungkinan berdasarkan apakah syarat terpenuhi atau tidak ( 2 kasus ). 2. Instruksi Case Instruksi case digunakan sebagai instruksi pemilihan dimana aksi yang akan dilakukan hanya bergantung pada nilai dari…
-
Tipe Data dan Operator
Tipe Data menunjukkan suatu nilai yang dpat digunakan oleh sutu variable yang bersangkutan. Tipe Data dalam Pascal : 1. Tipe Data Sederhana, terdiri dari : a. Tipe data standar : – integer : merupakan tipe data berupa bilangan bulat – real : merupakan jenis bilangan pecahan – char : merupakan karakter yg ditulis diantara tanda…
-
Pandapotan Struktur Data
Struktur data adalah merepresentasikan data pada memory secara logika dan meng-karakterisasikan setiap variabel dalam program secara eksplisit ataupun implisit, Untuk operasi yang dibolehkan/berlaku pada object data tersebut. Struktur data diperlukan dalam perencanaan Algoritma dan penyusunan program sebagai dasar teknik dari Database Data dan Algoritma • Tipe data adalah macam/isi data pada suatu variable dlm bhs…
-
Tipe Data, Variabel
1. Tipe Data Setiap data memiliki tipe data, apakah merupakan angka bulat ( integer ), angka biasa ( real ), atau berupa karakter ( char ), dan sebagainya. Ada 2 kategori dari tipe data yaitu: 1. Tipe dasar 1. Bilangan bulat ( integer ) – Bilangan atau angka yang tidak memiliki titik desimal atau pecahan,…