hitung persegi panjang dalam c#.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication18
{
    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Text;

    namespace ConsoleApplication18
    {
        public class luass
         
        {
            private int luas;
            private string text;
            public luass(int sisi)
        {
            luas=sisi*sisi;
            text = "persegi";
        }
            public luass(int panjang, int lebar)
        {
            int x;
            if (panjang<lebar)
            {
                x = panjang;
                panjang = lebar;
                lebar = x;
            }
            luas=panjang*lebar;
            text = "persegi panjang";
        }
            public void printdata()
            {
                Console.WriteLine("luas {1} = {0}", luas,text);
            }
        }
class Program
        {
            static void Main(string[] args)
            {
                luass luas1 = new luass(5);
                luass luas2 = new luass(5, 6);
                luas1.printdata();
                luas2.printdata();
            }
        }
    }
}

› Read More

hitung panjang persegi panjang dalam c# (versi 2).

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace LatihanOOP_1
{
    public class luasPP
    {
        private int panjang;
        private int lebar;
        private int luas;

        public void getPanjangLebar(int panjang, int lebar)
        {
            this.panjang = panjang;
            this.lebar = lebar;
            luas = panjang * lebar;
        }
        public void TampilkanLuas()
        {
            if (panjang>lebar)
                Console.WriteLine("panjang: {0} \nlebar:{1} \nLuas:{2}", panjang, lebar, luas);
            else
                Console.WriteLine("panjang: {0} \nlebar:{1} \nLuas:{2}", lebar, panjang, luas);
        }
        class Program
        {
            static void Main(string[] args)
            {
                luasPP pp = new luasPP();
                pp.getPanjangLebar(5,10);
                pp.TampilkanLuas();
            }
        }
    }
}

› Read More

metode regulafalsi dalam pascal.

Program hitung_bifeksi;

uses wincrt;

function f(x:real):real;
         begin
         f:=(((sqr(x))*x)-(sqr(x))-(2*(x))+1);
         end;

function error(x1,x2:real):real;
         var
         err:real;
         begin
         err:=(((x2-x1)/x2)*100);
         if err<0 then
            error:=err*(-1)
         else
             error:=err;
         end;

function hitxc(xa,xb:real):real;
         begin
         hitxc:=(xb-((f(xb)*(xb-xa))/(f(xb)-f(xa))));
         end;

procedure pilakar(var xa,xb:real;xc:real);
         begin
         if (f(xa)*f(xc)<0 )then
            begin
              xb:=xc;
              end
         else
             begin
             xa:=xc;
             end;
         end;

function cek(xa,xb:real):boolean;
         var
         c:boolean;
         cek1:real;
         begin
         c:=false;
         cek1:=(f(xa)*f(xb));
         if (cek1<0) then
          begin
c:=true;
end;
         cek:=c;
         end;

procedure lanjut(var it:integer; var xc1,xc2:real;xc:real);
          begin
          it:=it+1;
          xc1:=xc2;
          xc2:=xc;
          end;


var
x1,x2,emin,er,xc,xc1,xc2,a,b,c:real;
iterasi:integer;
cek2:boolean;
begin
repeat
      begin
      clrscr;
      write('masukan x1 : ');readln(x1);
      write('masukan x2 : ');readln(x2);
      write('masukan error min : ');readln(emin);
      cek2:=(cek(x1,x2));
      if (cek2=false) then
         begin
         writeln('iterasi tidak dapat dilakukan');
         write('tekan enter');readln;
         end;
      end;
