Sintak Programnya :
#include <iostream>
int year, month, day;
void input();
void errorYear();
void errorMonth();
void again();
int main()
{
cout<<"Program menghitung hari dalam satu bulan."<<endl;
input();
}
void input()
{
cout<<"Masukkan angka tahun:"<<endl;
cin>>year;
cout<<"Masukkan angka bulan:"<<endl;
Senin, 22 Juni 2015
Program Pertambahan 2 Matriks Ordo 4X3 di Pascal
Sintak Programnya :
PROGRAM pertambahan_2_matrik_ordo_4x3;
USES WINCRT;
VAR
Matrik1 : ARRAY [1..4,1..3] OF INTEGER;
Matrik2 : ARRAY [1..4,1..3] OF INTEGER;
Matrik3 : ARRAY [1..4,1..3] OF INTEGER;
A, B: INTEGER;
BEGIN
WRITEln('masukan nilai matrik ke-1 :');
writeln('---------------------------');
FOR A :=1 TO 4 DO
BEGIN
FOR B := 1 TO 3 DO
BEGIN
wRITE('Data nilai ke-[',A,',',B,']');
READLN(matrik1[A][B]);
END;
END;
PROGRAM pertambahan_2_matrik_ordo_4x3;
USES WINCRT;
VAR
Matrik1 : ARRAY [1..4,1..3] OF INTEGER;
Matrik2 : ARRAY [1..4,1..3] OF INTEGER;
Matrik3 : ARRAY [1..4,1..3] OF INTEGER;
A, B: INTEGER;
BEGIN
WRITEln('masukan nilai matrik ke-1 :');
writeln('---------------------------');
FOR A :=1 TO 4 DO
BEGIN
FOR B := 1 TO 3 DO
BEGIN
wRITE('Data nilai ke-[',A,',',B,']');
READLN(matrik1[A][B]);
END;
END;
Minggu, 21 Juni 2015
Program Perkalian 2 Matriks Ordo 2x3 di Pascal
Pada kesempatan kali ini saya akan posting Program Perkalian 2 Matrix Ordo 2x3 di Pascal.
Sintak programnya :
perkalian_2_matrik_ordo_2x3;
USES WINCRT;
VAR
Matrik1 : ARRAY [1..2,1..3] OF INTEGER;
Matrik2 : ARRAY [1..2,1..3] OF INTEGER;
Matrik3 : ARRAY [1..2,1..3] OF INTEGER;
A, B: INTEGER;
BEGIN
WRITEln('masukan nilai matrik ke-1 :');
writeln('---------------------------');
FOR A :=1 TO 2 DO
BEGIN
FOR B := 1 TO 3 DO
BEGIN
wRITE('Data nilai ke-[',A,',',B,']');
READLN(matrik1[A][B]);
END;
END;
Sintak programnya :
perkalian_2_matrik_ordo_2x3;
USES WINCRT;
VAR
Matrik1 : ARRAY [1..2,1..3] OF INTEGER;
Matrik2 : ARRAY [1..2,1..3] OF INTEGER;
Matrik3 : ARRAY [1..2,1..3] OF INTEGER;
A, B: INTEGER;
BEGIN
WRITEln('masukan nilai matrik ke-1 :');
writeln('---------------------------');
FOR A :=1 TO 2 DO
BEGIN
FOR B := 1 TO 3 DO
BEGIN
wRITE('Data nilai ke-[',A,',',B,']');
READLN(matrik1[A][B]);
END;
END;
Jumat, 19 Juni 2015
Membuat Program Penjualan Menggunakan Turbo Pascal
Pada kesempatan kali ini saya akan posting membuat program penjualan menggunakan turbo pascal.
Sintak programnya :
Program Penjualan;
uses wincrt;
const
jenis_barang = 20;
a = '********************************************************************************';
b = ' INPUT DATA BARANG';
c = '----------------------------------------------------------------------------------------------------';
d = ' OUTPUT DATA BARANG ';
e ='===================================================';
Type
recordbarang = record
Kode : string[6];
Nama : string[15];
Jumlah : byte;
Ukuran : string[12];
harga_unit:real;
end;
Sintak programnya :
Program Penjualan;
uses wincrt;
const
jenis_barang = 20;
a = '********************************************************************************';
b = ' INPUT DATA BARANG';
c = '----------------------------------------------------------------------------------------------------';
d = ' OUTPUT DATA BARANG ';
e ='===================================================';
Type
recordbarang = record
Kode : string[6];
Nama : string[15];
Jumlah : byte;
Ukuran : string[12];
harga_unit:real;
end;
Rabu, 17 Juni 2015
Doa Niat Puasa dan Buka Puasa Ramadhan
Bulan ramadhan telah tiba bulan suci penuh berkah dan ampunan. Marilah kita sambut bulan ramadhan dengan penuh kecerian.
Doa Niat Puasa
نَوَيْتُ صَوْمَ غَدٍ عَنْ اَدَاءِ فَرْضِ شَهْرِ رَمَضَانَ هَذِهِ السَّنَةِ ِللهِ تَعَالَى
Nawaitu saumagadin an'adai fardi syahri ramadhana hadzihissanati lillahita'ala.
Artinya :
Sengaja aku berpuasa esok hari untuk menunaikan fardhu puasa pada bulan Ramadhan bagi tahun ini karena Allah Taala
Langganan:
Postingan (Atom)