templates!

PAYPAL wishlist

Guys have you tired this paypal wishlist??
nver heard of it?
its one of the new applications in facebook.
but the big question about this application is
"is this a for real or a scam??"
never the less many of it has already try this application
even my is a fan of the wishlist thing. its simple

1. USE
2. SHARE
3. EARN
4. SPEND

so if your still confuse of this thing click on this link and CREATE YOUR WISHLIST



cant wait for January 30 to put this money in to my hand!

Pascal : Conversion of Fahrenheit and celcius

a sample program that coverts Fahrenheit to celcius and celcius to Fahrenheit

program Conversion;

var a: char;
Fah,f,Cel,c: real;

begin


writeln('Please Select Problem /n (f)Fahrenheit (c)Celcius');
read(a);


if a = 'f' then
begin
writeln('you have selected Fahrenheit');
writeln('please Enter Fahrenheit');
read(f);

Cel := ( 5 / 9 ) * ( f - 32);
writeln('the value in Celcius is: ');writeln(Cel);

end;

if a = 'c' then
begin
writeln('you have selected Celcius');
writeln('please Enter Celcius');
read(c);

Fah := ( 9 / 5) * (c + 32);
writeln('the value in Fahrenheit is: ');writeln(Fah);

end;




end.

Save the file with the filename Conversion.pas

Pascal Program that compute's the area and Perimeter of the Triangle.

this is a pascal program that compute the area and Perimeter of the Triangle.


program PerimeterandAreas;

var a: char;
h,l,P,th,tl,S,Sl,Sh: integer;

begin


writeln('Please Select Problem /n (p)Perimeter (a)Area');
read(a);


if a = 'p' then
begin
writeln('you have selected Perimeter');
writeln('please Enter the lenght of the triangle');
read(l);
writeln('please Enter the height of the triangle');
read(h);

th := h * 2;
tl := l * 2;

P := th + tl;
writeln(P);

end;

if a = 'a' then
begin
writeln('you have selected Area');
writeln('please Enter the lenght of the triangle');
read(Sl);
writeln('please Enter the height of the triangle');
read(Sh);

S := Sh * Sl;

writeln(S);

end;

Note: Save the File with filename PerimeterandAreas.pass