- 1 名前：デフォルトの名無しさん mailto:sage [2005/11/23(水) 23:31:08 ]
- Delphi初心者が問題をコツコツと解きながらレベルアップするためのスレです。
- 18 名前：デフォルトの名無しさん mailto:sage [2005/11/28(月) 16:40:00 ]
- >>13
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, Types, MMSystem;
const
str='Delphi=399,000YEN';
var
i: Integer;
len: Integer;
StartTime: DWORD;
EndTime: DWORD;
begin
StartTime:=timeGetTime;
i:=1;
while str[i]<>'=' do
begin
Write(str[i]);
Inc(i);
end;
Write('は');
Inc(i);
- 19 名前：デフォルトの名無しさん [2005/11/28(月) 16:40:36 ]
- len:=Length(str);
while i<=Len do
begin
Write(str[i]);
Inc(i);
end;
Writeln('です');
EndTime:=timeGetTime;
Writeln(Format('タイムは%d㍉秒です', [EndTime-StartTime]));
Readln;
end.
//ここまで。よろしくお願いします。
|
 |