until(cek2=true);
iterasi:=0;
er:=100;
xc1:=0;
xc2:=0;
clrscr;
writeln('|ite  |   x1   |   x2   |   f(x1) |   f(x2) |   xc   |   f(xc) | eror   |');
while (er > emin) do
      begin
         xc:=hitxc(x1,x2);
         a:=f(x1);
         b:=f(x2);
         c:=f(xc);
         lanjut(iterasi,xc1,xc2,xc);
         if (iterasi<2) THEN
            writeln('|  ',iterasi,'  | ',x1:0:5,'| ',x2:0:5,'| ',a:0:5,'| ',b:0:5,'| ',x1:0:5,'| ',c:0:5,'|         |')
         else
             begin
             er:=error(xc1,xc2);
             writeln('|  ',iterasi,'  | ',x1:0:5,'| ',x2:0:5,'| ',a:0:5,'| ',b:0:5,'| ',x1:0:5,'| ',c:0:5,'| ',er:0:5,' |');
             end;
         pilakar(x1,x2,xc);
      end;
      writeln;
      writeln('jawaban = ',xc:0:5);  
   
end.

› Read More

metode newton reption dalam pascal.

Program hitung_secant;

uses wincrt;

function f(x:real):real;
         begin
         f:=(((sqr(x))*x)+(sqr(x))-(3*(x))-3);
         end;

function ff(x:real):real;
         begin
         ff:=((3*(sqr(x)))+(2*(x))-3);
         end;

function error(x1,x2:real):real;
         var
         err:real;
         begin
         err:=(((x2-x1)/x2)*100);
         if err<0 then
            error:=err*(-1)
         else
             error:=err;
         end;

function hitxc(xa:real):real;
         begin
         hitxc:=(xa-(f(xa)/ff(xa)));
         end;

procedure pilakar(var xa:real;xc:real);
         begin
         xa:=xc;
         end;

procedure lanjut(var it:integer; var xc1,xc2:real;xc:real);
          begin
          it:=it+1;
          xc1:=xc2;
          xc2:=xc;
          end;

var
x1,emin,er,xc,xc1,xc2,a,b,c:real;
iterasi:integer;
begin
      write('masukan x1 : ');readln(x1);
      write('masukan error min : ');readln(emin);
iterasi:=0;
er:=100;
xc1:=0;
xc2:=0;
clrscr;
writeln('|ite  |   xi   |   f(xi) |   f"(xi) |   xc   |   f(xc) | eror   |');
while (er > emin) do
      begin
         xc:=hitxc(x1);
         a:=f(x1);
         c:=f(xc);
         b:=ff(x1);
         lanjut(iterasi,xc1,xc2,xc);
         if (iterasi<2) THEN
            writeln('|  ',iterasi,'  | ',x1:0:5,'| ',a:0:5,'| ',b:0:5,'| ',xc:0:5,'| ',c:0:5,'|         |')
         else
             begin
             er:=error(xc1,xc2);
             writeln('|  ',iterasi,'  | ',x1:0:5,'| ',a:0:5,'| ',b:0:5,'| ',xc:0:5,'| ',c:0:5,'| ',er:0:5,' |');
             end;
         pilakar(x1,xc);
      end;
      writeln;
      writeln('jawaban = ',xc:0:5);
   
end.

› Read More

metode bisection (interval tengah) dalam pascal.

Program hitung_bifeksi;

uses wincrt;

function f(x:real):real;
         begin
         f:=(((sqr(x))*x)+(sqr(x))-(3*(x))-3);
         end;

function error(x1,x2:real):real;
         var
         err:real;
         begin
         err:=(((x2-x1)/x2)*100);
         if err<0 then
            error:=err*(-1)
         else
             error:=err;
         end;

function hitxc(xa,xb:real):real;
         begin
         hitxc:=(xa+xb)/2;
         end;

procedure pilakar(var xa,xb:real;xc:real);
         begin
         if (f(xa)*f(xc)<0 )then
            begin
              xb:=xc;
              end
         else
             begin
             xa:=xc;
             end;
         end;

function cek(xa,xb:real):boolean;
         var
         c:boolean;
         cek1:real;
         begin
         c:=false;
         cek1:=(f(xa)*f(xb));
         if (cek1<0) then
          begin
c:=true;
end;
         cek:=c;
         end;

procedure lanjut(var it:integer; var xc1,xc2:real;xc:real);
          begin
          it:=it+1;
          xc1:=xc2;
          xc2:=xc;
          end;


