Blantik Online

4/13/11

Quadrant and GPA program in Delphi

please enjoy this file.......
http://www.4shared.com/file/3gy7Hfbq/tugas.html
I hope, it will help you full.......

3/26/11

The happening

When the world has not finished grieving for more than 10 thousand people who died in the earthquake japan and thousands of people threatened Fukushima Nuclear radiation hazards. Now we've been surprised again with the outbreak of war in Libya. Who Kadafi and whether he had done until Libya into the battlefield. What has been done to the french Kadafi triggering Western U.S. allies intervened. Is it true the war is related to oil is like the war in iraq. Will the U.S. return to military intervention as it did in Iraq.

While thousands of U.S. citizens on the west coast of Fukushima radiation danger that has not stopped threatened by earthquakes. Will this war started the third world war era, how many more disasters and wars that took the victim to awaken people.

If this is indeed like that performed the natural balancing theory for the human population that exceeds the natural ability. Because the theory that the earth is an organism mentioned that when there is an over-load elimination will harm the system runs automatically. You never think that the human population on earth has reached the threshold and coupled with the natural damage that causes the earth's capacity decreases. Earth was no longer able to provide life support to residents, the defense system EARTH conduct large-scale elimination. With so many disasters in the last decade human should be aware and look for solutions to help the Earth as a place to live they can last longer.

Hope that 2012 is not the last year for the human lives in the face of Earth.

3/25/11

Price List Part 2 (final reallese)

This program is new version of Price List program in pascal code. In the past program the price list just show name and price of the Item. With color spesification you can input same name and find it corectly be entering the name and the color of the item.
This is the syntax.

uses wincrt; 

type data1=array [1..20] of string; 

type data2=array [1..20] of real; 

var

position,n,i,x:byte; 

name,color:data1; 

price:data2; 

found:boolean; 

find1,find2:string; 

again:char; 

find3,average,min,max,total:real; 

begin 

  repeat; 

  begin 

    inc(n); 

    writeln('Input the items name ',n:2,' for stop type xxx==>'); 

    readln(name[n]); 

    writeln('Input the items color                      ==>'); 

    readln(color[n]); 

    writeln('Input the items price                      ==>'); 

    readln(price[n]); 

    total:=total+price[n]; 

end

  until(name[n]='xxx'); 

    dec(n); 

    clrscr; 

    writeln('PRICE LIST BLANTIK ONLINE'); 

    writeln('No        Name        Color     Price'); 

    writeln('--------------------------------------'); 

    for i:=1 to n do 

      writeln(i:3,'|',name[i]:13,'|',color[i]:10,' $',price[i]:10:2); 

      writeln('--------------------------------------'); 

  {Min, max, average} 

  average:=total/n; 

  min:=price[1]; 

  max:=price[1]; 

  find1:=name[1]; 

  writeln('The average of the items price is ==> $ ',average:10:2); 

  for i:=2 to n do 

  begin 

    if min>price[i] then begin min:=price[i];find1:=name[i];end; 

  end; 

  writeln('The cheapest item is ',find1,' with price ==> $ ',min:10:2); 

  for i:=2 to n do 

  begin 

    if max<price[i] then begin max:=price[i];find1:=name[i];end; 

  end; 

  writeln('The most expensive item is ',find1,' with price ==> $ ',max:10:2); 

  {searching} 

  again:='y'; 

  while again='y'do 

  begin 

    writeln; 

    write('Which items price are you lokking for? ');readln(find1); 

    write('Which color do You want? ');readln(find2); 

    found:=false; 

    for i:=1 to n do 

    begin 

      if name[i]=find1 then 

      begin 

        if color[i]=find2 then

        begin

          found:=true;position:=i;find3:=price[i];

        end;

      end; 

    end; 

    writeln; 

    if found then writeln('The price of the ',find2,' ',find1,' is $ ',find3:10:2,' as data number ',position,'.') 

    else writeln('sorry there is not ',find2,' ',find1,' in the array.'); 

    writeln; 

    write('Do you want to do it again?<y,n> ');readln(again); 

  end;   

end.

3/23/11

Wi-Fi vs WiMAX

Comparisons and confusion between WiMAX and Wi-Fi are frequent because both are related to wireless connectivity and Internet access.

