From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,4f4331623dbc3161,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-17 05:50:08 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!fu-berlin.de!newsfeed.iinet.net.au!news.iinet.net.au!not-for-mail
From: "Karl-Johan Karlsson" <kjk@tt.com>
Sender: "Karl-Johan Karlsson" <kjk@tt.com>
Reply-To: "Karl-Johan Karlsson" <kjk@tt.com>
Subject: if statement
Newsgroups: comp.lang.ada
X-User-Info: 203.59.163.234     
Date: 17 Mar 2002 13:46:41 GMT
Message-ID: <3c949e41$0$7409@motown.iinet.net.au>
NNTP-Posting-Host: 203.59.24.218
X-Trace: news.iinet.net.au 1016372801 7409 203.59.24.218
Xref: archiver1.google.com comp.lang.ada:21364
Date: 2002-03-17T13:46:41+00:00
List-Id: <comp.lang.ada>


Hello to group.

I am currently writing a little program that determines how much a
customer's total cost will be for buying either Item1, Item2, Item3
multiplied by the amount purchased (customer cannot purcase a combination
of items, just one at any amount).  If the customer buys more than one
of Item3 the postage price is FREE.  This is where I have confronted trouble
as when Item3 at two or more units purchased is inputted into the
program, the output displays two costs (cost with delivery, cost
without delivery) where I desire only the cost without delivery
to be displayed.  I know this is because the code below needs to
be altered, but I am not sure how to go about doing it so I
require help.

(There are if, elsif entries for Item1, Item2 prior to this code)

      ...
      elsif Choice = Item3 then
      Sum := Item_Amount * Item_Type + Postage_Charge;
      Put("$");
      Put(Sum, 1, 2, 0);

      if Item_Amount > 1 then
      Sum := Item_Amount * Item_Type
      Put("$");
      Put(Sum, 1, 2, 0);
      ...

Also, I am using Ada98, not Ada83 under Win98.