Richtlijnen voor de opbouw van rekenprogramma's binnen de groep WT

(1)

Richtlijnen voor de opbouw van rekenprogramma's binnen de

groep WT

Citation for published version (APA):

Touwen, N. A. L. (1972). Richtlijnen voor de opbouw van rekenprogramma's binnen de groep WT. (TH

Eindhoven. Afd. Werktuigbouwkunde, Laboratorium voor mechanische technologie en werkplaatstechniek : WT rapporten; Vol. WT0290). Technische Hogeschool Eindhoven.

Document status and date: Gepubliceerd: 01/01/1972

Document Version:

Uitgevers PDF, ook bekend als Version of Record

Please check the document version of this publication:

• A submitted manuscript is the version of the article upon submission and before peer-review. There can be important differences between the submitted version and the official published version of record. People interested in the research are advised to contact the author for the final version of the publication, or visit the DOI to the publisher's website.

• The final author version and the galley proof are versions of the publication after peer review.

• The final published version features the final layout of the paper including the volume, issue and page numbers.

Link to publication

General rights

Copyright and moral rights for the publications made accessible in the public portal are retained by the authors and/or other copyright owners and it is a condition of accessing publications that users recognise and abide by the legal requirements associated with these rights. • Users may download and print one copy of any publication from the public portal for the purpose of private study or research. • You may not further distribute the material or use it for any profit-making activity or commercial gain

• You may freely distribute the URL identifying the publication in the public portal.

If the publication is distributed under the terms of Article 25fa of the Dutch Copyright Act, indicated by the “Taverne” license above, please follow below link for the End User Agreement:

www.tue.nl/taverne Take down policy

If you believe that this document breaches copyright please contact us at: openaccess@tue.nl

providing details and we will investigate your claim.

(2)

technlsche hogeschool eindhoven

laboratoriwm voor mechanisch. technologie en werkplaatstechniek rapport van d. sectie:

titel:

R1cht11jnen ~

2!

o~ouw ~ rekenpregramma'! b1nnen

2!

greep

!!!

auteur(s): Touwen sectieleider: hoogleraar: samenvatting

Enlge praktleche richtlljnen worden gegeven met betrekking tot de algemene opbouw van rekenprogramma's.

prognose

Kcmen tot een uniforme opbouw van rekenprogr8lllft8.' s blnnen de groep..tr.

Vereenvoud1g1ng van doaumentat1e.

Verhogen van leesbaarhe1d en hanteerbaarheld.

I biz. I van bll. rapport nr. \:'1' codering: l,. :5 trefwoord: pl'ogrd;nme t, ~ datum: aantal biz.

(3)

o 5 lQ 15 20 30 35 45 50 Inhoud: Inhoud. Inle1d1ng.

Globa.le programma indeling.

De Algolkop.

De toellchting op de Algolkop. Het standaard koanentaar.

De toe11chtlng blj het standaard koament&ar.

De herha~lbaarheid van het programma.

De deklarl:1t1ef_e. De standaard kop.

De toe11cht1ng op de st~da~rd kop. Het progr~lIIl'Bf' s. s.

Het A'fslu1tdeel. Algemene opmerkingen.

Kontrole "voltoolde" progr8lll1l8.t _{s (Checklist).} Testen v~n het prOgr~8.

Kodering van ponsb~nden, ultvoer e.d •• Voorbeeld.

Bronnen.

bIz. 2 van biz.

p. 2 p. 3 p.

--p. 5 p.

6

p. 8 p. 9 p. 10 p. 11 p. 12 p.l} p. 14 p.

_'5

p.

,6

p. 19 p. 20 p.21 p. 22 p. 28

(4)

rapport nr. HT 0290 q biz. 3 van I---~---.----.--.-o 5 - 1Q25 -30 Inle1d1ng.

In het h1ernavolgende zullen en1ge prakt1sche r1chtl1jnen gegeven worden met betrekk1ng tot de algemene opbouw va.n rekenprograau t 8, tene1nde:

a) tot een un1forme opbouw te kamen,

b) de do~ntat1e en arch1vatle te vereenvoud1gen, c) de leesbaarhe1d en de hanteerbaarhe1d te verhogen, en d) vers1.singen (welke u1tvoer 1s met welke

progr8lllll&-band verkregen, enz.) te voorkomen.

Aan de hand van een globale progr8llll18.1ndellng zullen

boven-genoemde aspekten aan de orde kanen. .

Vervelgen8 worden enige algemene opaerk1ngen en prakt1sche wenken gegeven en een soort checki-118t op mogel1jke progr8Dlllleel'-routen.

Het rRpport wordt besloten met een voorbeeld (Hoe het kan, hoe het gewenat 1s en een u1 tgebre1de verde).

w"'kplaat.tK~n I.k technische hog.school .lniClbOYttn

(5)

o 5 10 15 25 I 30 35 rapport nr. hiT 0290 Globale programma1nde119S.

<

algolkop >

begin comment < standaardkommentaar

>;

1nteler ., ss; sa :- READ; end

!.2.! • : - ,

step , until ss ~ begin

<

deklaratlea

>;

NLCR; NLCRj PRIN'rlEX'I'( ~<atandaardkop>*);

<

progr8D1D.8. s. 8. >;

! [

8

+

ss then < afslultdeel > end as; -bl z. I. van 2 3 4 5 NLrn; ~ 7 8 9 10 11

werkp lootlteci'tn 1.1e technische hogeschool eindhoven

(6)

rapport nr. i.J'l' 02 l)() _biz.' j van biz.

o

~ ftlgolkop.

(zie regel , globale programma-indel1ng)

5 _De_{algolkop dient}_{te worden uitgevoerd konform het daartoe .}

In RC-Intormatie nr 30 onder

1.3

gestelde

[1].

De Indel1ng (layout) van de algolkop wordt als voIgt om-sehreven: lQ _{< ea}₂₅_{em ta:peteed. >} < upper ease > 2 < nlcr > 3 15 <L> 4 < ea 25 em tapefeed > 5 < lower ease > 6 20 < aljol> 7 < 1 spatie > 8 < programmallUlllller > 9 < 1 spat!e > 10 25 _{< Identltlk8tle >} 1 1 < Cft 2 em tapeteed > 12 < lower ease >

13

30

<

ultvoeraanwljzing > 14

<

nler > 15 < ea 1 5 em tapefeed > 16 45 50

(7)

o 5 10 15

"I

25 30 -35 45

-fa pport nr. i~'I' () : )(11) bIz. h yan

Toelichtlna

.2E

~ algolkop.

1: nodig voor de operateur om de programmaband onder de optische lezer van de komputer te kunnen legsen.

