-
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 Stat Game
Program StatGame oleh Yogi Priyo Prayogo program StatGame; uses Wincrt; type Game=record Judul : string[15]; Genre : string[10]; Versi : string[10]; Rating : string[10]; Vendor : string[20]; Harga : integer; end; var x : Game; Jwbn : char; begin repeat writeln(‘Entry data game’); writeln; writeln; write(‘Judul Game : ‘); readln(x.Judul); write(‘Genre Game : ‘); readln(x.Genre);…
-
Dirman Record
Program ditulis oleh Sudirman uses wincrt; Var tanggal : record hari, bulan, tahun : integer end; begin write(‘tanggal : ‘) ; readln(tanggal.hari); write(‘bulan : ‘); readln(tanggal.bulan); write(‘tahun : ‘); readln(tanggal.tahun); write(‘tanggal lahir anda : ‘); write(tanggal.hari); write(tanggal.bulan); write(tanggal.tahun); readln; end. Sudirman [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…
-
Intan Record
Contoh program dengan record di pascal kiriman Made Intan Dwipayani program datamhs; uses wincrt; type mahasiswa = record nim : string[8]; nama : string[30]; gender : string[1]; nilai1 : real; nilai2 : real; End; var data : mahasiswa; total, mean : real; konversi, ulang : char; begin repeat writeln(‘input data mahasiswa : ‘); writeln(‘***********************’); writeln(‘NIM…
-
Contoh Program Record
Yang contoh program-nya. kalau ada masukan dari teman-teman, langsung ditanggapi saja ya. Source codenya seperti di bawah ini: program list; {untuk menampilkan list data karyawan} uses wincrt; type karyawan=record nama: string; kelamin: string; alamat : string; end; var kry: karyawan; begin clrscr; write(‘Masukkan Nama: ‘); readln(kry.nama); write(‘Masukkan Jenis Kelamin: ‘); readln(kry.kelamin); write(‘Masukkan Alamat: ‘); readln(kry.alamat);…
-
Program Penilaian Mahasiswa
Halo semua. Komang kirim ya. yang ini contoh program array, untuk menghitung nilai rata-rata nilainya selama 1 semester. source codenya seperti di bawah ini: program penilaian_MHS;{program ini untuk melihat hasil nilai mahasiswa selama 1 semester} uses wincrt; var nama : array[1..20] of string; tugas, uts, uas, presensi : array[1..20] of integer; rata : array[1..20] of…
-
Program Data Mahasiswa
Berikut ini contoh program data mahasiswa di pascal kiriman Dianita Wahyu Kurniasih Program data_mhs; uses wincrt; type mahasiswa = record nim : string[8]; nama : string[25]; umur : integer; end; var data:mahasiswa; begin clrScr; writeln (‘Masukkan data diri Anda : ‘ ); write (‘Nim : ‘ );readln(data.Nim); write (‘Nama : ‘ );readln(data.Nama); write (‘Umur :…