private sub command1_click()dim m as single,r as single,h as singlem=val(text1.text) '美元数量h=8.099 '汇率r=m*h '换算label1.caption=format (r, "#.##") '显示兑换的人民币数量end sub
var x,a,b,c,i,j,k:integer;begin a:=0; b:=0; c:=0; readln(x); for i:=1 to x div 4 do for j:=1 to x div 5 do for k:=1 to x div 6 do if (i*4+j*5+k*6=x) and (i+j+k>a+b+c) then begin a:=i;...