Pascal の初心者用の質問・相談所

Pascal の初心者用の質問・相談所at TECH

Pascal の初心者用の質問・相談所 - 暇つぶし2ch787:デフォルトの名無しさん
03/11/25 13:54
激遅
function ketaketa(e : extended):integer;
begin
while true do begin
e:=e*2;
if log10(e)>=30 then break;
end;
ShowMessage（FloatToStr(e));
end;

次ページ