var
x1,x2,emin,er,xc,xc1,xc2,a,b,c:real;
iterasi:integer;
cek2:boolean;
begin
repeat
      begin
      clrscr;
      write('masukan x1 : ');readln(x1);
      write('masukan x2 : ');readln(x2);
      write('masukan error min : ');readln(emin);
      cek2:=(cek(x1,x2));
      if (cek2=false) then
         begin
         writeln('iterasi tidak dapat dilakukan');
         write('tekan enter');readln;
         end;
      end;
until(cek2=true);
iterasi:=0;
er:=100;
xc1:=0;
xc2:=0;
clrscr;
writeln('|ite  |   x1   |   x2   |   f(x1) |   f(x2) |   xc   |   f(xc) | eror   |');
while (er > emin) do
      begin
         xc:=hitxc(x1,x2);
         a:=f(x1);
         b:=f(x2);
         c:=f(xc);
         lanjut(iterasi,xc1,xc2,xc);
         if (iterasi<2) THEN
            writeln('|  ',iterasi,'  | ',x1:0:5,'| ',x2:0:5,'| ',a:0:5,'| ',b:0:5,'| ',x1:0:5,'| ',c:0:5,'|         |')
         else
             begin
             er:=error(xc1,xc2);
             writeln('|  ',iterasi,'  | ',x1:0:5,'| ',x2:0:5,'| ',a:0:5,'| ',b:0:5,'| ',x1:0:5,'| ',c:0:5,'| ',er:0:5,' |');
             end;
         pilakar(x1,x2,xc);
      end;
      writeln;
      writeln('jawaban = ',xc:0:5);  
   
end.

› Read More

cek 2 tabel apakah sama dalam pascal.

program lat31;
uses wincrt;
type values = array[1..100]of integer;

procedure balik(var a:values; n:integer);
var i,tmp,j:integer;
begin
j:=n;
for i:=1 to (n div 2) do
    begin
    tmp:=a[i];
    a[i]:=a[j];
    a[j]:=tmp;
    j:=j-1;
    end
end;

function sama(a,b:values; n,m:integer):boolean;
var k,i:integer;
    search:boolean;
begin
balik(a,n);
search:=true;
if n<m then k:=n
else k:=m;
i:=1;
while search and (i<=k) do
      begin
      if a[i]<>b[i] then search:=false
      else i:=i+1;
      end;
sama:=search;
end;

var a,b:values;
    n,m,i:integer;
    hasil:boolean;
begin
write('Masukan banyak elemen tabel a = ');readln(n);
writeln;
for i:=1 to n do
    begin
    write('a[',i,'] = ');readln(a[i]);
    end;
writeln;
write('Masukan banyak elemen tabel b = ');readln(m);
writeln;
for i:=1 to m do
    begin
    write('b[',i,'] = ');readln(b[i]);
    end;
writeln;
hasil:=sama(a,b,n,m);
if hasil then writeln('Kedua tabel sama')
else writeln('Kedua tabel tidak sama');
end.

› Read More

metode secant dalam pascal.

Program hitung_secant;

uses wincrt;

function f(x:real):real;
         begin
         f:=(((sqr(x))*x)-(sqr(x))-(2*(x))+1);
         end;

function error(x1,x2:real):real;
         var
         err:real;
         begin
         err:=(((x2-x1)/x2)*100);
         if err<0 then
            error:=err*(-1)
         else
             error:=err;
         end;

function hitxc(xa,xb:real):real;
         begin
         hitxc:=(xb-(f(xb)*((xb-xa)/(f(xb)-f(xa)))));
         end;

procedure pilakar(var xa,xb:real;xc:real);
         begin
         xa:=xb;
         xb:=xc;
         end;

function cek(xa,xb:real):real;
         begin
         cek:=(f(xa)*f(xb));
         end;

procedure lanjut(var it:integer; var xc1,xc2:real;xc:real);
          begin
          it:=it+1;
          xc1:=xc2;
          xc2:=xc;
          end;


