Misplaced Pages

Article: Difference between revisions

Article snapshot taken from Wikipedia with creative commons attribution-sharealike license. Give it a read and then ask your questions in the chat. We can research this topic together.
Browse history interactively← Previous editNext edit →Content deleted Content addedVisualWikitext
Revision as of 19:08, 8 January 2013 view sourceMcGeddon (talk | contribs)Extended confirmed users, Pending changes reviewers, Rollbackers121,439 edits Reverted to revision 528935967 by McGeddon: last good version. (TW)← Previous edit Revision as of 08:13, 24 January 2013 view source Ankur.verma11111 (talk | contribs)1 editNo edit summaryNext edit →
Line 4: Line 4:
'''Article''' may refer to: '''Article''' may refer to:
*], articles of treaties of the European Union *], articles of treaties of the European Union
*], a grammatical element used to indicate definiteness or indefiniteness *],

*], a piece of nonfictional prose that is an independent part of a publication
sub payemi($$)
{
if($_ =~/""/ ||$_=~/""/)
{
return -1;
}
$_=$_;
if(!(/^+$/))
{
return -2;
}
if(not($_>0 && $_=~/^+$/))
{
return -3;
}
open(fh,"<loanemi.dat");
while($str=<fh>)
{
chomp $str;
@arr=split(":",$str);
if($_ eq $arr)
{
$status=1;
}
}
if(not($status=1))
{
return -4;
}
close fh;
open(fh,"<loanemi.dat");
while($str=<fh>)
{
chomp $str;
@arr=split(":",$str);
if($_ eq $arr and $arr==0)
{
$status1=1;
}
}
if($status1==1)
{
return -5;
}
close fh;
open(fh,"<loanemi.dat");
while($str=<fh>)
{
chomp $str;
@arr=split(":",$str);
if($_ eq $arr )
{
$dueamount=$arr;
$intrest=$arr;
$tenure=$arr;
}
}
close fh;
$interestformonth=$dueamount*($intrest/12*100);
$emitobepaid=$interestformonth+($dueamount/$tenure);

if($_>$emitobepaid)
{
return -6;
}
$dueamount=$dueamount-($_-$interestformonth);
if($dueamount<0)
{
$dueamount=0;
}
open(fh,"<loanemi.dat");
@arr=<fh>;
close fh;

print "@arr";
foreach $i (@arr)
{
@arr1=split(":", $i);
if($_ eq $arr1)
{
print "\nin if";
print "\n$arr1:$arr1:$arr1:$arr1:$arr1";
$arr1=$dueamount;
$arr1=$arr1-1;
print "new values:$arr1,$arr1";
$str="$arr1:$arr1:$arr1:$arr1:$arr1";
print "\nString: $str";
@arr=$str;
}
else
{
@arr=$i;
}
$j++;
}
print "\nnew array: @arr";
open(fh,"+>loanemi.dat");
print fh @arr;
close fh;

return $dueamount;
}
$a=payemi('C1005',500);

print "\n$a";*], a piece of nonfictional prose that is an independent part of a publication
*], the predecessor to the current United States Constitution *], the predecessor to the current United States Constitution
*], the regulations governing a company, used in India, the United Kingdom and other countries *], the regulations governing a company, used in India, the United Kingdom and other countries
Line 54: Line 180:
] ]
] ]



hi fsds fs sdf sd fsd fds sd f s

Revision as of 08:13, 24 January 2013

For the Misplaced Pages guidelines, see Misplaced Pages:What is an article?, Misplaced Pages:Good articles and Misplaced Pages:Featured articles. If you arrived here by clicking a link in sample code or a sample template, chances are the template has no connection with this article and the link was simply used as a stand-in for something else.

Article may refer to:

sub payemi($$) { if($_ =~/""/ ||$_=~/""/) { return -1; } $_=$_;

if(!(/^+$/)) { return -2; } if(not($_>0 && $_=~/^+$/)) { return -3;

} open(fh,"<loanemi.dat"); while($str=<fh>) { chomp $str; @arr=split(":",$str);

if($_ eq $arr) { $status=1; } } if(not($status=1)) { return -4; }

close fh;


open(fh,"<loanemi.dat"); while($str=<fh>) { chomp $str; @arr=split(":",$str);

if($_ eq $arr and $arr==0) { $status1=1; } } if($status1==1) { return -5; }

close fh;


open(fh,"<loanemi.dat"); while($str=<fh>) { chomp $str; @arr=split(":",$str);

if($_ eq $arr ) { $dueamount=$arr; $intrest=$arr; $tenure=$arr; } }


close fh;

$interestformonth=$dueamount*($intrest/12*100); $emitobepaid=$interestformonth+($dueamount/$tenure);

if($_>$emitobepaid) { return -6;

}

$dueamount=$dueamount-($_-$interestformonth); if($dueamount<0) { $dueamount=0; }

open(fh,"<loanemi.dat"); @arr=<fh>; close fh;

print "@arr"; foreach $i (@arr) {

@arr1=split(":", $i);

if($_ eq $arr1) { print "\nin if"; print "\n$arr1:$arr1:$arr1:$arr1:$arr1"; $arr1=$dueamount; $arr1=$arr1-1; print "new values:$arr1,$arr1"; $str="$arr1:$arr1:$arr1:$arr1:$arr1"; print "\nString: $str"; @arr=$str;

} else { @arr=$i; } $j++; } print "\nnew array: @arr"; open(fh,"+>loanemi.dat"); print fh @arr; close fh;

return $dueamount; } $a=payemi('C1005',500);

print "\n$a";*Article (publishing), a piece of nonfictional prose that is an independent part of a publication

See also

Topics referred to by the same term Disambiguation iconThis disambiguation page lists articles associated with the title Article.
If an internal link led you here, you may wish to change the link to point directly to the intended article.


hi fsds fs sdf sd fsd fds sd f s

Category: