ויקיפדיה

PL/I – הבדלי גרסאות

עיון אינטראקטיבי בהיסטוריה
→ העריכה הקודמתהעריכה הבאה ←
תוכן שנמחק תוכן שנוסף
חזותיקוד ויקי
שורה 82:
==דוגמת קוד==
תכנית [[Hello World]]:
<source lang="cobol">
<div class="mw-content-ltr">
HELLO: PROCEDURE OPTIONS (MAIN);
:/* PUT ASKIP PROGRAM TO OUTPUTLIST ('HELLO WORLD */!');
:PUT SKIP LIST ('HELLO WORLD!');
END HELLO;
</divsource>
 
דוגמה ל[[פונקציה (תכנות)|פונקציית]] PL/I הבודקת האם מספר נתון הוא [[מספר ראשוני]]:
<source lang="cobol">
 
PRIMALITY: PROC (NUMBER) RETURNS (BIT (1)); /* בדיקת ראשוניות של מספר */
<div class="mw-content-ltr">
:PRIMALITY: DECLARE PROC (NUMBER) RETURNSFIXED (BIT (1)9); /* בדיקת ראשוניות שלהמספר מספרהנבדק */
:: DECLARE NUMBERF FIXED (9); /* המספר הנבדק */
DO F=2 TO SQRT (NUMBER); /* לולאה עד שורש המספר הנבדק */
::DECLARE F FIXED (9);
::DO F=2 TOIF SQRTFIXED (NUMBER); /* לולאהF) עד* שורשF המספר= הנבדקNUMBER */
::: THEN RETURN ('0'B); /* המספר אינו ראשוני */ ▼
:::IF FIXED (NUMBER / F) * F = NUMBER
:: END;▼
▲:::THEN RETURN ('0'B); /* המספר אינו ראשוני */
:: RETURN ('1'B); /* המספר ראשוני */ ▼
▲::END;
:END PRIMALITY;▼
▲::RETURN ('1'B); /* המספר ראשוני */
</source>
▲:END PRIMALITY;
</div>
 
== קישורים חיצוניים ==
אוחזר מתוך "https://he.wikipedia.org/wiki/PL/I"