var
x1,x2,emin,er,xc,xc1,xc2,a,b,c:real;
iterasi:integer;
begin
repeat
      begin
      clrscr;
      write('masukan x1 : ');readln(x1);
      write('masukan x2 : ');readln(x2);
      write('masukan error min : ');readln(emin);
      if (cek(x1,x2)>=0 )then
         begin
         writeln('iterasi tidak dapat dilakukan');
         write('tekan enter');readln;
         end;
      end;
until(cek(x1,x2)<0);
iterasi:=0;
er:=100;
xc1:=0;
xc2:=0;
clrscr;
writeln('|ite  |   x1   |   x2   |   f(x1) |   f(x2) |   xc   |   f(xc) | eror   |');
while (er > emin) do
      begin
         xc:=hitxc(x1,x2);
         a:=f(x1);
         b:=f(x2);
         c:=f(xc);
         lanjut(iterasi,xc1,xc2,xc);
         if (iterasi<2) THEN
            writeln('|  ',iterasi,'  | ',x1:0:5,'| ',x2:0:5,'| ',a:0:5,'| ',b:0:5,'| ',xc:0:5,'| ',c:0:5,'|         |')
         else
             begin
             er:=error(xc1,xc2);
             writeln('|  ',iterasi,'  | ',x1:0:5,'| ',x2:0:5,'| ',a:0:5,'| ',b:0:5,'| ',xc:0:5,'| ',c:0:5,'| ',er:0:5,' |');
             end;
         pilakar(x1,x2,xc);
      end;
      writeln;
      writeln('jawaban = ',xc:0:5);
   
end.

› Read More

cek pitagoras dalam pascal.

program lat2;
uses wincrt;

function phytagoras(a,b,c:integer):boolean;
begin
if c=sqrt(sqr(a)+sqr(b)) then phytagoras:=true
else phytagoras:=false;
end;

var a,b,c:integer;
    hasil:boolean;
begin
write('Masukan sisi A = ');readln(a);
write('Masukan sisi B = ');readln(b);
write('Masukan sisi C (sisi miring) = ');readln(c);
writeln;
hasil:=phytagoras(a,b,c);
if hasil then writeln('phytagoras')
else writeln('bukan phytagoras');
end.

› Read More

hitung rata-rata dalam pascal.

Program ratarata;
uses wincrt;
var
   a:array[1..100] of integer;
   i,n,sum,tuntas,nilai:integer;
   rata,nr:real;
begin
     Write('jumlah siswa : ');
     Readln(n);
     Writeln;
     Write('ketuntasan nilai siswa yang diinginkan : ');
     Readln(tuntas);
   
     Writeln;
     sum:=0;
     For i:=1 to n do
         begin
              Write('nilai siswa ke ',i, ': ');
              Readln(a[i]);
              sum:=sum+a[i];
              if a[i] <tuntas then
                 begin
                      nilai:=tuntas-a[i];
                      Writeln('anak ke ',i,' kurang ',nilai,' nilai untuk tuntas');
                 end
                  else
                      Writeln('anak ke ',i,' sudah tuntas');
         end;
           
         
     for i:= 1 to n do
   
         rata:=sum/n;
     Writeln(rata:0:2);
     Writeln;
end.

› Read More

hitung luas segitiga dalam pascal.

program lat1;
uses wincrt;

function luas_segitiga(a,b,c:integer):real;
var s,L:real;
begin
s:=(a+b+c)/2;
L:=sqrt(s*((s-a)+(s-b)+(s-c)));
luas_segitiga:=L;
end;

var a,b,c:integer;
    hasil:real;
begin
write('Masukan sisi A = ');readln(a);
write('Masukan sisi B = ');readln(b);
write('Masukan sisi C = ');readln(c);
writeln;
hasil:=luas_segitiga(a,b,c);
writeln(hasil:0:2);
end.

› Read More

menghitung luas trapesium dalam c.

#include "stdio.h"

