1.9 Voorbeeld: telegram

In een land in Zuid-Amerika is de munteenheid de peso. Voor het verzenden van een telegram hanteert de PTT in dat land de volgende tarieven: tot en met 30 woorden kost een telegram 15 peso's per woord; boven de 30 woorden is de prijs 10 peso's per woord; voor een gelukstelegram, dat in een aantrekkelijke vorm wordt aangeboden, komen er bij de normaal berekende prijs 200 peso's bij; voor de uiteindelijke prijs geldt een minimum van 400 peso's.

illustratie: Geert Nijmolen

De oplossing voor het berekenen van de prijs van een reeks telegrammen is gegeven in de vorm van een programmastructuurdiagram (zie figuur 1.4). Dit PSD is in COBOL te schrijven met behulp van de opdrachten die in dit eerste hoofdstuk zijn behandeld.

Figuur 1.4 PSD Telegram

perform  with test after  until antwoord not = "J"
   display "Hoeveel woorden in het telegram?"
   accept aantal
   display "Toets G als het een gelukstelegram betreft,"
   display "een ander teken als het geen gelukstelegram is."
   accept geluk
   if aantal > 30 then
     compute prijs = 30 * 15 + (aantal - 30) * 10
   else
     compute prijs = aantal * 15
   end-if
   if geluk = "G" then
     compute prijs = prijs + 200
   end-if
   if prijs < 400 then
     compute prijs = 400
   end-if
   display "Dit telegram kost " prijs " peso's"
   display "Toets J als er nog een berekening moet volgen;"
   display "elke andere toets om te stoppen."
   accept antwoord
end-perform