program bahasa C bagian 5

Program mencetak deret bilangan ganjil dengan menggunakan while
/* Program mencetak deret bilangan ganjil dengan menggunakan while */
#include"stdio.h"
#include"conio.h"
void main()
{ clrscr();
int i=1,x;
while(i<=4)
{
x=1; while(x<=i)
{
printf("%3i",x); x=x+1; }
printf("\n"); i=i+1; }
getch();
}


program mencari nilai rata2
/* Mencari total dan rata-rata sejumlah bilangan menggunakan for */
#include"stdio.h"
#include"conio.h"
void main()
{ clrscr();
float r,i,x,t=0;
int y;
for(y=1;y<=3;y++) for(i=0;i<=2;i++) { printf("Entry bilangan %i : ",y); scanf("%f",&x); t=t+x; y=y+1; } printf("\n Total : %.2f",t); r=t/i; printf("\n Rata rata : %.2f",r); getch(); }



program kalkulator sederhana
#include
#include
#include

main()

{
float a,b,t,k,x,g;
int pilih;
int lagi;
ulang:
clrscr();
{
puts ("KALKULATOR SEDERHANA");
puts ("1. PENJUMLAHAN(+)");
puts ("2. PENGURANGAN(-)");
puts ("3. PERKALIAN(x)");
puts ("4. PEMBAGIAN(/)");
puts ("5. KELUAR");

printf("\nmasukkan pilihan [1-3]: ");
scanf("%i",&pilih);

if (pilih==1)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
t=a+b;
printf("\nnilai %f + %f = %f",a,b,t);

}

else if (pilih==2)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
k=a-b;
printf("\nnilai %f - %f = %f",a,b,k);

}
else if (pilih==3)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
x=a*b;
printf("\nnilai %f x %f = %f",a,b,x);
}
else if (pilih==4)
{
printf("\nmasukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
g=a/b;
printf("\nnilai %f / %f = %f",a,b,g);
}
else if (pilih==5)
printf("anda memilih untuk keluar!\n");
else
printf("\npilihan yang anda masukkan salah !");
printf("\n\napakah anda ingin mengulang?(y/n)\n");
printf("1. ya\n");
printf("2. tidak\n");
printf("pilihan anda: ");
scanf("\n\n%i",&lagi);
if (lagi==1)
goto ulang;
else
goto end;
}
end:
{
getch();

}
}


Program untuk menginput nilai mahasiswa ke dalam array satu dimensi
/* Program untuk menginput nilai mahasiswa ke dalam array satu dimensi */
#include
#include
void main()
{
int index, nilai[10], bilangan;
clrscr();
/* input nilai mahasiswa */
printf("masukkan banyaknya bilangan: ");
scanf("%i", &bilangan);
for(index=0; index < bilangan; index++)
{
printf("bilangan ke%i : ", index+1); scanf("%i", &nilai[index]);
}
/* tampilkan nilai mahasiswa */
printf("\nbilangan yang telah diinput\n");
for(index=0; index < bilangan; index++)
{
printf("%5.0i", nilai[index]);
}
getch();
}

program bahasa C bagian 4

program menentukan jenjang pendidikan berdasarkan NIM
/* Program untuk menentukan jurusan & jenjang mahasiswa berdasarkan NIM*/
#include
#include
#include
void main()
{
char jurusan[25], jenjang[10], nim[10], nama[20], angkatan[20], fakultas[20];
clrscr(); .
printf("Masukkan nama Anda : "); gets(nama);
printf("Masukkan NIM Anda : "); gets(nim);
/***** cari jurusan *****/
switch(nim[2])
{
case '1' : strcpy(jurusan, "Fisika");
break;
case '2' : strcpy(jurusan, "Kimia");
break;
case '3' : strcpy(jurusan, "Matematika");
break;
case '4' : strcpy(jurusan, "Biologi");
break;
default : printf("Anda salah memasukkan NIM. Coba periksa lagi !\n");
break;
}
/***** cari jenjang *****/
if(nim[4] == '5')
{ strcpy(jenjang, "Strata-1");
}
else
{ if(nim[4] == '3')
{ strcpy(jenjang,"Diploma-3");
}
else
printf("ANda salah memasukkan NIM. Coba periksa lagi !");
}
/***** tampilkan data mahasiswa *****/
printf(" <<>>");
printf("Nama : %s", nama);
printf("NIM : %s", nim);
printf("fakultas : %s", fakultas);
printf("Jenjang : %s", jenjang);
printf("Jurusan : %s", jurusan);
printf("angkatan : %i", angkatan);

getch();
}




program perhitungan segitiga daya
#include
#include

