hidup ini terlalu sempurna untuk kita sia-sia kan..

Rabu, 27 Juni 2012

ZZZZzzzz...

#include<stdio.h>

#include<conio.h>

void main()

{

float A,B,C,D,E,F;

float Hasil1, Hasil2;

clrscr();

printf("Masukan Nilai A : ");scanf("%f",&A);

printf("Masukan Nilai B : ");scanf("%f",&B);

printf("Masukan Nilai C : ");scanf("%f",&C);

printf("Masukan Nilai D : ");scanf("%f",&D);

printf("Masukan Nilai E : ");scanf("%f",&E);

printf("Masukan Nilai F : ");scanf("%f",&F);

Hasil1 = A + B + C + D + E / F;

Hasil2 = (A + B + C + D + E)/ F;

printf("%5.2f + %5.2f + %5.2f + %5.2f + %5.2f / %5.2f = %5.2f \n",A,B,C,D,E,F,Hasil1);

printf("(%5.2f + %5.2f + %5.2f + %5.2f + %5.2f) / %5.2f = %5.2f \n",A,B,C,D,E,F,Hasil2);

getch();

}

Selasa, 26 Juni 2012

Program menentukan nilai minimum dan maksimum

program min_max;
uses wincrt;
var
a              : array[1..100] of real;
i,n            : integer;
max,min : real;
begin
writeln ('masukkan banyaknya data:'); readln(n);
max:=-9999;
min:=9999;
clrscr;
    for i:=1 to n do begin
    writeln ('data ke: ',i); readln (a[i]);
        if max<(a[i]) then max := (a[i]);
        if min>(a[i]) then min   := (a[i]);
    end;
writeln('nilai maksimum       : ', max:6:2);
writeln('nilai minimum          : ', min:6:2);
end.

Program invers (3 dimensi)

uses wincrt;
label hitung;

var
    mat,adj : array [1..5,1..5] of integer;
    det,i,j : integer;
    c:char;

begin

clrscr;
         { tampilan awal keterangan matrik }
gotoxy(20,4);
writeln('Matriks Ordo 2 x 2');

gotoxy(15,5);
writeln('-------------------------');

gotoxy(15,7);
writeln('1. Input data matrik ');

gotoxy(15,8);
writeln('2. Menentukan Adjoin Matrik');

gotoxy(15,9);
writeln('3. Mencari determinan matriks');

gotoxy(15,10);
writeln('4. Mencari Invers matriks');
readln;

   if c = #13 then goto hitung;

           {end tampilan awal keterangan matrik}

           {mulai proses input}
hitung:
      begin
        clrscr;
        writeln('Input Matrik Ordo 2x2');
        writeln('-------------------------');
        for i := 1 to 2 do begin
           for j:= 1 to 2 do begin
               write('matrik ke ',i,' ',j,': ');readln(mat[i,j]);
           end;
           writeln;
        end;

        for i := 1 to 2 do begin
         write('|');
          for j := 1 to 2 do begin
            write(' ',mat[i,j],' ');
              if j = 2 then write ('|');
          end;
          writeln;
        end;
                 {end proses input matrik}

        writeln;
        writeln;
                 {mulai adjoin matrik dan determinan}

        writeln('Adjoin matrik Ordo 2x2');
        writeln('-----------------------');

        adj[1,1] := mat[2,2];
        adj[1,2] := mat[1,2] * -1;
        adj[2,1] := mat[2,1] * -1;
        adj[2,2] := mat[1,1];

          for i := 1 to 2 do begin
           write('|');
             for j := 1 to 2 do begin
                 write(' ',adj[i,j],' ');
                   if j = 2 then write('|');
             end;
             writeln;
          end;
        writeln;

        det := (mat[1,1] * mat [2,2]) - (mat[1,2] * mat[2,1]);

        write('Determinan dari matrik diatas adalah ');
        writeln(det);
        writeln;
                  {end of adjoin and determinan}

                  {mulai menghitung invers matrik}

        writeln('Invers Matrik ');
        writeln('----------------');
        writeln;

        for i := 1 to 2 do begin
         write('|');
          for j := 1 to 2 do begin
            write(' ',adj[i,j]/det:3:2,' ');
              if j = 2 then write('|');
          end;
          writeln;writeln;writeln;
       end;
                    {end of hitung invers matrik}

       end;
readln;
end.

ganjil genap ( PASCAL )

program pascal;
uses wincrt;
var b:longint;
hasil : integer;

begin
writeln('bilangan = '); readln(b);
if (b mod 2)=1 then
write('ganjil')
else
write('genap');

end.

program penjualan

Contoh Skrip-nya
Menentukan Tipe Data Terlebih dahulu:
type
TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    GroupBox2: TGroupBox;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox3: TGroupBox;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Label7: TLabel;
    Edit13: TEdit;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label9: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Label25: TLabel;
    Label26: TLabel;
    Timer1: TTimer;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);

   Skrip Selanjutnya

   procedure TForm1.Button1Click(Sender: TObject);
var hrgDasBRS,hrgDasGLR,hrgDasMYG,hrgDasTT:Currency;
    jmlBRS,jmlGLR,jmlMYG,jmlTT:integer;
    TotBRS,TotGLR,TotMYG,TotTT:Currency;
   begin
