Opgave 10.1 Wortel

a inleiding
COBOL is bedoeld voor administratieve toepassingen. De taal bevat geen standaardfunctie om de vierkantswortel van een getal te bepalen. Dat wil niet zeggen dat zoiets in COBOL onmogelijk is. Er zijn verschillende wiskundige, iteratieve, methoden waarmee de vierkantswortel berekend kan worden.

b berekening
Uitgaande van een beginschatting wordt er net zo lang een steeds betere schatting gemaakt, totdat een gewenste nauwkeurigheid is bereikt. Het blijkt mogelijk in een beperkt aantal keren tot een uitkomst te komen die tot op twee cijfers na de komma nauwkeurig is.

Een nieuwe schatting wordt berekend met de volgende formule:

c invoer
De invoer is een getal van 6 cijfers. Het programma moet net zolang invoer vragen totdat het getal numeriek is. Op het beeldscherm moet de volgende tekst komen:

d uitvoer
Tijdens de berekening komt het resultaat van elke nieuwe poging op het scherm. Als het ingevoerde getal gelijk is aan 019999, dan zien de detailregels er als volgt uit:

Het resultaat van de berekening moet als volgt op het scherm komen:

Het programma gaat door totdat het ingetoetste antwoord op de laatste vraag niet meer j (of J) is.

Voordat het programma stopt, moet er een totaaltelling op het scherm komen die aangeeft hoeveel wortels er zijn berekend. Deze uitvoer dient er als volgt uit te zien (stel dat er drie berekeningen zijn gemaakt):

e programmastructuurdiagrammen

De werking van het programma is neergelegd in schema's.