main()
{
int kode;
float S,V,I,P,Q,CosPhi,SinPhi;

puts ("===PERHITUNGAN SEGITIGA DAYA===");
puts ("1. DAYA SEMU");
puts ("2. DAYA AKTIF");
puts ("3. DAYA REAKTIF");
printf("\nmasukkan kode pilihan [1-3]: ");
scanf("%i",&kode);

switch(kode)
{
case 1:
puts("");
puts("perhitungan daya semu");
printf("masukkan nilai tegangan: ");
scanf("%f",&V);
printf("masukkan nilai arus: ");
scanf("%f",&I);
S=V*I;
printf("\ndaya semu = %f",S);
break;

case 2:
puts("");
puts("perhitungan daya aktif");
printf("masukkan nilai daya semu: ");
scanf("%f",&S);
printf("masukkan nilai cos Phi: ");
scanf("%f",&CosPhi);
P=S*CosPhi;
printf("\ndaya aktif = %f",P);
break;

case 3:
puts("");
puts("perhitungan daya reaktif");
printf("masukkan nilai daya semu: ");
scanf("%f",&S);
printf("masukkan nilai sin Phi: ");
scanf("%f",&SinPhi);
Q=S*SinPhi;
printf("\ndaya reaktif = %f",Q);
break;

default:
puts("");
puts("kode yang anda masukkan salah !!!");
}
getch();
}




program perhitungan daya aktif reaktif dan nyata
#include
#include

main()
{
float S,P,Q,cosphi;
cosphi=0;
puts ("===PERHITUNGAN DAYA AKTIF DANB REAKTIF===");
puts ("berdasarkan operubahan cos phi");
printf("masukkan nilai daya semu");
scanf("%f",&S);
while (cosphi <= 1) { P=S*cosphi; Q=S*(1-cosphi); printf("\ncosphi= %f P = %f Q = %f", cosphi, P,Q); cosphi +=0.1; } getch(); }



program pengujian hukum ohm
#include
#include

main()
{
float V,I,R;
int pilih;

puts ("pengujian hukum ohm");
puts ("1. hitung tegangan");
puts ("2. hitung arus");
puts ("3. hitung resistansi");

printf("\nmasukkan pilihan [1-3]: ");
scanf("%i",&pilih);

if (pilih==1)
{
printf("\nmasukkan nilai arus :");
scanf("%f",&I);
printf("masukkan nilai resistansi :");
scanf("%f",&R);
goto tegangan;
}

else if (pilih==2)
{
printf("\nmasukkan nilai tegangan : ");
scanf("%f",&V);
printf("masukkan nilai resistansi : ");
scanf("%f",&R);
goto arus;
}
else if (pilih==3)
{
printf("\nmasukkan nilai tegangan : ");
scanf("%f",&V);
printf("masukkan nilai arus : ");
scanf("%f",&I);
goto resistansi;
}
else printf("\npilihan yang anda masukkan salah !");

tegangan:
{
V=I*R;
printf("\nnilai tegangan = %f",V);
}

arus:
{
I=V/R;
printf("\nnilai arus = %f",I);
}

resistansi:
{
R=V/I;
printf("\nnilai resistansi = %f",R);
}
getch();
}





program tukar nilai
/*Program Tukar_Nilai*/

#include
main()
{
int A, B, temp;
printf("Masukkan nilai A: "); scanf("%d",&A);
printf("Masukkan nilai B: "); scanf("%d",&B);
/* ALGORITMA */
temp = A;
A = B;
B = temp;
printf("Nilai A setelah pertukaran adalah: %d\n", A);
printf("Nilai B setelah pertukaran adalah: %d", B);
}


program tukar nilai 2
/*Program Tukar_Nilai*/

#include
main()
{
int A, B;
printf("Masukkan nilai A: "); scanf("%d",&A);
printf("Masukkan nilai B: "); scanf("%d",&B);

/* ALGORITMA */
A = A + B;
B = A - B;
A = A - B;
printf("Nilai A setelah pertukaran adalah: %d\n", A);
printf("Nilai B setelah pertukaran adalah: %d", B);
}




/* Program Perulangan menggunakan while */
#include "stdio.h"
#include "conio.h"
void main()
{ int x;
x = 1;
/* awal variabel */
while (x <= 10) /* Batas akhir perulangan */ { printf("%d BAHASA C\n", x); x++; /* variabel x ditambah dengan 1 */ } getch(); }

program bahasa C bagian 3

program mencari keliling segitiga
#include
#include
#include
//menghitung keliling segitiga
main()
{
int a,b,c,K;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
.
printf("Program Mencari keliling segitiga\n\n");
printf("Masukan nilai a = ");
scanf("%i",&a);
printf("Masukan nilai b = ");
scanf("%i",&b);
printf("Masukan nilai c = ");
scanf("%i",&c);
K = (a+b+c);
printf("Keliling segitiga adalah %i", K);
getch();
}




program menghitung luas segitiga
#include
#include
//Program untuk menghitung luas lingkaran
main()
{
float pi = 3.1415;
float r;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("Program Mencari luas dan keliling lingkaran\n\n");
printf ("Jari-jari lingkaran = ");
scanf ("%f", &r);
printf ("keliling lingkaran = %f\n", 2 * pi * r);
printf ("Luas lingkaran = %f", pi * r * r);
getch();
}



program persamaan kuadrat
#include "stdio.h"
#include "math.h"

int main()
{
float a, b, c, D, X, X1, X2, XRiil, XImajiner;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("Program Mencari persamaan kuadrat\n\n");

printf("Perhitungan akar-akar persamaan aX2+bX+c=0\n");
printf("Masukkan nilai koefisien a, b, dan c:\n");
printf("Masukkan nilai koefisien a: "); scanf("%f", &a);
printf("Masukkan nilai koefisien b: "); scanf("%f", &b);
printf("Masukkan nilai koefisien c: "); scanf("%f", &c);

D = b*b-4*a*c;
printf("Diskriminan = %g\n", D);
printf("Akar persamaan %gX^2 + %gX + %g = 0 adalah:\n", a, b, c);
if (D > 0)
{
X1 = (-b+sqrt(D))/(2*a);
X2 = (-b-sqrt(D))/(2*a);
printf("X1 = %g\n", X1);
printf("X2 = %g\n", X2);
}
else if (D == 0) {
X = -b/(2*a);
printf("X1 = X2 = %g\n", X);
}
else {
XRiil = -b/(2*a);
XImajiner = sqrt(-D)/(2*a);
printf("Akar imajiner:\n");
printf("X1 = %g+%g*i\n", XRiil, XImajiner);
printf("X2 = %g-%g*i\n", XRiil, XImajiner);
}
return 0;
}


program rata2
/*program rata_rata*/;
#include;
int a, mahasiswa;
int nilai, total, tinggi, rendah, rata;
char nama;
main()
{
total = 0;
printf("jumlah mahasiswa : ");
scanf("%i",&mahasiswa);
{
mahasiswa=mahasiswa+1;
printf ("nama mahasiswa ke %i",mahasiswa
);
scanf ("%i",&mahasiswa);
printf ("nilai ",nama,": "); scanf ("%i",&nilai);
total = total + nilai;
}
rata = total / mahasiswa;
printf ("rata-rata nilai mahasiswa : ",rata);
}



program kalkulator sederhana
#include
#include

