uses
crt;
function
noktala(noktalastr:
string
):
;
var
noktalad,noktalai:
integer
noktalistr:
begin
noktalistr:=";
noktalad:=
0
for
noktalai:=length(noktalastr)
downto
1
do
noktalad:=noktalad+
noktalistr:=noktalastr[noktalai]+noktalistr;
if
noktalad
mod
3
=
then
noktalistr:=
'.'
+noktalistr;
end
copy(noktalistr,
,
)=
noktalistr:=copy(noktalistr,
2
,length(noktalistr)-
);
noktala:=noktalistr;
{
burda yapilanlari kisaca ozetlemek istersek
verieln ifadeyi krakter karakter baska bir degiskene atiyoruz.
her 3 karakterde bir stringe nokta ekliyoruz...
bu kodlar aynen delphidede degistirmeden kullanilabilir.
}
clrscr;
writeln
(noktala(
'12001514517542'
));
readln;
.