ST语言的跑马灯程序如下:
repeat for i:=1 to 8 do for j:=1 to 8 do if (i=j) then write('*'); else write(' '); endif; endfor; writeln; endfor; until false;
ST语言的跑马灯程序如下:
repeat for i:=1 to 8 do for j:=1 to 8 do if (i=j) then write('*'); else write(' '); endif; endfor; writeln; endfor; until false;