main()
{
float a,b,t,k,x,g;
int pilih,lagi;

ulang:
{
clrscr();
puts ("KALKULATOR SEDERHANA");
puts ("1. PENJUMLAHAN(+)");
puts ("2. PENGURANGAN(-)");
puts ("3. PERKALIAN(x)");
puts ("4. PEMBAGIAN(/)");
puts ("5. KELUAR");
printf("\nmasukkan pilihan anda [1-5]: ");
scanf("\n%i",&pilih);
switch(pilih)
{
case 1:
puts("\nPENJUMLAHAN");
printf("masukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
t=a+b;
printf("hasil dari %f + %f = %f",a,b,t);
break;
case 2:
puts("\nPENGURANGAN");
printf("masukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
k=a-b;
printf("hasil dari %f - %f = %f",a,b,k);
break;
case 3:
puts("\nPERKALIAN");
printf("masukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
x=a*b;
printf("hasil dari %f x %f = %f",a,b,x);
break;
case 4:
puts("\nPEMBAGIAN");
printf("masukkan nilai a: ");
scanf("%f",&a);
printf("masukkan nilai b: ");
scanf("%f",&b);
g=a/b;
printf("hasil dari %f / %f = %f",a,b,g);
break;
case 5:
puts("\nanda memilih untuk keluar!");
break;
default:
puts("\npilihan yang anda masukkan salah !");
}
puts("\napakah anda ingin mengulang?");
puts("1. ya");
puts("2. tidak");
printf("pilihan anda :");
scanf("%i",&lagi);
if (lagi==1)
{
goto ulang;
}
else
{
puts("selesai");
}
}
getch();
}

program bahasa C bagian 2

program deret bilangan
/* Program mencetak deret bilangan dengan menggunakan while */
#include"stdio.h"
#include"conio.h"
void main()
{
clrscr();
int i=1,x,nilai;
printf("deret bilangan ganjil \n\n");
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n"); .
printf("Prodi: Teknik Elektro\n\n");
printf("masukkan besar bilangan: ");scanf("%i",&nilai);
printf("bilangan ganjil antara 1 sampai %i adalah: \n",nilai);
while(i<=nilai) { x=1; while(x<=nilai) { printf("%i,",x); x=x+2; } printf("\n"); i=nilai+1; } getch(); }



program faktorial
#include //untuk cin dan cout
#include //untuk fungsi getch()
float faktorial2(int x)
{
if(x==0)
return 1;
else
return x*faktorial2(x-1);
}
void main()
{
int i, N;
//deklarasi nilai N
cout<<"Nama : afit miranto\n"; cout<<"NPM : G1D009001\n"; cout<<"Prodi: Teknik Elektro\n\n"; cout<<"Program faktorial\n\n"; cout<<"Masukan nilai N untuk N! : "; cin>>N; //input nilai N
for(i=1;i<=N;i++) { cout<<<" "; //tampilkan nilai ke N! } getch(); }




kalkulator sederhana
#include
#include

using namespace std;

//Fungsi untuk menghitung yang akan dipanggil nanti
float hitung (float pertama, float kedua, char tanda)
{
float hasil;
switch (tanda)
{
case '+' : hasil = pertama+kedua; break;
case '-' : hasil = pertama-kedua; break;
case '*' : hasil = pertama*kedua; break;
case '/' : hasil = pertama/kedua; break;
}
return hasil;
}

//Program utama
int main(int argc, char *argv[])
{
//Deklarasikan variabel
float pertama, kedua, hasil;
char tanda, ulang;
//Kode utama
do
{
system("cls");
cout<< "Masukkan angka pertama: "; cin>>pertama;
cout<< "Masukkan operator (+, -, *, /): "; cin>>tanda;
cout<< "Masukkan angka kedua: "; cin>>kedua;
cout<< "Hasilnya adalah "<<<< "Ingin menghitung lagi (y/n)? "; cin>>ulang;
} while (ulang!='n'&&ulang!='N');
return EXIT_SUCCESS;
}



kalkulator sederhana 2
#include
#include

main ()
{
char oper;
double op1, op2, hasil;
float lagi;
ulang:
clrscr();
{
puts("Program Kalkulator Sederhana \n");
puts("Operator yang dapat digunakan adalah : ");
puts("* Untuk menyatakan perkalian");
puts("/ Untuk menyatakan pembagian");
puts("+ Untuk menyatakan penambahan");
puts("- Untuk menyatakan pengurangan");
puts("\ncontoh penggunaan kalkulator ketik 7 * 2 ENTER");

printf("\nNilai yang akan dihitung : ");
scanf("%lf", &op1); scanf("%c", &oper);scanf("%lf", &op2);

switch (oper)
{
case '*' :
hasil = op1 * op2;
printf("hasil Perkalian = %2.2lf", hasil);
break;
case '/' :
hasil = op1 / op2;
printf("hasil pembagian = %2.2lf", hasil);
break;
case '+' :
hasil = op1 + op2;
printf("hasil penambahan = %2.2lf", hasil);
break;
case '-' :
hasil = op1 - op2;
printf("hasil pengurangan = %2.2lf", hasil);
break;
default :
puts("Saya tidak bisa menghitung yang Anda tuliskan.");
puts("Mungkin Anda tidak memenuhi aturan yang ada.");
break;
}
puts("\n\napakah anda ingin mengulang?");
puts("1. ya");
puts("2. tidak");
printf("pilihan anda : ");
scanf("%f",&lagi);
if (lagi==1)
{
goto ulang;
}
else
{
puts("selesai");
}
}
getch();
}







kalkulator sederhana 3

#include"conio.h"
#include"iostream.h"

class calculator
{
private:
float angka_1,angka_2,hasil;
char operasi,eksekusi;
public:
void masukan ();
void proses ();
void keluaran ();
};

void calculator::masukan ()
{
cout<<"Masukkan Angka pertama = "; cin>>angka_1;
cout<<"Jenis Operasi perhitungan * / + - = "; cin>>operasi;
cout<<"Masukkan Angka kedua = "; cin>>angka_2;
}

void calculator::proses ()
{
if(operasi=='*')
{
hasil=angka_1*angka_2;
}
else if(operasi=='/')
{
hasil=angka_1/angka_2;
}
else if(operasi=='+')
{
hasil=angka_1+angka_2;
}
else if(operasi=='-')
{
hasil=angka_1-angka_2;
}
}

void calculator::keluaran()
{
cout<<"Tekan tombol (=) "; do { cin>>eksekusi;
if(eksekusi=='=')
{
cout<<"Hasil perhitungan = "; cout<<"Anda tidak menekan tombol sama dengan (=) "; } } while(eksekusi!='='); } void main() { class calculator jadi; char pil; do { clrscr(); jadi.masukan(); jadi.proses(); jadi.keluaran(); cout<<"Apakah anda ingin mengulang? (y or n) ";cin>>pil;
}while(pil=='y'||pil=='Y');
}

program bahasa C bagian 1

program mencari nilai terbesar dari suatu bilangan yg diinputkan
#include
#include
void main()
{ clrscr();
int a,b,c,d,e,max,min;
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n"); .
printf("menentukan bilangan terbesar dan terkecil\n");
printf("masukkan bil 1 : ");fflush(stdin);scanf("%i",&a);
printf("masukkan bil 2 : ");fflush(stdin);scanf("%i",&b);
printf("masukkan bil 3 : ");fflush(stdin);scanf("%i",&c);
printf("masukkan bil 4 : ");fflush(stdin);scanf("%i",&d);
printf("masukkan bil 5 : ");fflush(stdin);scanf("%i",&e);
if((a>=b)&&(a>=c)&&(a>=d)&&(a>=e))
max=a;
if((b>=a)&&(b>=c)&&(b>=d)&&(b>=e))
max=b;
if((c>=a)&&(c>=b)&&(c>=d)&&(c>=e))
max=c;
if((d>=a)&&(d>=b)&&(d>=c)&&(d>=e))
max=d;
if((e>=a)&&(e>=b)&&(e>=d)&&(e>=c))
max=e;
printf("Bil terbesar adalah: %i\n",max);
if((a<=b)&&(a<=c)&&(a<=d)&&(a<=e)) min=a; if((b<=a)&&(b<=c)&&(b<=d)&&(b<=e)) min=b; if((c<=a)&&(c<=b)&&(c<=d)&&(c<=e)) min=c; if((d<=a)&&(d<=b)&&(d<=c)&&(d<=e)) min=d; if((e<=a)&&(e<=b)&&(e<=d)&&(e<=c)) min=e; printf("Bil terkecil adalah: %i\n",min); getch(); } program perkalian dua bilangan
/*program mencari perkalian dua bilangan*/
#include;
int a,b,c;
int x (int y, int z);
main()
{
printf("Nama : afit miranto\n");
printf("NPM : G1D009001\n");
printf("Prodi: Teknik Elektro\n\n");
printf("Program Mencari perkalian dua bilangan\n\n");
printf("masukkan nilai bilangan 1 sampai 100 : ");
scanf("%d",&a);
printf("masukkam nilai bilangan 1 sampai 100 : ");
scanf("%d",&b);

c = x (a,b);
printf("nilai dari %d x %d = %d \n", a,b,c);
return 0;
}
int x (int y, int z)
{
return (y*z);
}


program data mahasiswa
#include
#include
#include //karena menggunakan fungsi strcpy() dan strcmp()
int main()
{
typedef struct{
char NPM[9];
float Nilai;
} Data_Mahasiswa;

Data_Mahasiswa DatMahasiswa[25];
char TempNPM[8];
int TempNilai,i,j,k,N,y;
printf("Masukan banyaknya nilai yang akan diinput: ");scanf("%d",&N);
//input banyaknya nilai yang akan diinput
printf("\nSilahkan Input Data: \n");
//pengulangan untuk input nilai
for(i=1;i<=N;i++) { printf("Data ke-%d\n",i); printf("NPM : ");scanf("%s",&DatMahasiswa[i].NPM); printf("Nilai : ");scanf("%f",&DatMahasiswa[i].Nilai); printf("\n"); } //proses insertion sort printf("\nProses Insertion Sort NPM Secara Ascending"); for(k=1;k<=N;k++) { printf("\n"); strcpy(TempNPM,DatMahasiswa[k].NPM); TempNilai=DatMahasiswa[k].Nilai; j=k; while(strcmp(TempNPM,DatMahasiswa[j1].NPM)<0>1)
{
strcpy(DatMahasiswa[j].NPM,DatMahasiswa[j-1].NPM);
DatMahasiswa[j].Nilai=DatMahasiswa[j-1].Nilai;
j=j-1;
}
strcpy(DatMahasiswa[j].NPM,TempNPM);
DatMahasiswa[j].Nilai=TempNilai;
//menampilkan proses sorting
for(y=1;y<=N;y++) printf(" %s",DatMahasiswa[y].NPM); } printf("\n\nSetelah Disorting Secara Ascending\n"); for(i=1;i<=N;i++) //pengulangan untuk menampilkan { //menampilkan nilai array yang ke-i printf("\nData ke-%d",i); printf("\nNPM : %s",DatMahasiswa[i].NPM); printf("\nNilai : %4.2f\n",DatMahasiswa[i].Nilai); } printf("\n\n"); system("pause"); return 0; }

program bahasa pascal bagian 3

program analisa numerik dengan metode tabulasi
Program metode_tabulasi;
uses wincrt;
label ulang;
var
x,x1,x2,xa,xb,xc,y,y1,y2,ya,yb:real;
I,j,k:integer;
ab:char;
begin
ulang: .
clrscr;
writeln('Tentukan akar penyelesaian dengan Metode Tabulasi dari f(x)=x^3-7x+1');
writeln;
write('masukkan nilai x1 ='); { * Nilai variable X pertama * }
readln(x1);
y1 := x1* x1* x1 - 7 * x1 + 1;
Writeln(' f(',x1:0:2,')=',y1:0:4);
repeat
begin
write('masukkan nilai x2 =');
readln(x2);
y2 := x2 * x2 * x2 - 7 * x2 + 1;
writeln(' f(',x2:0:2,')=',y2:0:4);
writeln;
writeln('Syarat (x1*x2)<0'); x2="',y1*y2:0:5);"> x2 then
begin
xa := x1;
xb := x2;
end
else
begin
xa := x2;
xb := x1;
end;
xc := (xa - xb) /10;
i:=0;
repeat
begin
i:=i+1;
x := xb + xc * I;
ya := x * x * x - 7 * x +1;
yb :=( x - xc) *(x - xc) *(x - xc) - 7 * (x - xc)+1;
end;
until (ya * yb) <0; x="',x);" error="',abs(y));" ab="'Y')" ab="'y')" style="font-weight: bold;">program input matrix
program input_matrix;
uses wincrt;

var
i,j,b,a:integer;

begin
a:=1;
writeln;
writeln;
write('masukan baris ');read(a);
write('masukan kolom ');read(b);

for i:= 1 to a do
begin
for j:= 1 to b do
begin
writeln(' (' ,i,' , ' ,j, ') ');
end;
end;
end.



program mencari faktorial

program faktorial;
uses wincrt;

var
i,j,n,a:integer;

begin
writeln('nama : Afit Miranto');
writeln('NPM : G1D009001');
writeln('PRODI : Teknik Elektro');
write('masukkan nilai n: ');
readln(n);
writeln('nilai faktorialnya adalah ');
for i:=1 to n do
begin
for j:=1 to i do
begin
a:=1;
for j:=1 to i do
a:=a*j;
end;
write(a, ' ');
end;
readln;
donewincrt
end.


program faktorial2
Program Faktorial_pascal;
uses wincrt;
function Faktorial(a:integer):longint;
begin
if (A=1)then
Faktorial:=1
else
Faktorial:=a*faktorial(a-1);
end;
var
x:integer;
begin
clrscr;
writeln('Faktorial Sequence');
writeln;
write('Berapa Faktorial : ');readln(x);
writeln(x,' faktorial ','= ',faktorial(x));
writeln;
write('Tekan Sembarang Tombol untuk keluar...');
readln;
donewincrt
end.


program data string
program data_string;
uses wincrt;
var
nama,npm,prodi,fakultas:string;
tahunlahir,umur:integer;
jeniskelamin:char;

begin
writeln(' welcome ');
writeln('-------------------------');
write('Nama : ');
readln(nama);
write('NPM : ');
readln(npm);
write('Prodi : ');
readln(prodi);
write('Fakultas : ');
readln(fakultas);
write('Tahun Lahir : ');
readln(tahunlahir);
write('jenis kelamin anda (L/P)? ');
readln(jeniskelamin);
umur:=2010-tahunlahir;
writeln('hello good morning ',nama, ' how are you today....????');
writeln('npm anda: ',npm);
writeln('dari prodi : ' ,prodi);
writeln('umur anda saat ini: ',umur,' tahun');
write('anda seorang ');
begin;
if (jeniskelamin='L') or (jeniskelamin='l') then write('laki-laki')
else write('perempuan');
end;

readln;
donewincrt;
end.

program luas keliling lingkaran
program luas_keliling_lungkaran;
uses wincrt;
label ulang;

var
r:integer;
l:real;
k:real;
ab:char;
const
phi=3.14;

begin
ulang:
clrscr;

writeln('PROGRAM MENCARI LUAS DAN KELILING LINGKARAN');
write('jari-jari= ');readln(r);
l:=phi*r*r;
k:=2*phi*r;
writeln('luas lingkaran= ',l:4:2);
write('keliling lingkaran= ',k:4:2);
writeln('Apakah anda ingin mengulanginya (y/t): ');
readln(ab);
if (ab='y') or (ab='Y') then
begin
goto ulang;
end
else
donewincrt;
readln
end.

program bahasa pascal bagian 2

program mencari nilai rata2
program rata_rata;
uses wincrt;

var
a, mahasiswa : integer;
nilai, total, tinggi, rendah, rata : real;
nama:string;

begin
total := 0; .
write ('jumlah mahasiswa : '); readln (mahasiswa);
writeln;
for a := 1 to mahasiswa do
begin
write ('nama mahasiswa ke ',a,' ');readln (nama);
write ('nilai ',nama,' : '); readln (nilai);

total := total + nilai;
if a = 1 then
begin
tinggi := nilai;
rendah := nilai;
end
else begin
if nilai > tinggi then tinggi := nilai
else begin
if nilai < style="font-weight: bold;">program input nilai mahasiswa
Program Input_nilai_mhs;
Uses WinCrt;
Const
garis='-------------------------------------------------------------------------------';
Var
nil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}
nim : Array [1..10] Of String [8];
nama : Array [1..10] Of String [50];
n,i,bar : Integer;
jum : Real;
tl : Char;
Begin
ClrScr;
{ pemasukan data dalam array }
Writeln ('Maximize dulu windows anda,');
Writeln ('untuk mendapat hasil yang maksimal!!!');
Write ('Berapa Data Mahasiswa yang aka diinput :');
Readln (n);
For i:= 1 To n Do
Begin
ClrScr;
GotoXY(30,4+1); Write('Data Ke-:',i:2);
GotoXY(10,5+i); Write('NIM :'); Readln(nim[i]);
GotoXY(10,6+i); Write('Nama :'); Readln(nama[i]);
GotoXY(10,7+i); Write('Nilai 1 :'); Readln(nil1[i]);
GotoXY(10,8+i); Write('Nilai 2 :'); Readln(nil2[i]);
End;
{ proses data dalam array }
ClrScr;
GotoXY(5,4); Write(Garis);
GotoXY(5,5); Write ('No');
GotoXY(9,5); Write ('NIM');
GotoXY(18,5); Write ('Nama');
GotoXY(38,5); Write ('Nilai 1');
GotoXY(45,5); Write ('Nilai 2');
GotoXY(52,5); Write ('Rata');
GotoXY(59,5); Write ('Abjad');
GotoXY(5,6); Write (Garis);
{ proses Cetak isi array dan seleksi kondisi }
bar := 7;
For i:= 1 To n Do
Begin
jum:=(nil1[i]+nil2[i])/2;
If jum&gt:= 90 Then tl:='A'
Else
If jum>80 Then tl:='B'
Else
If jum>60 then tl:='C'
Else
If jum >50 Then tl:='D'
Else
tl:='E';
{ cetak hasil yang disimpan di array dan hasil }
{ penyeleksian kondisi }
GotoXY(5,bar); Writeln(i:2);
GotoXY(9,bar); Writeln (NIM[i]);
GotoXY(18,bar); Writeln (NAMA[i]);
GotoXY(38,bar); Writeln (NIL1[i]:4);
GotoXY(45,bar); Writeln (NIL2[i]:4);
GotoXY(52,bar); Writeln (jum:5:1);
GotoXY(59,bar); Writeln (tl);
bar:=bar+1;
End;
GotoXY(5,bar+1);Writeln(garis);
Readln;
End.



program analisa numerik metode biseksi
Program Biseksi;
uses wincrt;
label ulang;
var
x1,x2,x3,y1,y2,y3 : real;
i : integer;
ab : char;
begin
ulang :
clrscr;
writeln('Tentukan nilai akar dari persamaan f(x)=x^3+x^2-3x-3=0 dengan Metode Biseksi');
write( 'Masukan nilai x1 = ' );
readln( x1 );
y1 := x1 * x1 * x1 * + x1 * x1 - 3 * x1 -3;
writeln(' Nilai f(x1)= ',y1:0:4);
repeat
begin
write( 'Masukan nilai x2 = ');
readln(x2);
y2 := x2 * x2 * x2 + x2 * x2 - 3 * x2 - 3;
write(' Nilai f(x2)= ',y2:0:4);
end;
if (y1*y2)<0 x1=" ',x1:0:2,'" x2=" ',x2:0:2);" persamaanya =" ',x3);" errornya ="',abs(" ab="'y')" ab="'Y')" style="font-weight: bold;">program mencari pangkat
Program MencariPangkat;
uses wincrt;
Var x : real; y : integer; z : real;

function pangkatBulat(a : real, b : integer) : real;
var i : integer; temp : real;
begin
temp := 1;
for i := 1 to b do
begin
temp := temp * a;
end;
pangkat := temp;
end;

function pangkatRiil(a : real, b : real) : real;
begin
pangkatRiil := exp(b * ln(a));
end;

Begin
x := 5;
y := 3;
z := 3.5;
Write('Nilai ',x,' pangkat ',y,' adalah ',
pangkatBulat(x,y):3:0);
Write('Nilai ',x,' pangkat ',z,' adalah ',
pangkatRiil(x,z):3:4);
End.



program penggunaan array dengan menggunakan for
Program Pemakaian_Array_Untuk_10_data_dengan_menggunakan_For;
Uses winCrt;
Const
garis='------------------------------------------------------';
Var
nil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}
npm : Array [1..10] Of String [8];
nama : Array [1..10] Of String [15];
n,i,bar : Integer;
jum : Real;
tl : Char;
Begin
ClrScr;
{ pemasukan data dalam array }
Write ('Mau Isi Berapa Data:');
Readln (n);
For i:= 1 To n Do
Begin
ClrScr;
GotoXY(30,4+1); Write('Data Ke-:',i:2);
GotoXY(10,5+i); Write('NPM :'); Readln (npm[i]);
GotoXY(10,6+i); Write('Nama :'); Readln (nama[i]);
GotoXY(10,7+i); Write('Nilai 1 :'); Readln(nil1[i]);
GotoXY(10,8+i); Write('Nilai 2 :'); Readln(nil2[i]);
End;
{ proses data dalam array }
ClrScr;
GotoXY(5,4); Write(Garis);
GotoXY(5,5); Write ('No');
GotoXY(9,5); Write ('NPM');
GotoXY(18,5); Write ('Nama');
GotoXY(34,5); Write ('Nilai 1');
GotoXY(41,5); Write ('Nilai 2');
GotoXY(47,5); Write ('Rata');
GotoXY(54,5); Write ('Abjad');
GotoXY(5,6); Write (Garis);
{ proses Cetak isi array dan seleksi kondisi }
bar := 7;
For i:= 1 To n Do
Begin
jum:=(nil1[i]+nil2[i])/2;
If jum>= 90 Then tl:='A'
Else
If jum>80 Then tl:='B'
Else
If jum>60 then tl:='C'
Else
If jum>50 Then tl:='D'
Else
tl:='E';
{ cetak hasil yang disimpan di array dan hasil }
{ penyeleksian kondisi };
GotoYX(5,bar); Writeln(i:2);
GotoYX(9,bar); Writeln (NPM[i]);
GotoYX(18,bar); Writeln (NAMA[i]);
GotoYX(34,bar); Writeln (NIL1[i]:4);
GotoYX(41,bar); Writeln (NIL2[i]:4);
GotoYX(47,bar); Writeln (jum:5:1);
GotoYX(54,bar); Writeln (tl);
bar:=bar+1;
End;
GotoXY(5,bar+1);Writeln(garis);
Readln;
End.

program bahasa pascal bagian 1

Program menentukan grade nilai mahasiswa

Program nilai_mahasiswa;
uses wincrt;
Var
Nilai : Real ;
Grade : Char ;
nama : string ;
Begin
write('NAMA: ',nama);
read(nama);
Write('NILAI ANDA : '); .
Read(Nilai);

If Nilai > 85 Then
Grade := 'A'
else
If Nilai>65 Then
Grade := 'B'
Else
If Nilai > 55 Then
Grade := 'C'
Else
If Nilai > 40 Then
Grade := 'D'
Else
Grade := 'E' ;
Writeln(nama,' KETERANGANNYA : ',grade) ;
readln;
End.



program mencari persamaan kuadrat

Program Persamaan_Kuadrat;
Uses Wincrt;
label ulang;
Var A,B,C:integer;
D,X1,X2:real;
ab:char;
Begin
ulang:
clrscr;
Writeln('Program Persamaan Kuadrat');
Writeln('=========================');
Writeln;
Write('Masukkan Nilai A: ');readln(A);
Write('Masukkan Nilai B: ');readln(B);
Write('Masukkan Nilai C: ');readln(C);
Writeln;

D:=sqr(B)-(4*A*C);
if (D>0) then
begin
X1:=(-B+sqrt(D))/2*A;
X2:=(-B-sqrt(D))/2*A;
Writeln('X1= ',X1:4:1);
writeln('X2= ',X2:4:1);
end
else if (D=0) then
begin
X1:=-B/(2*A);
Writeln('X1=X2=',X1:4:1);
end
else
Writeln('Bukan Akar Real!');
writeln('Apakah anda ingin mengulanginya (y/t): ');
readln(ab);
if (ab='y') or (ab='Y') then
begin
goto ulang;
end
else
donewincrt;
readln
End.

program persamaan kuadrat 2
program mencari_akar_persamaan_kuadrat;
uses wincrt;

var
x1,x2:real;
a,b,c,d:integer;

begin
writeln('PROGRAM MENCARI AKAR PERSAMAAN KUADRAT ax^2+bx+c=0');
write('diketahui nilai a =');read(a);
write('diketahui nilai b =');read(b);
write('diketahui nilai c =');read(c);

d:=b*b-4*a*c;
if d<0 then writeln('tidak ada hasil akar real')
else
begin
x1:=(-b+(sqrt(d)))/2*a;
x2:=(-b-(sqrt(d)))/2*a;
writeln('x1= ',x1:4:2);
writeln('x2= ',x2:4:2);
end;

readln;
end.


program mencari nilai suatu resistor
program resistor;
uses wincrt;
var
nilai:real;
n1,n2,n3,n4,nilaimax,nilaimin:real;
g1,g2,g3,g4:string;

begin
writeln('PROGRAM MENGETAHUI NILAI SUATU RESISTOR');
writeln('NAMA : AFIT MIRANTO');
writeln('NPM : G1D009001');
writeln('TEKNIK ELEKTRO UNIVERSITAS BENGKULU');
writeln(' ');
writeln('tulis warna gelang resistor dengan huruf kecil semua');
write('warna gelang 1= ');readln(g1);
write('warna gelang 2= ');readln(g2);
write('warna gelang 3= ');readln(g3);
write('warna gelang 4= ');readln(g4);

if (g1='hitam') then n1:= 0;
if (g1='coklat') then n1:=10;
if (g1='merah') then n1:=20;
if (g1='oranye') then n1:=30;
if (g1='kuning') then n1:=40;
if (g1='hijau') then n1:=50;
if (g1='biru') then n1:=60;
if (g1='ungu') then n1:=70;
if (g1='abu-abu')then n1:=80;
if (g1='putih') then n1:=90;

if (g2='hitam') then n2:=0;
if (g2='coklat') then n2:=1;
if (g2='merah') then n2:=2;
if (g2='oranye') then n2:=3;
if (g2='kuning') then n2:=4;
if (g2='hijau') then n2:=5;
if (g2='biru') then n2:=6;
if (g2='ungu') then n2:=7;
if (g2='abu-abu')then n2:=7;
if (g2='putih') then n2:=9;

if (g3='hitam') then n3:=1;
if (g3='coklat') then n3:=10;
if (g3='merah') then n3:=100;
if (g3='oranye') then n3:=1000;
if (g3='kuning') then n3:=10000;
if (g3='hijau') then n3:=100000;
if (g3='biru') then n3:=1000000;
if (g3='ungu') then n3:=10000000;
if (g3='abu-abu')then n3:=100000000;
if (g3='putih') then n3:=1000000000;
if (g3='perak') then n3:=0.01;
if (g3='emas') then n3:=0.1;

if (g4='perak') then n4:=10/100;
if (g4='emas') then n4:=5/100;


nilai:=((n1+n2)*n3);
nilaimax:=nilai+n4;
nilaimin:=nilai-n4;
writeln('nilai resistor = ',nilai :2:2,' ohm');
writeln('toleransi +/- ',n4:2:2);
writeln('nilai max resistor = ',nilaimax:2:2,' ohm');
writeln('nilai min resistor = ',nilaimin:2:2,' ohm');

readln;

donewincrt;
end.


program mencari nilai rata2
program rata_rata;
uses wincrt;

var
a, mahasiswa : integer;
nilai, total, tinggi, rendah, rata : real;
nama:string;

begin
total := 0;
write ('jumlah mahasiswa : '); readln (mahasiswa);
writeln;
for a := 1 to mahasiswa do
begin
write ('nama mahasiswa ke ',a,' ');readln (nama);
write ('nilai ',nama,' : '); readln (nilai);
total := total + nilai;
end;
rata := total / mahasiswa;
writeln ('rata-rata nilai mahasiswa : ',rata :1:2);
readln;
donewincrt
end.