TUGAS UTS DELPHI SI/B

Nama kelompok:
1.Dhirvan andhika rp
2.Edward satya i
3.Suhendri
4.Aditya bagus s
5.Ach.Nurdiansyah

Lihat program kami disini
1.Program Pembayaran disini
2.Program Diary disini
3.Notepad baru disini
4.Program pembayaran semester disini

CPP ganjil genap

#include"iostream.h"
#include"conio.h"
void main()
{
clrscr();
int n;
cout<<"masukkan sembarang nilai(1 s/d n): "; cin>>n;
if (n % 2==1)
cout<<"bilangan "<< n <<" adalah bilangan ganjil"<<'\n';
else
cout<<"bilangan "<< n <<" adalah bilangan genap"<<'\n';
getch();
}

CPP keliling dan luas lingkaran

#include"iostream.h"
#include"conio.h"
void main()
{
int r;
float phi,keliling,Luas;
r=7,2;
phi=3.14;
Luas=0.5*phi*r*r;
cout<<"Luas lingkaran ="<< Luas <<'\n';
keliling=2*phi*r;
cout<<"keliling lingkaran ="<< keliling <<'\n';
getch();
}

CPP luas persegi panjang

#include "iostream.h"
void main()
{
int panjang,lebar,luas;
cout<<"Panjang:"; cin>>panjang;
cout<<"Lebar:"; cin>>lebar;
luas=panjang*lebar;
cout<<"Luas :" << luas << endl;
}