2: na tapeteed (d.l. blanke band met alleen transportgaatjes) ia een kode detlnlerend teken (de Z8l1. caM det1n1t1e) vereiat. In dlt geval een upper caae omdat .en hootdl.tter volgt.

3: h1en.e vordt een

zan.

carriage return-teken bed.oeld, een pone1nc die de tlexovr1ter (een ponaband verwrlaande .chrijt-II&chlne) re.p. de releldrukUr naar een nieuve repl doet gaan. Wanneer U eventueel noodzake11jke korrekties van de

procr--teket . . t behulp van de x...8 vll t gaan u1 tvoeren, ,kunt U d1 t teken bater wslaten W8sena de versch1l1ende atart biJ de rele1-tellina in de 8yatemen MCA en THE.

4: de hootdletter L, ind1en inaelezen, heeft tot gevola dat de komputer de in te lezen programmatekst via de regeldrukker zal veergeven (d.1. een zgn. listing levert).

5: deze tape teed geeft de operateur &an de komputer de gelegen-heid, al naar lelang er gevraagd 18, een l1atina te geven

ot

n1et.

n.b.: 2 tim 5 ziJn takultat1et (Ilogen weggelaten worden).

6: a.la ad 2, in di t geval een lower case want het eerstvolgend teken 18 een onderatrepina.

7: het 8ymbool algol 18 een 800rt open1nsahaak, vaarbij aan het e1nd van het programma het symbool PFOIend ala alu1thaak behoort (progr8IlD8.halten).

8: door het rekencentrum (RC) voorgeachreven. Slechts 1 apatie is op deze plaats toegeataan, anders volat er een toutmeld1ng. 9 : het prosr8D/m8Jl'U.lllDler, door het R C toesekeni, be staat ui t acht

cijters.

De

eerste vier vormen de sektie

ot

groepsaanduiding.

V~~r WB (Bedr1jt_Chanlsatle - prot .lr J .Erkelens

dr E.A.Dijkallan) 0531

WL (Produktontverp en Mechan1sche Konatrukt1e

- prot.ir A.Horowitz): 0526

WP (Konatrukt1es en Mechan1sraen

- prof.1r W.v.d.Hoek): 0521

WT (Mechanlache Technologle en Werkplaatstechnlek - prot.dr P.C.Veenstra

prof.dr A.C.H.v.d.Wolf): 0556

De

laatste vier cijters vormen een doorlopend volanummer door de programmaadminlstrat1e uit te relken.

10: als ad

8.

11: de Identlflkatie moet bestaan ult een door de programmeur te speclflceren atr1na die een ident1fler moet zljn in de zln van het Revised Report [2]. Slechta de eerate '0 aymbolen worden door het ayateem meegenomen.

(8)

o

5 1Q lS 20 25 30 12: h'T ()290 biz. 7 van

Aanbevolen vordt de Ident1tikatie ala volgt op te bouwen: < letterdeel > < cijterdeel

>

Het letterdeel wordt dan gevormd door blJvoorbeeld de

Inttialen van de eerste gebru1ker van het betrokken programma, het cljterdeel vormt het volgnummer van eventueel aangebrachte vij I. 19ingen (wiJ I. 181ngslUllII1ler ) •

Voorbeeld:

De ,6e uitgave van programma. a - 4112 gat geen ponsultvoer. Deze mogelljkheld werd ingebouvd en h1ermee ontstond de , 7e ultgave.

De Identitlkatles van de I.e programma'. lulden nu: vd¥16 resp. vdwl7.

in te laasen om op eenvoudlge vljze een eventueel volgend wljz1g1ngsnummer in de ldentltlkatle te kunnen aanbrengen. 13: ala ad 2, In d1t geval un nu een , (k~) van de

uitvoeI'l-aanwijzing volgen.

,4:

geett Banw1Jzingen over eventueel te gebru1ken randapparatuur (paneers, plotters, magneetbe.nduni ts, teleprinters) na&st de regeldrukker.

In het MCA-eysteem vordt de uItvoeraanwljzing overgeslegen (geskipt), maar dient om kompatlbiliteitsredenen toch te worden gebruikt.

Voor het THE-aysteem gelden de volgende regela voor de uitvoe~

aanvijz1ng [3]:

<

empty > geen gebru1k van over1ge randapparatuur

<

,p > ultvoer via p ponsatromen

(0

<

p

<

2).

-

-<

,p,q > ultvoer via p ponsatrOllen en q plotstromen

(0 < p < 2 , 0 < q < 1).

<

,p,q,r > ultvoer-v1a p pOneltraaen en q plotstromen, in-/uitvoer via r magneetbandunita

(o

<

p < 2 , 0 < q

<

1 , 0 < r <

3 ).

<

,p,q,r,s > ultvoer via

p

ponaatromen en-q plotstromen, in-/ ultvoer via r magneetbandunits en a teleprinters

(0 < p < 2 , 0 < q < , J 0 <

r

<

3 ,

0 <

s

< 1).

-

- -

~

-

~

De getallen p, q, r en a moeten van het type

<

unsignld. integer> zljn [ll.

n.b.: ala de uitvoeraanviJzlng

<

empty> (. leeg) 1a, kan ad 12 uiteraard vervallen.

'5:

ala ad

3.

16: takultat1e:f.}(an algolkop van het volgende gedeelte doen onderachelden.

A1i!mene O~rking:

Het

aM

rengen van spat1e8 anders dan in bovenstaande aangegeven,

50 om welke "den dan oolt, is in de algolkop verboden.

...

Dl t hangt semen met de gebruikte leesprocedures in het THE-systeem.

- - - -... - - - 1

technische hogeschool eindhoven

: l -_ werkplaat.technlek

(9)

o 5 lQ --15 20 25 30 45 50 rapport nr. \~'l' 02 <)() Ret standaardkommentaar.

---

(regel 2 globale programmalnde11ng)

Voor

dlt gedeelte wordt de volgende 1nde11ng a&nbevolen:

<

programmanUlll'l1er >

< ,

>

< ,

spA-tie>

<

pr0flr81lllleur

>

< ,

>

< ,

sp&tle >

<

onderwerp > < , > < , _patte >

<

In1tlalen belanghebbende >

< ,

>

< ,

spatle >

<

datWl > 2 3 4 5 biz. B van

w.rkplaat.technlek technische hogeschool A.n,dh4I)Vf!!!n biz.

I

(10)

rapport nr. \\IT 0290 biz. 9 van

o

Toelichting blj ~ standaardkanmentaar. 5 1Q -15

-,-J

25 .-30 35 45

-1: het door het RC toegekende programmanummer (zie toellchtlng bIJ de algolkop ad

9).

2: de naam van degene( n) dIe het programme. heeft (hebben) ea.mengeeteld.

