2017-07-11 5 views
-5
 program democonstanta 

     implicit none 

c  constanta 
     integer, parameter :: MIN_VALUE = 0 
     integer, parameter :: MAX_VALUE = 100 

c  var declaration 
     integer :: i = MIN_VALUE  

     do while (i <=MAX_VALUE) 
     write(*,'(a14)') "Please wait... " 
     write(*,'(i3,a2)', advance='no') i, "%" 
     call sleep(1) 
     if (i .it. MAX_VALUE) then 
      call execute_command_line("clear") 
     end if 
     i = i + 1 
     end do 

     call execute_command_line("clear") 
     write(*,'(a3)') "End." 

     end program democonstanta 
+0

引数 '1'で' sleep'という名前のサブルーチンを呼び出すためのものです。 'execute_command_line'と比較して、' sleep 'にはエキゾチックなものはありません。一部のコンパイラでは、それを組み込み関数として提供する場合と、そうでない場合があります。つまり、あなたが何を求めているのかはわかりません。 – francescalus

+0

ありがとうございました! –

答えて

関連する問題