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

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");}elseprintf("ANda salah memasukkan...

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

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(); } endl; sum="0;" i="1;i n;i++) nenter="" f="" i="0;in;i++) dy="" i="0;i 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...

program bahasa C bagian 1

program mencari nilai terbesar dari suatu bilangan yg diinputkan#include#includevoid 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...

program bahasa pascal bagian 3

program analisa numerik dengan metode tabulasiProgram metode_tabulasi;uses wincrt;label ulang;varx,x1,x2,xa,xb,xc,y,y1,y2,ya,yb:real;I,j,k:integer;ab:char;beginulang: . 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);repeatbegin 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...

program bahasa pascal bagian 2

program mencari nilai rata2program rata_rata;uses wincrt;vara, mahasiswa : integer;nilai, total, tinggi, rendah, rata : real;nama:string;begintotal := 0; . write ('jumlah mahasiswa : '); readln (mahasiswa);writeln;for a := 1 to mahasiswa dobegin 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 mahasiswaProgram Input_nilai_mhs;Uses WinCrt;Constgaris='-------------------------------------------------------------------------------';Varnil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}nim : Array [1..10]...

program bahasa pascal bagian 1

Program menentukan grade nilai mahasiswaProgram nilai_mahasiswa;uses wincrt;Var Nilai : Real ; Grade : Char ; nama : string ;Beginwrite('NAMA: ',nama);read(nama);Write('NILAI ANDA : '); . Read(Nilai);If Nilai > 85 ThenGrade := '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 kuadratProgram Persamaan_Kuadrat;Uses Wincrt;label ulang;Var A,B,C:integer; D,X1,X2:real; ab:char;Beginulang: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...