Onder deze naam wordt het programma in het periodieke overzlcht van het rekencentrum ten behoeve van de atdellng en betrokken eektie opgenomen.

3: onderwerp 'Waarvoor het programma. geschreven 1s.

4:

5:

Het hangt van het onderwerp at, ot opname van een gebrulkte tormule hier wensellJk 18.

Het verdlent aanbeveling voor onderllng sa.menbangDnde programma's op deze plaats tevens de projektaandulding (tretwoord) te

vermelden.

voor het maken van globale overzlchten in verb and met planning op langere termlJn, 1s het ge'Wenst de programma's volgens

de deelsekties van de groep te kunnen indelen.

Na&st de Inlttalen van de dlrekte belanghebbende(n) gelleve men hlerblj ook de Inttlalen van de sektleleider te vermelden. Datum aanduidlngen.

Hier kunnen opsteldaturn VM het programma. en eventueel de detum

van de laatste 'Wijziging opgenomen worden. Dit bllJkt achteraf biJ rapportering van een en ander vaak zeer plezlerig te zlJn.

Opmerklng: er kan aan gedacht 'Worden in de kop van bet programma ook een volgorde VM de in te lezen grootheden te beschrljven.

Uiteraard Is hier geen bezwaar tegen.

Ben overzichtelljke opbouw van het progr~ zal de behoefte aan iets dergelljks echter gering maken.

w.rkplaat.technl.k technische hogeschool e.nlonlDVflln

(11)

o 5 1Q 15 20 25 30 35 50

rapport nr. hIT 0290 bl z. 11) van

~ herhaalbAarheld ~ ~ programma.

In de praktlJk wordt het herstarten van een programma, hoewel techniach mogel1Jk, door het RC niet ui tgevoerd.

De mogel1J khe1d am een progr8l'llDR tach een aantal malen te kunnen herhalen blljkt in vele gevallen achtera! zeer gewenst te zljn. BiJvoorbeeld om een bepRalde grootheid nog te kunnen varieren buiten de geprogrammeerde routine.

Ret is daaran raadzaam dlrekt na het standaardkOllllllentaar een herhalingsopd.raeht in te bouwen.

Deze herha11ngaopd.racht (for - statement) vordt door de volgende progr_regela gevotWl: en

<

integer 5, 88;

.a :-

READ;

!.2! • :- ,

step , ~ ss ~ begln >

<

end as; >

-Zle ook de globale pr~1n4.11ng, vur dne accelljkheld In de repla

3,

4, 5 en

9

oppnc:.en 11.

Door &an de via de lnvoerbe.n:l bet juiatoe &ant&! berhallftPn (blJ pen hert.l.lnpn dua Mn 1) MIl de variabel. aa _ toe ~, been Mft de _ _ _ toe beI'bIIalbeal"latd Of

eemoud18e

vtJ"

1D . . .

Moetea wel 'V'U'labelen blDn8n bet

pracr

II atel.-.t1a

be'r-.J.4

wwden,

d.aI'1 . . . 41t

beter

vla . . .

lJPlMt . . . .

...,...,.r1_

(~111) uU,,,.1'4 tIIOrdea.

De he .... ·l . . . rM14 t • • , _ ... ~ 1IIe4oe14.

Z1e WMn' Mil pleslerip b1JII . . t1gMtcl oc* bit hootUtAlkJe:

'Teaten 'YaIl bet

prosr-.e'.

~----~--~--~--~~~--'---~~---~----'---werkplaatsteehnlek technische hogeschool eindhoven

(12)

o

-5 10 1.5 --20 25 30 35 -50

rapport nr. hiT n:) C)!l bIz. I I van

De deklarat1e ••

. . . . t cte hlervoor plclerde repl. yol.aena bet RevlMd. Report [2]

vcmtt

DOC bet vol&eMe &aI'lbeyolen:

a. gebrulk so aoplljk klelne letter ••

retien: 6e repl~ltyoer kent alleen bootdletter •• Echte hootclletter. worden pv01'a'l door hootclletter. _ t een

ek.tra dar owrheen geslegen teken (een p,mt un de onderzijde

ot

een klein ~tekentje In het aidden). D1t ont.iert de listing en beaoe1lijkt het lezen van de listing blj korrigeren en kontroleren.

b. plaata de gebrulkte identif1ers per type in de alfabetlache en lexikograflsehe volgorde.

reden: bij kontroleren van lange teksten is het plezierig een identIfier dIe bIJvoorbeeld met een t begInt, direkt aan het eind van de betrokken gedeklareerde groep _veten te moeten zoeken. Met voorkomt het onnodlg vaak de hele groep te moeten doorlezen.

c. zet na elk scheldIngssymbool (hier de komma) een spatie. reden: 1. verhoging van de leesbaarheid,

2. er sljn flexowriters die op _en spatie kunnen stoppen.

Dan

van groot belang blj korrektieverk.

d. sorg er v~~r dat a.an het elnd van iedere groep gedeklareerde identifiers op de ponsband CR 10 em taper.ed aanwezig is, alvorens dese ar te sluiten met de ;.

reden: wanneer er onverhoopt een identIfier nog niet gedeklareerd i8, kan dese zonder meer nog aehter de groep toegevoegd worden.

e. maak op de ponsband tU8sen ledere gedeklareerde procedure ca 1 5 em

tapefeed, en markeer d1t op de ge8chreven tekst door een ekstra regel over te slaan.

(n.b.: de tapefeed tueeen de nler's plaatsen, anders wordt ze

bij eventueel kopieren via de komputer in het THE-systeem geeklpt). reden: 1. van belang b1J eventueel korr1geren (vervanging van

route gedeelten door uitseheuren en tussenplAkken, ens.). 2. bevordert de leesbaarheid en overzichtelijkheid.

biz.

",e,kp loatstechn lek

(13)

o 5 lQ 1.5 30 -I 35 50

--ra pport nr. \.JT II::' 9 () bl z.l! van

!?!.

stand.u.rdkop.

(regel 6 globale programmaindel1ng)

Deze gelijkt veel op het reeds behandelde atandaardkommentaaar. Deel de stsnd&ardkop zo mogelljk ala voIgt in:

<

onderverp >

<. ,

>

< ,

spat1e

>

<

progr. >

<

1 spatte

>

<a>

<

1 .pat1e

>

<->

<

1 spatte > < progr8.l'llll8.nummer s. s. >

<

1 spatte > <-> < 1 spatie > < volgnuaaer >

<

ea 2 em tapefeed > werkplaatstechnlek 1 2 3 4

technische hogeschool eindhoven

I

(14)

o

1Q 15 25 30 35 45

rapport nt. tv']' 0290 blz.I'\ van

Toelichti11fS bIj ~ standaardkop.

