control_continue.m

来自「基本的源程序」· M 代码 · 共 16 行

% control_continue.m
% continue控制语句
% 统计程序的行数和注释行及空行的数目
fid = fopen('pascal.m','r');
count=0;
num=0;
while ~feof(fid)
    line = fgetl(fid);
    if isempty(line) | strncmp(line,'%',1)
        num=num+1;
        continue
    end
    count=count+1;
end
disp(sprintf('程序有%d行',count));
disp(sprintf('注释行及空行有%d行',num));