代码大全

while(InputChar!=’\n’);

i := i 1

Pascal

StringIdx:=1;
TtlLength:=0;
while not eof(InputFile) do
begin

{do the work of the loop}

ReadString(InputFile, StringIdx, Str);
...

{prepare for next pass through the loop--housekeeping}

StringIex:=StringIdx+1;
TtLength:=TtLength + Length(Str)

end;

15.2.3

for goto break
while repeat until while repeat
until

Pascal
for i 1 to 100 do