1: hier dezelfde tekst opnemen als vat er in het standaardkommente.ar onder onderwerp vermeld staat.

2: met prosrammanummer 8.S. vorden de laatste vier cljters van het via het RC verkregen programmanummer bedoeld.

3: het vol.cmaDer geef't het aantal gevljzlgde u1tgaven aan van het betrokken programma (vijzlg1ngsnUJllDeT). Ret wljzlg1ngsnummer moet gelIJk z1jn. aan het c1jferdeel van de ldentlf'1katie (zle toelichting blJ de algolkop ad 10).

4: in te lassen am een eventueel volgend wijzigingsnummer gemakkeliJk te kunnen aanbrengen (vgl. de toel1chting blj de algolkop ad 11).

De standaardkop zoals hlerboven gespeclt1ceerd, moet aan het begIn van de ul tvoer (. outp.lt) vermeld worden, zodat men daar direkt

informatle heeft over het betrokken programmaonderwerp.

Ale deze 8tandaardkop met bljbehorend u1tvoerkommando na de herhallngsopdracht vordt geplaatst, berelkt men dat de uitvoer blj herhallng weer met de standaardkop begint (zie ook blj het

af'slultdeel).

werkplaatstechnlek

(15)

o

5 1Q 1525

-J

J

50

rapport nr. \J'I' 0:' ql) bl z.l/l van

Hier wordt volstaan met enige a,lgemene a.e.nbevel1ngen.

a. plaata ledere toekennlngsopdracht van het type x : - READ; (toekennIng van het eerstvolgende getal op de getallenband aan de identifIer x) san het begin van een nleuwe reiil. redan: vereenvoudlgt het a1"zoeken van het prograraa me

betrekking tot het opstellen van de Inveergegevens. b. veer de ingelezen gegevens :0 apoedlg mogel1Jk ui t (vaeht

daar nlet mee tot een groter allntal reeds inselezen Is). reden: 1. van be lang bIj het optreden van d.ynam1sche fouten

(vereenvoudigt de lokal1aering van de lutste nog ultgevoerde opdracht).

2. geett kontrolemogelljkheld op de verwerkte 1nvoer-gegevens.

c. zorg om de 10 a 15 regels tekst voor ca 15 cm tafeteed op de progr8JllnB.ba.nd. Geef dit op de listing aan door ter plaatse een regel over te slaan (n. b.: de tapefeed tussen nlcr' s plaatsen. BIJ kopleren 1n het THE-aystee. wordt de tape teed andere gesklpt).

reden: 1. van belang blj korrektleB. Betrokken gedeelte kan eenvoudlg uit de band geknipt worden en vervangen door de verbeterde versle (lassen in tapefeed ver-oorzaken Minder leeatouten, bovendien mogen in tapefeed de transportgaatjes dicht zl,1n (zie ook bij de algemene opnerklngen, ad 1).

2. maakt de listing (uitgeschreven tekat van het pro-grmrma) meer overz ichtel1Jk.

d. geef een comment met een llJst van de voornaamste gebruikte identifiers, met aandulding van betekenla en dimensie.

reden: 1. hulp bIJ Invoervoorbereldlng wat betreft d1mensle-toekennlng aan gebrulkte grootheden.

2. maakt programme. nog lee.bur wsnneer geruime tljd verstreken is.

3. maakt programma leesballrder voor derden (betrokken opdrachtgevers).

e. maak van de mogel1jkheid kamnentaar na een end mee te geven

gebrulk.

-Bljvoorbeeld e.an bet elnd van een procedure body, of aan het elnde van een ccmpound statement In een for-loop.

reden: 1. een verkapte kontrole op de bi~in-end struktuur. 2. bevordert de overzichteliJkhe en-reesbaarheid

van de programmatekst.

w ... kplaatstechnlek technische hogeschool ain""""" ... n

1

(16)

o .5 -1Q 15 20 25 30 35

"r.

1,;lT 0290 Het afalu1tdeel.

(regel 0 globale programma1ndel1ng)

Dit apeelt aIleen een rol blj herhallngen van het programma. (due als ss

> ,

is) •

biz. I 5 van

Op de plaats van het afaluitdeel kunnen de volgende systeem pro-cedures gebru1kt worden [,]:

NLCR

CARRIAGE( n) met 1

<

n

<

31

NEWPAGE

of

NEW PAGE -

-RUNruT.

Wordt we1nlg regeldrukker ultvoer per programmadoorgang vervacht, dan wordt enige m.alen NLrn reap. CARRIAGE( n} aanbevolen (1

-

<

n

-

<

4).

Bij veel regeldrukker u1tvoer 1s het plezierlg am na iedere herb&-ling met een nleuwe blad.zijde te beg1nnen. Gebrulk dan NEWPAGE of

NEW PAGE.

Bovengenoemde procedures kunnen naast die voor het ache1den van ponsu1 tvoer per herhaling van het progr8llllD&. gebrulkt Yorden. Voor dit laatate een of meermalen de procedure RUJDJT aanroepen. Door iedere aanroep van RUNUJT Yordt 20

em

tapeteed geponet.

Wordt in het THE-aysteem van twee pons.tromen gebru1k g.-akt dan moet de lijst systeem-procedures nog aangevuld worden met:

FUNLCR, FUNNL~l, FUNNLCR2, FUNlfLCR( 1),

FUNRUNaJTl ( n), FUNRUNOJT2( n), PUNRUNaIT( 1, n) •

Voor de verdere betekenis hiervan wordt verwezen

naar

RC-info~t1e

nr 32 ad 4.3 (3].

Zie voor wat ponsultvoer betrett ook punt

4

bij het hootdstukJe 'Algemene Opnerk1ngen i •

Bij gebruik van twee ponsstranen kunnen dan zonodig de ponaende aMlogons FUNOCT1(n), FUNOCT2(n), FUNOCT(l,n) toeg_put worden.

biz.

--.. --~-... - - -... - - . - - - 1 we,kplaatlt.chnlek technische hogeschool eindhoven

(17)

-~---~-~---~---~---~---... -.--~---~---~--~---, biz.

I

o 5 10 15 20 25 30 35 50 bl Z.1 f, van Ali-men. 2i!!rklngen. 1. Lassen.

Blj

lassen 1n tape teed mogen de tranaportgaatjea d1cht blijven, mits aan weersz1jden van de las een ot meer transportg~atje8 open zljn.

De Opt18che lezer detekteert name11jk per tranaportgat: i8 het tranaportgat open, dan vordt het karakter ter plaatse gelezen, 1s het transportgat d1cht, dan niet. Bovendien wordt na een dicht transportgat van het eerstvolgende open transportgat het b1jbeho-rende karakter ook niet gelezen.

Wanneer een transportgat in een progr8llll'l&- reap. getallenband onver-hoopt d1cht blijtt, geett d1t veelal aanle1ding tot vreemde touten.

2. Samentrekkingen.

Enlge voorbeelden

van

statements dIe h_tzeltde gevolg hebben: SPACE( 6}; FIXT( 3, 2, a); • FIXT( 9, 2, a);

SPACE( 6); PR IN'ITEXT(

i:a

-;t); • PRINTTEXT(

1:

a =;t);

NLCR; NLCR; NLCR j NLIlt; - CARRIAGE( 4) j

a :- OJ b :- OJ C : - 0; d :- 0; • a:- b :- 0 : - d :- 0; (in dlt geval moeten de identit1ers a, b , c en d van

het-zeltde type zijn, dUB integer

ot

real)

bij array-deklaraties met dezeltde grenzen (lower bound. - upper bound) behoeven deze niet steeds herhaald te worden:

real array aa[1:10], bb[1:10], oc[1:10J, dd[1:10]j •

!!!!

a::!!l

aa, bb.. co I dd[':1 0];

bij het samenstellen van bepaalde tabelhootden:

NLCR; PRINTI'EXT(

1:

x

y

x

y

x

y *);

PR INTI'EXT(

1:

x y x

y::i. ) ;

kan vervangen worden door:

NLCR;

!.2::.

i :- , step 1 unt1l

5 !!2

PRINTrEXT(

1:

x y *);

De volgende serie statements: it a • 0 then ,Oio e1ndj

l?

b • 0

tfiiii

~ e1nd;

:rr

c • 0

!!i!!:

i.2!2

e 1nd.; kunnen verv~n worden door:

.!!

a • 0 Vb· 0 V c • 0 ~ ioto elnd.;

3.

Spat1es.

Wees nlet te kar1g met spat1es.

Reden: 9.) de toevoeg1ng van spat1es bevordert de leesbas.rhe1d van een progrSDma aanz1enllJk.

b) er z1jn tlexowr1ters die op een sp8.t1e kunnen stoppen. In d1t geval dan van belang b1j bet korrlgeren van banden met behulp van zo'n tlexowr1ter.

c) zonodig kan nog een spat1e door een karakter verve.ngen yorden.

4. Ponsu1 tvoer •

Wanneer van een programma ponsu1tvoer verwacht wordt v~~r verdere verwerklng met andere progr8lllDa r 8 is het aan te bevelen het volgende 8tukje progr8Dll19. in de prograrrmatekst op te nemen:

w.,kplootatechn I.k technische hogeschool einldh,ovttn

(18)

o 5 1Q 25 30 nr.

vrr

0290

RUNOUT j FUNL~; PUHEP( 122) ;

H1erdoor wordt 20 em tapefeed geponst, vervolgena een nieuwe regel pona1ng gema.a.kt en daarne. de lower case ponBing.

blz~ 7 van

Dit kan van belang zljn voor door het THE-aysteem te verwerken getallen-banden, waarb1j ne. ieder tape feed gedeelte een kodedefenlerend teken vereist is.

Indien ne. een groep geponate gegevens (die b1jvoorbeeld in een fol"-loop gemaakt worden) en RUNClJT volgt, dan worden de volgende statements aanbevolen:

ruNLCR; PUHEP(") j RUNOOT j PUHEp(' 22 ); PUNL~ ;

Hiervan zorgen ruHEP( ,,) en

ruHEP('

22) reap. voor een stopkode en een lower case. De andere statements spreken voor ztch zelt.

Zonodig kan men de ponsuttvoermogelljk.held fakultatiet maken. Zle hiervoor ad

5:

tuaaenuitvoer).

Wordt van twee ponsstromen in het THE-syateem gebrulk gemaakt, dan dlent men het pon.ende analogon van bovengenoemde programmaatukjes te gebru1ken.

In het THE-aysteem wordt biJ de overgang

van

PUSXM(n), ruNSYM1(n), PUNsn<2{n), PUNS"XM(l,n) op PUHEp(n) over dezeltde atroom een atopkod.e lngelut, bij overgang in cagekeerde riehting een lower case pona1ng. H1erdoor kunnen in de met het THE-aysteem geproduceerde ponsbanden ekstra karakters vervacht worden.

5. Tu ••• nui tvoer •

Zorl voor zoveel mogelljk tu •• enuitvoer.

Maak ne. de testfase overbod1ge tussenu1tvoer onderdrukbaar. Voorbeeld van onderdrukbaar maken van bet tuasenre.ulta.at a.

De hlervoor b.nodigde programmaregele zijn:

g1 :- READ; cOlllllent als g1 • , dan tuaaenu1tvoer op regeldrukker van 11, andere ni.t;

11' g1 - 1 then

35 beg1n NLCRT1'I'IN'1'I'EXT(

1&

.*); FIXT(

5

I

3,

a)

2;

50

Door op aoortgelijke w1jze ponsultvoe~pdrachten onder een it-clause

te brengen, heert aen het e.l dan niet doen ponaen op eenvoudige w1Jze zelf in de hand.

Inplaata van het eenvoudige voorbeeld met de uitvoer van 'a " kuIW:~n natuurllJk hele groepen tussengegevens op deze manier verwerkt worden. Verge11Jk in dlt verband de verschll1ende programmaver.1e. voor hetzeltde probleem in het hootd.tukje 'Voorbeeld'.

6. Konce~ten.

MaSk!]

het prograaaeren van een probleem gebru1k van deel yellen. Hiermee bedoel 1k: zet op a~zonderlijke yellen b1J elkaar behorende, zo mogelljk atgerande, gedeelten van het n1euwe

prosramma.

Bij het overschrijven van een gedeelt., behoert dan niet de gehele tekst opnieuw overgeschreven worden.

Wordt ponawerk u1tbesteed, laat dan het koncept ponaen, doeh konigeer de geponate teut zel~. Hlerdoor worden lee.touten

VOOl\-kamen en wordt in zekere zin t1jd bespaard.

technische hogeschool eindhoven biz.

(19)

rODll)ort nr. 'Lo.1'f 0290 blz.18 van

7. Unlveraallte1t.

o

Is het progruma voldoende alsemeen bruIkbaa..r?

Iedere kon8tante dIe nog

weI

eens zou kunnen worden vervangen door een andere waarde I moet in het begin van het programma

eenmalig ingelezen worden en daar san een globale variabele worden toesekend. In het verdere programma wordt dan met dese 5 varlabele verder gerekend.

8.

Overboditrrekenwerk

Op een e!rekenmaehine zult u ook

weI

systematisoh te werk gaan, in die: zin, dat u geen formules twee

ot

lHermalen met dezelfde getal-10 len zult gean u1trekenen.

I

20 --25 30 35 40 --45 50

Laat de komputer dit dan ook niet doen. Deze 81tuaties kunnen voora! optreden: a) achter .t~, en until in tO~8tatements.

b) in binnen okken achter geneste for-statements.

c) vanneer veel formules van hetzelfde type sebruikt worden. 9. Loze labels.

least het e1genlijke doel waarvoor labels in het algemeen gebru1kt worden, kunnen ze oak toegep8.8t worden om atzonderl1jke progr8llllll&-onderdelen van elkaar te ondersoheiden.

Ret verhelderende tre:f'woord bij het betrokken programmagedeelte wordt dan in de vom van een label ter plaatse &an het begin van de

regel gezet.

Een loze label wordt dan ala een verkapt comment gebru1kt. Het bij een kommentaar meeeta! voorkomende symbool comment kan zo vermeden worden, vat in aaaaige gevallen

weI

eens plezierig is.

10. Plotten via de reteldrukker.

Door de regeIPQ81 Ies ale x-koord1naat en de reselnummers als

y-koordinaat te be.chouven, kan bij adequate schaling de regeldrukker zeer wel voor een gra:f'ische weersave van bepaalde rekenresultaten gebruikt worden.

Door deze werkwijze kan men veel sneller aan een serie gratieken komen voor een globaal Inz1cht in de onderhavtge problematiek.

Een definitteve, mooi uitgevoerde teken1ng kan daarna zonod1g alanog met behulp van een plotprogramma gerealiaeerde vorden.

Op deze wljze kiln de plotter van veel slobaal tekenwerk ontlast worden.

technische hogeschool eindhoven biz.

(20)

o

5 10 15 20 nr.I\JT 0291) bl z.1 9 van bl z.

Kontrole 'voltoolde t prOF ...

I!.

t ( Checkllst )

z1Jn aIle verelate puntkamma1_{s aaawez1gT}

(na eM voIgt

ot

end of else

ot

punt.ltc:.aa

ot

ltaraentaar

ot

n1eta)

-

-z1.ln aIle var1abelen gedeklareerd?

kr1Jgt elke vuiabele een vaarde &1 voren8 lebruikt te worden? 1a de bel1n -

!.2!

atruktuur in order

. t .... t b1j elke it een then!

(dlreltt na tben-ra een-rr-verboden)

-

-t.

ziJn aIle noodzakelljlte onderatrepingen aanwezig1

(i*'O, /

!!:!:!l /

be,i

l /

boolean / Boolean / coaaent / do /

e.e e~

I

~&lae or

7 ,ott

I

if'

7

~r

7

libel

T

attn / F d u r e / proend. f"5:al

!:!E

T

a t r f t ' i tch

7

then

7 rue

7 until

7 va1ue

f'"iJ'ffle)

-g. :r.1jn aIle ma.al-tekens aanwezlgT

(in algol voorgeschreven. Maak er aterretjea van om verwarr1ng met de letter x te voorka.en)

h. staan e1' leen twee

ot

meer arlt~tlache operatoren naaat elkaarf (a.+--3 1s tout .. Moet r.1jn: a.+- (-3) )

1. z1jn de boolean-expre8s10na korrektf

25 (a

<

b

<

c mag n1et. Meet z1jn: a

<

b 1\ b

<

c )

30

i

I

j.. voIgt er d1rekt na een label een caaent 1 (na een label mag geen caaent v«»!ien,

na een coaaent mas weI een Iabel volgen) k. z1jn de atrina-quotea ~

*

gepaardT

1. kan van een dynamisch array (h1ervan bevatten de srenzen varlabelen) de bovengrena kleiner worden dan de ond.ergrenaf

(1.0 ja, dan vtlgt een dynam1ache toutmeldlng)

a. wordt er met behul:p van een IOto-atatement verwezen nur een label 1n een binnen blok,

(zo .la, dan voIgt eveneens een toutmeldlng) Dpaerklngen:

1. ad d. en k.: treedt deze tout op, dan volgt raeeatal door de komputer vraag Mar meer progrtUl.'lD&- en/ot Ftallenband, en wordt het progr8111118. veelal door de operateur beeInd1gd.

2. de o:pDerklng blj een deralllement In het THE-syateem: tDynamische kettiJ'l6 leeg', betekent dat de tout niet 1n een procedure gedeel te ger.ocht beheett te worden ..

(21)

o 5 1Q 15 20 25 30 50 rapport nr. \vT 0290 bl z. / (l van Te.ten!!!! ~

P!lFP".

Ret met de komputer teaten van een programmatekat, zonder dat er een toutmeldlng wagena gebrek aan Invoergegevena voIgt, 1s met behulp van de herhaalbaarheld van bet progx"l PI op eenvoti41ae v1Jze ult te voeren.

Aan de var1abele a. (s1e bet hootdatukje 'De herhaalbaarhe1d van het progr~') moet dan de W8.Ilrde 0 toegekend vord.en.

Deze 0 1. dan het enige getal van de mee te geven getallenband, en kan eventueel oak nog na het a~bool

!is

gevol&d door een

<

nlcr >

op het elnde van de

prccr ....

band geze en.

In dlt laat.te geval meet men b1j het produktledraalen nlet vergeten deze 0 veer te verwijderen.

Wet" plaatstechn lek technische hog.school eindhoven

(22)

o 5 1Q 15 20 25 30 35 rapport nr. t..'T 0290

toder1J1S

!!!

P;2n8banden. uitvoer !.~.

De

volgende koder1ngen worden ten zeerete aanbevolen:

1\) voar progr8Jlllll&-banden:

biz. 21 van

A -

<

programmanummer 8.8.> -

<

w1jzlg1ngavolgnummer > voarbeeld: A - 4112 - 17

b) v~~r Invoerbanden:

I - < programmanummer a.8.> -

<

wljzlglngavolgnummer >

- <

datum> -

<

vol.gn;lamer op die datum > voorbeeld: I - 4112 - 17 - 080670 - ,

c) v~~r ponsuitvoer:

hlerop de twee bovengenoemde koderingen vermelden, met de toe-voeging van de hoofdletter R v~~r de programmabandkoderlng. voorbeeld: R - A - 4112 - 17

I - 4"2 - 17 - 080670 - 1

d) v~~r de regeldrukker u1tvoer:

dezelfde koderlng ala voar de ponau1tvoer. (zie ad c).

In rapporten, pub11kat1es, verslagen, e.d. kan met behulp van de h1erboven aanbevolen koder1ng op eenvoudlge ondubbelzlnnige wijze verwezen worden naar de gebrutkte progrMIIUI.tuur en de dae.rmee verkre-gen reaultaten.

Deze zeken moeten dan ulteraard 1n een centraal archie! opgeslagen zlJn.

.,...rleplootst.chn 1.1e technische hogeschool eindhoven

(23)

o

10 20 25

f-30 rapport nr. v.1'f 0290 blz.22 van Voorbeeld

!!2

~

prOgramma.

Ala voorbeeld 1& gekozen het o~l08aen van een tweedegraad8verge-ll.1klng (de vlerkant8verael1.1klng).

Aan

het maken van een feitelljk programma gaat mee8tent1jda het volgende vooraf:

a) het fonauleren van het probleem

b} het afapreken van de te gebru1ken varlabelen (kedering) c) het re8'UlDeren van de te verwerken formuleB

d) het opatellen van een volgorde voor: 1) het inlezen van de gegevens

2) de te berekenen formules

3) de uit te voeren resultaten (output)

4) het voorgaande eventueel verhelderen door miMel van een zgn. stroomachema. (!lowdla.gram).

ad a: ~ Eobleemstelllng.

De vergelljk1ng van de tveede graad (v1erkantavergelijk1ng) in de algemene ged.&ante

e.x2 + bx + C .. 0 ( a

+

0; b en c reeel)

hee:tt alB oploaslng (hee!t de vortela):

V

2 ,

-b + b - 4ac

Xl

,

2 .. ~a

Is de vona onder de vortel, de dlakr1a1nant D • b2 - 4ac, negatle! I dan

komt er:

.. -b

&

1 -

~

(b - 4ac) 2 '

x1,2 a •

D

>

0 geeft twe verschlllende reele oploaalngen (vortels)

D • 0 gee!t tYee gelljke reele oplo8s1ngen

D

<

0 geeft twee toegevoegd komplexe Oplo881ngen. Stellingen van Vieta:

35 -b C

Xl + x_{2 ..}

-a

en X, _{x x2 •}

a ·

45

ad b: ~ ,ebrulkte koderlD§ (grootheden).

a .. a

avo • aantal wortels

b • b

o • c

dlskr • d1akr1mlnant (D .. b2 - 4ao) proddv - produkt der vortels (xl x x2) BaDdv - som der vortels (xl + x2) vortel • tussengroothe1d

xl~ • imag1nalre deel van de eerste komplexe vortel

xlreeel 0= eerste reele vortel (xl) reap. reele deel van eerste

komplexe vortel

x21mag .. 1maglnalre deel van de tweede komplexe vortel

x2reeel .. tweede reele vortel (x2) resp. reele deel van tweede komplexe wortel.

werkplaatltechnlek

technisch. hog.school eindhoven

(24)

o

5 1Q 1.5

I

20· 25 30 ra pport nr. \,.JT () :i ~ /() blz'?1 van

ad. c:

£!

gebru1kte formulas. d1skr • b 2 - 4ac proddw

• -

_ac sOlldw

_•

-

-b a wortel - VdiSkr'

xl1.ma.8

•

'/..-d1Skr' _2a

x1reeel ,. -b + _2awortel re8p. ...'b _~ resp. -c

_D

x2imag

..

-x11mag

x2reeel

..

-b - wortel -b

2a re8p •

ra'

Achtereenvolgend zijn hlerna opgenamen:

,) Ret eenvoudlgste progr8111D8. .. dat op de

Y-8

(d.L het op bet RC

aanwezlge rekentuig) verwerkt ( .. gedraaid) kan worden.

Dit programma kan slecht8 een vergelljklng per aanbieding op het RC

uitrekenen.

2) De vonn van het programma, zoals lk het wil hebben.. konform de globale progrsmma1ndeling.

Met d1t programma kunnen meer dan een vergelljklng blj een aanbleding opgelost worden, zij het dat de ultvoer dan en1g8z1ns onoverzichtel1jk wordt voer de achtereenvolgende Oplo88ingen.

3) Een ultgebreide versie van hetzelfde probleem.

In dit progI'8Dll18. zljn een paar variat1es zoals in d1t rapport beschreven toegepast.

De teksten van de programma's spreken overigens voor zlch zeIt.

werkplaafstechnlek technische hogeschool eindhoven

(25)

o

5

IS

20

25

rapport nr. ITI' O;H/i I bl z. 'I I, van

Eenvoud1&8te EOVUlll8.vora ~ ~ v1nden

!!!!

~ vortels

!!!:

!!!!

!!£!..

Laljol 05564921 vkv1

begin integer awoj

!!!!

a, b , c, xlreeel, x2reeel, diskr, wortel, xlimag, x2i..ma.8; a :- READ; b :- READ; c :- READ;

it a - 0 ~ beg1n avo : - '; eD1;

-awo :- 2; x'reeel :- -c / bj x2reeel :-

0;

goto nae. diakr :- b ~ 2 -

4 x a

X Cj

!!

diakr ~ 0 ~ begin wortel:- sqrt(diakr);

end

xlreeel :- ( - b + wortel) / (2 x a);

x2reeel :- ( - b - wortel) / (2 x a)

.!!!!.

begin xlreeel :- x2reeel :- - b / (2 x a)i xl1mag :- eqrt(-diskr) / (2 x a) j

x21ma.g :- - xl !magi goto bbb

end'

- '

30 - aaa: xl1ma.g:- x21ma.g :- 0;

35

-50

bbb: PRINT(awo); PRINT(xlreeel)j PRINT(xl1mag); PR lNT( x2reeel); PR lNT( x21ma.e;)

end progend

w.,kp laat.technlek technische hogeschool ell110nov.tn

(26)

.,

rapport nr. WT 0290 biz. 25 van biz.

I

0 - EenvOUdY8te prova--vorm zoals

!!

~

!!!

hebben.

~Q~ 05564921 vkv2

bij1ncOIIIUnt 05564921, touven, oplossen twedegraadsverge11jklngen

van de ged.a&nte a x (x

.f.

2) + b x x + c • 0, wdgb, 150970; 5 intepr ., 8S;

s.

:IIrREAD; 10 15 -20 25 30 35 40 ,

ter s :- , step 1 until ss do

bejin inteer avo;

-re81 a, b, c, d,iskr, wortel, xl imag, xlreeel, x21m8.g, x2reeel;

-NLCR; NLCRf:' FfUN'l'TEXT( {oplos.en tveedefaadaverPlijklnsen :l-);

PRINT'l'J!:XT( de gedaante:

a x (x'"

2 + b

x x

+ C - 0, :l-);

PIUNTTEXT( progr. a - 4921 -

2}>t

NL(l\;

a : - READ; NUll; PR INTTEX.T(

1:a -

~); FIDT(

5,

2, 8.); b :- READ; PRIN'!TEXT( ~ b - ;f.); FlDT( 5, 2, b);

C : - READ; PRIN7l'EXT( ~ c -

*);

FLOT( 5, 2, c);

c~ent a,

b,

c avo dlskr xl1mag xlreeel x21mag x2reeel • gegeven koett1cienten - aantal vortel. - d,1skrim1nant

- toegevoegd komplexe.vortel aan xlreeel - eerste reele vortel

- toegevoegd komplexe vortel san x2reeel - tweede reele vortel;

it a - 0 then begin awo :- 1;

- - x1reeel :- - c / b;

~aaa

x2reeel :- 0;

avo :- 2; ~;

d1skr :- b ~ 2 - 4

x a x

Cj

it d1skr> 0 then beg1n wortel:- sqrt(diskr)i

- - - xlreeel :- ( - b + vortel) / (2 x a)i

x2reeel :- ( - b - vortel) / (2 x 8.)

end

else beg1n xlreeel :- x2reeel :- - b / (2 x a); - xl1mag :- sqrt(-d1skr) / (2 x a);

x2tmag :- - xltmagj goto bbb

!!!!j

8.8.8.: xl1mag :- x21mag :- 0;

NL(l\; PR INTTEXT(

1:awo

-l); ABSFIXT( " 0 ( awo);

PRIN'rI'EXT(i xlreeel -

*

Jj FlDT( 5 2, PRINTTEXT( xl1mag -

l~;

FWl'(5, 2, xlimag); PR INTTEXT( x2reee 1 - ); FlDT(

5,

2, x2reeel); PRINTTEXT( x21mag -

* ;

FIDT(5, 2, x2imag);

it •

+ ••

then CARRIAGE(3) ~s;-- -end bbb: xlreeel)j

§'pnd

(27)

o

-S

ro ppott nr. hiT ():' C) ()

U1tgebrelde veraie.

La~l 05564921 vkv3

beg comment 05564921. touwen, oplo8sen tweedegraadsvergelljklngen van de gedaante a x (x ~

2)

+ b x x + c

=

0,

ultgebreide versle, wdgb, 261070;

integer 8, ss;

8a :-

READ;

for s :- 1 step 1 until as do

biiln integer awo,

g1,

1, lr, wk;

1"881

a, b, c, d, dlskr, proddw, somdw, wortel, ---- xl~, xlreeel, x21mag, x2reeel;

biz. :'1, van

lS

-NLCl!t; NLCl!tt' PRINrrrEXT( ~plo8aen tweedegraadsvergelljkingen *);

PRINTTEXT( an de gedaante: a x (x

.t.

2) + b x x + c - 0, ;.t.);

PRINTl'EXT( itgebrelde versle, progr. a - 4921 -

Jt)

j NLCR; tekst:

20

I

25 L._

wk :=

RESYM;

comment vraagteken 1s afslultteken tekst (heett symwurde 122);

!!

wk • , 22 ~ begin PRSYM( lfk); goto tekst

!!!!;

11 :- READ; comment anntal bij elkaar behorende vkv r s

::: aantal a- I b- en o-waardenj

gl :- READ; NLCl!t; NLCR; PRIN'1.'rEXT( -Fa1 =;t); FIXT( 3, 0, g1) j comment als g1

= ,

worden ook somdw en proddw berekend,

andere nletj

I

bll. i NLCR; NLCR

t

PR INTI'EXT(

1:

a b c aw~); 30 3S

I

40~

I

i

x2reeel x2~ ) ; proddw.l- ) ;

PRINTTEXT(f

xlreeel xl1mag if gl

=

1 then mINTTEXT( ~ sandw

-

-cOOl1lent a,

b,

c awo diskr proddw somd:w

x'1mag

xlreeel x21mag x2reeel = gegeven koefficlenten • aantal wertels • diskr1mlnlUlt

• produkt der wortels - som der wertels

::: toegevoegd kamplexe wortel san xlreeel - eerete reele wortel

=

toegevoegd kamplexe wartel aan x2reeel .. tweede reele wertel;

for 1 :- 1 R~

,

until 11 do

Sij'ln a :- ;

Ntt!;

FlD~( 1, a);

SPACE( 2);

b

:=

READ;

FLOT{S,

1,

b}j SPACE(2);

werkplcatstechn lek

c :. READ; FlDT(

5,

1, c) ;

!!.

a

=

0 then beg1n awe :- ';

x1reeel :- - c / b; x2reeel :- 0;

iota aaa end;

awo :- 2;

(28)

rapport nr. \\IT 0290 5 10 -a.a.a: bbb: 1.5 ['20 -25 CCC: ~ 1; bl z;Z 7 van bl z. d1skr :- b ~ 2 - 4 x a X c; d :- 2 x a;

if d1skr

>

0 then begin ¥Ortel:- sqrt(diskr)j

- - - xlreeel :- ( - b + wortel)

I

d;

x2reeel :- ( - b - wortel)

I

d

end

else begin xlreeel :- x2reeel :- - bId; - xl

i.msa :-

sqrt(-diskr) / d;

x2imag :- - xl1mag; goto bbb

end;

-x1imag :- x21mag := 0;

ABSFIXT(

3,

0, awo).; SPACE( 2}; FIJJT(

5,

2, xl reeel); if avo

= ,

then gotspCCC;

11

x11.mag -O'"'t'hen ACE{ 14)

- e18ebe~SPACE(2); FI.JJr(5, 2, xHmag) end.;

SPACE( 2); F~2, x eeel); -if x21mag - 0 then SPACE(l4)

-

!!!!

begin SPACE(!).; FLOT(5, 2, x21mag) ~; if g1 - 1

-

then begin somdw :- xlreeel + x2reeel;

- SPACE( 2); FIDT(

5,

2, sandw); proddw :- C / a;

SPACE( 2) i FIDT(

5

I 2, preddw)

end;

-30 ~ S;

.!! s

+

88 ~ begin.!! 11 > 30 ~ NEWPAGE ~ CARIUAGE( 5)

!2l

end " e n d

35

45

50

(29)

o 5 10 15 20 I 25 30 35 45

rapport nr. "hJT 0290 biz. 28 van

Bronnen.

[1] BeschriJv1ng voor de gebruiker van de systemen Algol 60 MeA en Algol 60 THE vOOr de EL

X8.

RC-Intormatie nr. 30, 34 bladz1Jden,

6

dec.1968.

[2] Revised Report on the Algorithmic I.a.nt&uage Algol 60.

J.W.Backus et al.,

Numerische Mthematik 4 (1963) 420 - 453.

[3] Aanvullende beschr1Jv1ng op RC-Informatie nr. 30 met betrekk.1ng tot het syeteem Algol 60 THE.

RC-Intormat1e nr. 32, 42 bladz1Jden, 1 ju11 1969.

werkplaatstechnlek technische hogeschool eindhoven