float luastrap(int a,int b,int t)
{
      int Luas;
      Luas=(float)((a+b)*t)/2;
      return (Luas);
}
int main()
{
 int a,b,t;
 float L;
 printf("masukan nilai alas1 = ");
 scanf("%d",&a);
  printf("masukan nilai alas2 = ");
 scanf("%d",&b);
 printf("masukan nilai tinggi = ");
 scanf("%d",&t);
 L=luastrap(a,b,t);
   printf("Luasnya = %f",L);
return(0);
 
}

› Read More

menghitung dua buah bilangan dalam c.

#include "stdio.h"

int plus2bilangan(int Bil1, int Bil2)
/* fungsi untuk menghitung jumlah dua buah bilangan integer */
{
int jumlah; /* deklarasi variabel penampung hasil jumlah */
jumlah=Bil1+Bil2; /* operator penjumlahan dua buah bilangan */
return(jumlah); /* mengirimkan hasil fungsi, yaitu jumlah */
}
int main()
/* fungsi utama untuk test fungsi jumlah */
{
int a,b,c; /* deklarasi variabel */
printf("Input bilangan pertama = "); /* menampilkan pesan ke layar */
scanf("%d",&a); /* membaca bilangan yang diinput user, simpan di
variabel a */
printf("Input bilangan kedua = "); /* menampilkan pesan ke layar */
scanf("%d",&b); /* membaca bilangan yang diinput user, simpan di
variabel b */
c=plus2bilangan(a,b); /* memanggil fungsi Plus2Bilangan untuk
menghitung jumlah a dan b */
printf("Jumlahnya = %d\n",c); /* menampilkan hasil jumlah di layar */
return(0);
}

› Read More

hello world dalam c.

Hari ini saya akan mencoba menshare pengalaman saya tentang pemmrograman bahasa c yakni pembuatan prgram sederhana. sangat sederhana dan biasa dipakai dalam perkenalan kuliah bahasa pemmrograman yaitu program helllo world.#apakabarDunia :D.

untuk source code bisa dilihat dibawah.

1. #include "stdio.h"
2. int main()
3. {
4. char name[4]; 
5. printf("what is your name ? /n"); 
6. scanf("%f",&name);
7. printf("hello %s !",name); 
8. return(0);
9. }

untuk penjelasan masing masing baris source code bisa dilihat dibawah.

1. deklarasi library yang digunakan
2. fungsi untuk meminta dan menampilkan nama user ke layar 
3. 
   
4. deklarasi variabel name bertipe string
5. menampilkan pesan ke layar 
6. membaca input string dari user, simpan ke variabel name
7. menampilkan nama user ke layar 
8. 
   
9. 
   

source code bisa anda download di.

Download :

https://www.dropbox.com/s/cm8s6ikjtro5v7f/helloword.txt?dl=0

Sekian yang dapat saya share untuk hari ini _JW002

› Read More

menghitung jumlah sum elemen array dalam c.

#include "stdio.h"
int main()
{
int tab[100];
int n;
int i;
int temp;
temp=0;
printf("masukan jumlah array = ");
scanf ("%d",&n);
for (i=0; i<n; i++)
{
    printf("masukan bilangan ke ");
    printf("%d = ",i+1);
    scanf("%d",&tab[i]);
temp=temp+tab[i];
}
printf("data dalam array hasil penjumlahannya = ");
printf("%d",temp);
getch();

}

› Read More

mengecek apakah array desceending dalam c.

#include "stdio.h"
int main()
{
int tab[100];
int n;
int i;
int j;
int temp;
int cek;
printf("masukan jumlah array = ");
scanf ("%d",&n);
for (i=0; i<n; i++)
{
    printf("masukan bilangan ke ");
    printf("%d = ",i+1);
    scanf("%d",&tab[i]);
}
temp=tab[0];
cek=0;
j=1;
while ((cek==0) && (j<n))
{
      if (temp>tab[j])
      {
       temp=tab[j];
j++;
      }
      else
      {
cek=cek+1;
   }            
}
if (cek==0)
{
          printf("data dalam array berurutan dari besar ke kecil");
}
if (cek==1)
{
          printf("data dalam array tidak berurutan dari besar ke kecil");
}
getch();

}

› Read More