BÛ CAMÈ XOTEËÈ ÁÛ ÇHATÜ.
ÈCTO×HÈK: DATAMATION, MARCH, 1977
ÏEPEMEHHAß I ÏPEÄCTABËßET COÁOÉ ÏOËHOE CËOBO C
ÔÈKCÈPOBAHHOÉ TO×KOÉ. I ÏPÈHÈMAET ÇHA×EHÈß 1 ËÈÁO 2.
ECËÈ I OKAÇAËOCÜ PABHÛM 1, ÇAMEHÈTE EÃO HA 2 È HAOÁOPOT.
CPABHÈTE BAØE PEØEHÈE C ÄECßTÜÞ ÏPEÄËOÆEHHÛMÈ.
HAÉÄÈTE OÄHO ÈËÈ HECKOËÜKO HAÈÁOËEE ÏOXOÆÈX HA BAØE È
ÏPO×ÈTAÉTE B PAÇÄEËE 'KATEÃOPÈÈ' KPATKÓÞ XAPAKTEPÈCTÈKÓ.
BÛ MOÆETE KOÄÈPOBATÜ HA ËÞÁOM ßÇÛKE, HO ÄËß CPABHEHÈß
ÏPEÄÏO×TÈTEËÜHEE BCEÃO ÈCÏOËÜÇOBATÜ PL/1.
P E Ø E H È ß .
1. IF I='2' THEN I=1;
ELSE I=2;
2. IF I=2 THEN I=1;
IF I=1 THEN I=2;
3. IF I=1 THEN GOTO SKIP;
I=1;
GOTO DONE;
SKIP: I=2;
DONE:
4. J=2;
IF I=2 THEN J=1;
I=J;
5. DECLARE SWITCH LABEL;
. . .
IF I=1 THEN SWITCH=ONE;
IF I=2 THEN SWITCH=TWO;
GOTO SWITCH;
ONE: I=2;
GOTO DONE;
TWO: I=1;
DONE:
6. DECLARE ONETWO(2) FIXED BIN(31) INIT (2,1);
. . .
I=ONETWO(I);
7. I=3-I;
8. I=I-(I/2*2)+1;
9. IF I=2
THEN DO;
I=1;
END;
ELSE DO;
I=2;
END;
10. IF I=1 THEN I=2;
IF I^=2 THEN DO;
PUT LIST('ÏËOXOE I - ÇAMEHEHO HA 1');
I=1;
END;
K A T E Ã O P È È .
1. HEÄABHÈÉ BÛÏÓCKHÈK ØKOËÛ IBM. HE ÁOËEE OÄHOÃO ÈÇ
ÄECßTÈ OKOH×ÈBØÈX ÝTÓ ØKOËÓ ÇHAÞT PAÇHÈÖÓ MEÆÄÓ
2 È '2'. ÓÄÈBÈTEËÜHO, KAK MOÆHO BOOÁÙE ÏPOÃPAMMÈPOBATÜ
ÁEÇ ÇHAHÈß CTOËÜ ÔÓHÄAMEHTAËÜHOÉ KOHÖEÏÖÈÈ.
2. ÏPEÏOÄABATEËÜ ÏPOÃPAMMÈPOBAHÈß.
ÝTO PEØEHÈE XÓÆE ÏPEÄÛÄÓÙEÃO. MHOÃO ËÈ, OÄHAKO,
OÁÓ×AÞÙÈX ÏPOÃPAMMÈPOBAHÈÞ CAMÈ HAÏÈCAËÈ È OTËAÄÈËÈ
XOTß ÁÛ OÄHÓ ÏPOÃPAMMÓ?
3. ÏPOÃPAMMÈCT HA FORTRAN'E, TOËÜKO ×TO OKOH×ÈBØÈÉ KÓPC
PL/1. ÄA, CTAPÓÞ COÁAKÓ HE HAÓ×ÈØÜ HOBÛM ØTÓKAM! ÝTO
PEØEHÈE ÄAET BEPHÛÉ PEÇÓËÜTAT, HO ÝTO BCE, ×TO MOÆHO
ÏPO HEÃO CKAÇATÜ.
4. ÏPOÃPAMMÈCT HA ACCEMÁËEPE, ÏPOØEÄØÈÉ TOT ÆE KÓPC.
ÝTO PEØEHÈE HE ßBËßETCß HÈ ÏPßMÛM HÈ,ÝÔÔEKTÈBHÛM.
BOÇMOÆHO, ÝTO PEÇÓËÜTAT OÁÓ×EHÈß ßÇÛKÓ PL/1. B HEM ECTÜ
TA ÏPEËECTÜ, ×TO OHO HE COÄEPÆÈT CAMOMOÄÈÔÈÖÈPÓÞÙÈX
KOÄOB, HO ÝTO ËÈØÜ PEÇÓËÜTAT BOÇBPATA HA ÇEMËÞ ÏOCËE
ÈÇÓ×EHÈß ßÇÛKA BÛCOKOÃO ÓPOBHß.
5. CÈCTEMHÛÉ AHAËÈTÈK.
ÏPEKPACHAß ÈËËÞCTPAÖÈß ÄËß TEX, KTO ÄÓMAET, ×TO OÁßÇAH-
HOCTÜ CÈCTEMHOÃO AHAËÈTÈKA - TAKAß PAÇPAÁOTKA AËÃOPÈTMA
B KOTOPOÉ OKAÆETCß HEKOMÏETEHTEH ÄAÆE XOPOØÈÉ È OÏÛTHÛÉ
ÏPOÃPAMMÈCT.
6. COMPUTER SCIENTIST.
HABEPHOE, ÝTO CAMOE ÓMHOE PEØEHÈE.
OÄHAKO TAKÈE "CAËÜTO-MOPTAËÈ" ÁEÇ KOMMEHTAPÈEB OKAÇÛBA-
ÞTCß BECÜMA HEÏOHßTHÛMÈ. ÈCKÓCCTBO TPEÁÓET ÆEPTB, A
ÆEPTBOÉ ÁÓÄET TOT, KTO PAÇÁÈPAETCß B ÝTOÉ ÏPOÃPAMME -
MOÆET ÁÛTÜ, CAM ABTOP ×EPEÇ TPÈ MECßÖA.
7. MATEMATÈK.
O×EHÜ ÏOXOÆE HA ÏPEÄÛÄÓÙEE, CTOËÜ ÆE ÝËEÃAHTHO, HO
OÏßTÜ-TAKÈ BCTAET ÏPOÁËEMA: KAK ÆE B HEM PAÇOÁPATÜCß?
8. ÏPOÃPAMMÈCT, ÇAÁOTßÙÈÉCß O CEKPETHOCTÈ CBOEÉ ÏPOÃPAMMÛ.
BOT PAÁOTA HACTOßÙEÃO KOMÏOÇÈTOPA, È KOHE×HO, HÈKAKÈX
KOMMEHTAPÈEB. "ß MOÃËA ÁÛ ÏPÈÄÓMATÜ È ÁOËEE ÇAÏÓTAHHÛÉ
CÏOCOÁ, KAK ÝTO CÄEËATÜ,- C ÃOPÄOCTÜÞ CKAÇAËA ÁEËAß
KOPOËEBA".
9. CTPÓKTÓPHÛÉ ÏPOÃPAMMÈCT.
KAÆÄOMÓ ßCHO, ×TO CÈE ÏPOÈÇBEÄEHÈE - CTPÓKTÓPHAß ÏPOÃ-
PAMMA. ÈHOÃÄA ÇAÁOTßTCß TOËÜKO O TOM, CKOËÜKO KOËOHOK
HAÄO OTCTÓÏÈTÜ OT KPAß ËÈCTA. HACTOßÙEE CTPÓKTÓPHOE
ÏPOÃPAMMÈPOBAHÈE - ÝTO ÏPEÆÄE BCEÃO TEXHÈKA, È
ÏPÈMEHßTÜ EE HAÄO C ÓMOM.
10.XOPOØÈÉ ÏPOÃPAMMÈCT.
ÇAMETÜTE, ×TO HÈ OÄHO ÈÇ PEØEHÈÉ 1-9 HE ÏPOBEPßËO
ÄÈAÏAÇOH ÇHA×EHÈÉ I, A ÝTO BECÜMA OÏACHO. K HEC×ACTÜÞ,
BAC HE CÏACÓT HÈ CTPÓKTÓPHOCTÜ, HÈ ÔAHTACTÈ×ECKÈE
AËÃOPÈTMÛ, HÈ ÝËEÃAHTHOCTÜ PEØEHÈß, ECËÈ BÄPÓÃ
OKAÆETCß, ×TO I ÏEPBOHA×AËÜHO HE ÁÛËO PABHO HÈ EÄÈHÈÖE,
HÈ ÄBOÉKE.
Íåìíîãî âàæíûõ ïðàâèë äëÿ
Ñòðàíèöà 61 èç 104
Ñëåäóþùàÿ ñòðàíèöà