P言語Editor

function main() { z="123.45"; z=sub(z); print(z:"円<br>"); } function sub(num) { n=0; return=""; while(num[n]<>"" and num[n]<>".") { return=return:num[n]; n=n+1; } return(return); }