Tag: array

  • Program dengan Array of String

    Menjawab pertanyaan mas/mbak takirey lagi nih tentang cara membuat program dengan menggunakan array of string. Dengan asumsi program user dapat melakukan input data ke dalam array, kemudian seluruh array akan ditampilkan. Kira-kira begini penyelesaiannya : uses wincrt; var x : array[1..3] of string; a : integer; begin for a := 1 to 3 do begin…

  • Program Bilangan Genap

    Sesuai dengan pertanyaan mas/mbak takirey tentang bagaimana menyimpan bilangan genap ke dalam suatu array sebanyak input user. Kira-kira begini penyelesaiannya : uses wincrt; var genap : array[1..100] of integer; a, b, jum : integer; begin a := 0; b := 2; write(‘Jumlah bilangan genap : ‘);readln(jum); while a jum do begin inc(a); genap[a] := b;…

  • Tipe Data

    Dalam algoritma, kita harus bias menentukan tipe-tipe data yang sesuai digunakan dalam penyelesaian masalah. Sehingga computer dapat mengolah dan mendapatkan hasil yang sesuai menurut kebutuhan data. Ada beberapa tipe data yang harus kita ketahui antara lain : 1. Tipe data Char dan String Ini merupakan tipe data dasar, tipe data ini didefinisikan pada deklarsi var…

  • Aljan Array dan Record

    ARRAY Array adalah tipe data terstruktur yang terdiri dari sejumlah komponen-komponen yang mempunyai tipe sama. LISTING PROGRAM: program aljan; Uses winCrt; Var nil1 : Array[1..100] of Integer; n,i,j,dum : Integer; Begin ClrScr; Write(‘mau isi berapa data acak (integer) =’); readln(n); For i := 1 to n Do Begin Write(‘Data Ke ‘,i,’:’);Readln(nil1[i]); End; {* penyapuan proses}…

  • Hendra Array & Record

    Contoh program data pribadi dengan pascal USES WINCRT; TYPE DATA = RECORD NAMA : STRING[25]; ALAMAT : STRING[30]; JK : STRING ; TELP : STRING [10]; TANGGALLAHIR : STRING[20] ; END; VAR a : data; JAWABAN : CHAR; BEGIN REPEAT CLRSCR; BEGIN WRITE (‘NAMA :’);READLN(a.NAMA); WRITE (‘ALAMAT :’);READLN (a.ALAMAT); WRITE (‘JK ;’);READLN (a.JK); WRITE (‘TELP…

  • Program Bilangan Prima dengan Menggunakan Bantuan Array

    Contoh program : Program Mencari_Bilangan_Prima_Dengan_Array; Uses Crt; Var Prima : Array[1..100] of Integer; i,j : Integer; bil : Integer; Begin ClrScr; For i := 2 to 100 Do Begin Prima[i]:=i; For j:= 2 to i-1 Do Begin bil := (i mod j); {* i dibagi j dicek apakah 0*} If bil = 0 then Prima[i]:=0;…

  • ARRAY DAN RECORD

    ARRAY Suatu hari karena melihat kemajuan teknologi seorang guru ingin mengetahui bilangan prima yang ada pada bilangan antara 1 sampai dengan 200 tanpa harus menghitung manual,maka guru tersebut menyuruh anaknya yang seorang programmer untuk membuatkan program mencari bilangan prima antara 1 sampai 200, si programmer membuat program tersebut dengan turbo pascal,program tersebut dibuat dengan bagian…

  • Program Bulan

    Program bulan di pascal kiriman Yogi Priyo Prayogo program bulan; uses Wincrt; conts Bulan : array[1..12] of string = (‘Januari’,’Februari’,’Maret’,’April’,’Mei’,’Juni’,’Juli’,’Agustus’,’September’,’Oktober’,’November’,’Desember’); var noBulan :integer; begin write(‘Masukkan nomor bulan : ‘); readln(noBulan); write(‘Nama bulan ke-‘, noBulan, ‘adalah’,Bulan[noBulan]); readln; end. Yogi Priyo Prayogo [email protected]

  • Program Menghitung Bulan

    Contoh program menghitung bulan kiriman Sudirman Program Menghitungbulan; uses wincrt; var matriks : array [1..2, 1..12] of integer; A,B :integer; Begin clrscr; matriks [1,1] := 1; matriks [1,2] := 2; matriks [1,3] := 3; matriks [1,4] := 4; matriks [1,5] := 5; matriks [1,6] := 6; matriks [1,7] := 7; matriks [1,8] := 8; matriks…

  • Intan Array

    Contoh program dengan array di pascal kiriman Made Intan Dwipayani uses wincrt; var baris, kolom,i,j : integer; a : array [1..50,1..50] of integer; Begin Clrscr; Write(‘Masukkan Jumlah Baris : ‘);Readln(baris); Write(‘Masukkan Jumlah Kolom : ‘);Readln(kolom); Writeln; Gotoxy(1,5);Write(‘A= ‘); {gotoxy = mengarahkan cursor ke x,y} for i := 1 to baris do for j := 1…