WiMAX is a long range system, covering many kilometres, that uses licensed or unlicensed spectrum to deliver connection to a network, in most cases the Internet.
Wi-Fi uses unlicensed spectrum to provide access to a local network.
Wi-Fi is more popular in end user devices.
Wi-Fi runs on the Media Access Control's CSMA/CA protocol, which is connectionless and contention based, whereas WiMAX runs a connection-oriented MAC.
WiMAX and Wi-Fi have quite different quality of service (QoS) mechanisms:
- WiMAX uses a QoS mechanism based on connections between the base station and the user device. Each connection is based on specific scheduling algorithms.
- Wi-Fi uses contention access - all subscriber stations that wish to pass data through a wireless access point (AP) are competing for the AP's attention on a random interrupt basis. This can cause subscriber stations distant from the AP to be repeatedly interrupted by closer stations, greatly reducing their throughput.
Both 802.11 (which includes Wi-Fi) and 802.16 (which includes WiMAX) define Peer-to-Peer (P2P) and ad hoc networks, where an end user communicates to users or servers on another Local Area Network (LAN) using its access point or base station. However, 802.11 supports also direct ad hoc or peer to peer networking between end user devices without an access point while 802.16 end user devices must be in range of the base station.

Although Wi-Fi and WiMAX are designed for different situations, they are complementary. WiMAX network operators typically provide a WiMAX Subscriber Unit which connects to the metropolitan WiMAX network and provides Wi-Fi within the home or business for local devices (e.g., Laptops, Wi-Fi Handsets, smartphones) for connectivity. This enables the user to place the WiMAX Subscriber Unit in the best reception area (such as a window), and still be able to use the WiMAX network from any place within their residence.

3/22/11

pricelist program in pascal syntax (array, while do, for to do, if then else)

Pricelist is table may contains data of items name and price. From this pricelist you may get data about average of the price, the cheapest and the most expensive items price. The user can search the specific item price with only type the item name.
This is the syntax:

uses wincrt;
type data1=array [1..20] of string;
type data2=array [1..20] of real;
var
position,n,i:byte;
name:data1;
price:data2;
found:boolean;
find1:string;
again:char;
find2,average,min,max,total:real;
begin
repeat;
begin
    inc(n);
    writeln('Input the items name',n,'for stop type xxx==>');
    readln(name[n]);
    writeln('Input the items price ==>');
    readln(price[n]);
    total:=total+price[n];
end
until(name[n]='xxx');
    dec(n);
    clrscr;
    writeln('PRICE LIST BLANTIK ONLINE');
    writeln('No        Name        Price');
    writeln('--------------------------------');
    for i:=1 to n do
      writeln(i:3,'|',name[i]:13,'| $',price[i]:10:2);
      writeln('--------------------------------');
{Min, max, average}
average:=total/n;
min:=price[1];
max:=price[1];
find1:=name[1];
writeln('The average of the items price is               ==> $ ',average:10:2);
for i:=2 to n do
begin
if min>price[i] then min:=price[i];find1:=name[i];
end;
writeln('The cheapest item is ',find1,' with price       ==> $ ',min:10:2);
for i:=2 to n do
begin
if max<price[i] then max:=price[i];find1:=name[i];
end;
writeln('The most expensive item is ',find1,' with price ==> $ ',max:10:2);
{searching}
again:='y';
while again='y'do
begin
writeln;
write('Which items price are you lokking for?');readln(find1);
found:=false;
for i:=1 to n do
begin
   if name[i]=find1 then found:=true;position:=i;find2:=price[i];
end;
   writeln;
   if found then writeln('The price of ',find1,' is $ ',find2:10:2,' as data number ',position)
   else writeln('sorry there is not ',find1,' in the array');
   writeln;
   write('Do you want to do it again?<y,n>');readln(again);
end;
end.

3/20/11

Pascal programs for primes

This is pascal script to find primes from (a) to (b). 

uses wincrt;

var

a,b,x,y : integer;

hasil1 : longint;

again,primes: boolean;

begin

again:=true;

repeat

  begin

    write('Count primes from');read(a);write('to');readln(b);

    for x:=a to b do

     begin

      primes :=true;

      for y:=2 to x-1 do

       begin

       if (x mod y)=0 then

        begin

         primes:=false;

        end;

       end;

      if primes then write (x:5);

     end;

   end;

end;
readln;
until not again;
end.

Task 1

Salary	X (midpoint)	workers (f)	f*x
$250.00-$259.99	254.995	8	2039.96
$260.00-$269.99	264.995	10	2649.95
$270.00-$279.99	274.995	16	4399.92
$280.00-$289.99	284.995	14	3989.93
$290.00-$299.99	294.995	10	2949.95
$300.00-$309.99	304.995	5	1524.98
TOTAL		63	17554.69

Mean

It's mean that the average of the workers salary is $ 278.64.

Median

The position of median is in data number 32, it's mean the median in class of $270.00-$279.99 with frequency class is 16 and the bottom margin is $269.995. The total frequency class below is 18. The interval is $10.00.