Program Menghitung Hari Dalam Satu Bulan di C++

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;

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 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;

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;

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