//Mendeklarasikan Harga Satuan Barang
hrgDasBRS:=StrToCurr(Edit1.Text);
hrgDasGLR:=StrToCurr(Edit2.Text);
hrgDasMYG:=StrToCurr(Edit3.Text);
hrgDasTT:=StrToCurr(Edit4.Text);

//Mendeklarasikan Jumlah Pembelian
jmlBRS:=StrToInt(Edit5.Text);
jmlGLR:=StrToInt(Edit6.Text);
jmlMYG:=StrToInt(Edit7.Text);
jmlTT:=StrToInt(Edit8.Text);

//Menghitung Harga Dasar x Jumlah Beli
TotBRS:=hrgDasBRS*jmlBRS;
TotGLR:=hrgDasGLR*jmlGLR;
TotMYG:=hrgDasMYG*jmlMYG;
TotTT:=hrgDasTT*jmlTT;

//Menulis Hasil Ke Komponen Total
Edit9.Text:=CurrToStr(TotBRS );
Edit10.Text:=CurrToStr(TotGLR );
Edit11.Text:=CurrToStr(TotMYG );
Edit12.Text:=CurrToStr(TotTT );

Edit13.Text:=CurrToStr(TotBRS+TotGLR+TotMYG+TotTT);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit10.Clear;
Edit11.Clear;
Edit12.Clear;
Edit13.Clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var a:Integer;
begin
if Label1.Visible=True then
      Label1.Visible:=False
else
if Label1.Visible=False then
      Label1.Visible:=True;
      Label27.Caption:=FormatDateTime('dd/mm/yyyy',now);
      Label28.Caption:=FormatDateTime('hh:mm:ss',now);

//menampilkan jam dan tangggal
      Label29.Caption:=TimeToStr(time)+' '+DateTimeToStr(date);

//menampilkan tulisan berjalan
    Label2.Left:=Label2.Left-18;

//mengulang tulisan berjalan
   Label26.Left:=Label26.Left-3;

end;

end.

kalkulator pake VB

   Contoh Skrip nya
Menentukan Tipe Data nya
type
       TForm1 = class(TForm)
      Label1: TLabel;
        Label2: TLabel;
      Edit1: TEdit;
        Edit2: TEdit;
      Button1: TButton;
        Button2: TButton;
      Button3: TButton;
        Button4: TButton;
        Button5: TButton;
      Button6: TButton;
      Label3: TLabel;
      Edit3: TEdit;
        Button7: TButton;
        Button8: TButton;
        procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure Button3Click(Sender: TObject);
      procedure Button4Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
      procedure Button6Click(Sender: TObject);
        procedure Button7Click(Sender: TObject);
      procedure Button8Click(Sender: TObject);
        procedure TForm1.Button1Click(Sender: TObject);
        var a,g,i:real;
        begin
a:=StrToFloat(Edit1.Text);
g:=StrToFloat(Edit2.Text);
i:=a+g;
        Edit3.Text:=FloatToStr(i);

        end;

        procedure TForm1.Button2Click(Sender: TObject);
        var a,g,i:real;
        begin
a:=StrToFloat(Edit1.Text);
g:=StrToFloat(Edit2.Text);
        i:=a-g;
        Edit3.Text:=FloatToStr(i);

        end;

         procedure TForm1.Button3Click(Sender: TObject);
         var a,g,i:real;
         begin
   a:=StrToFloat(Edit1.Text);
   g:=StrToFloat(Edit2.Text);
         i:=a*g;
        Edit3.Text:=FloatToStr(i);

         end;

         procedure TForm1.Button4Click(Sender: TObject);
         var a,g,i:real;
       begin
       a:=StrToFloat(Edit1.Text);
       g:=StrToFloat(Edit2.Text);
   i:=a/g;
       Edit3.Text:=FloatToStr(i);

       end;

       procedure TForm1.Button5Click(Sender: TObject);
       var a,g,i:integer;
   begin
   a:=StrToInt(Edit1.Text);
g:=StrToInt(Edit2.Text);
i:=a div g;
      Edit3.Text:=IntToStr(i);

      end;

      procedure TForm1.Button6Click(Sender: TObject);
     var a,g,i:integer;
     begin
   a:=StrToInt(Edit1.Text);
     g:=StrToInt(Edit2.Text);
i:=a mod g;
      Edit3.Text:=IntToStr(i);

      end;

      procedure TForm1.Button7Click(Sender: TObject);
     begin
     Edit1.Clear;
     Edit2.Clear;
     Edit3.Clear;
     end;

     procedure TForm1.Button8Click(Sender: TObject);
     begin
     Close;
     end;

     end.

program menentukan ganjil dan genap...

#include <iostream.h>
#include <conio.h>
main()
{
clrscr();
int bil, sisa;
cout<<"Masukkan sebuah bilangan : ";
cin>>bil;
sisa = bil % 2;
if(sisa == 0)
cout<<bil<<" adalah bilangan genap"<<endl;
else
cout<<bil<<" adalah bilangan ganjil"<<endl;
getch();
}