如何生成正在處理所有質數的文本文件4gl

Question

在下面的代碼中，我導入了一個數字爲3到99的文本文件。

我已經部分編寫代碼來查找給定數字的素數。

define variable a as integer. 

define variable b as integer. 

define variable i as integer initial 0. 


    INPUT FROM Value ("C:\src\New folder\bingo.txt"). 
    repeat : 

     IMPORT a. 
     b = a mod i. 
     if b=0 then 
     do: 
     if a=i then 
     do: 
      message " prime number"a view-as alert-box. 
     end. 
     else if a<>i then 
     do: 
      i=i + 1. 
      message " not prime number"a view-as alert-box. 

     end. 

     else if a < i then 
     do: 
      message "not prime number"a view-as alert-box. 
     end.  
     end. 
     END.  
     if b<>0 then 
     do:  
     i=i + 1.  
     message "b<>0"b view-as alert-box.  
     end. 
     end. 
    Output To Value("C:\src\New folder\even.txt")append. 
    export a space. 
    output close. 
    end. 
    end. 

幫助我。 到程序

Answer 1

我認爲將主要檢查存儲在函數或過程中會更有意義。這個主要檢查並不是完美的，但它會適用於這些條件。

此外，最好在處理輸入和輸出時定義和使用流。

DEFINE VARIABLE a AS INTEGER  NO-UNDO. 

DEFINE VARIABLE b AS INTEGER  NO-UNDO. 
DEFINE STREAM strIn. 
DEFINE STREAM strOut. 

FUNCTION isPrime RETURNS LOGICAL (INPUT iNum AS INTEGER): 

    DEFINE VARIABLE iDiv AS INTEGER  NO-UNDO. 

    DO iDiv = 2 TO INTEGER(SQRT(iNum)): 
     IF iNum MOD iDiv = 0 THEN 
      RETURN FALSE. 
    END. 

    RETURN TRUE. 
END. 

OUTPUT STREAM strOut TO VALUE ("c:\temp\primes.txt"). 
INPUT STREAM strIn FROM Value ("C:\temp\bingo.txt"). 
repeat : 

    IMPORT STREAM strIn a. 

    IF isPrime(a) THEN DO: 
     /*MESSAGE "prime number" a view-as alert-box. */ 
     PUT STREAM strOut UNFORMATTED a SKIP. 
    END. 
    ELSE DO: 
     /*MESSAGE "not prime number" a view-as alert-box. */ 
    END.  

END. 
INPUT STREAM strIn CLOSE. 
OUTPUT STREAM strOut CLOSE.