## Pascal

Moderators: None (Apply to moderate this forum)
Number of posts: 14016

This Forum Only

Re: Need Help With a Turbo Pascal Program for class Posted by DWDuck on 31 Oct 2012 at 4:21 AM
: The Cluck Egg Company has different prices for their eggs, based
: upon the number sold:
: 0 up to but not including 4 dozen: \$0.50 per dozen
: 4 up to but not including 6 dozen: \$0.45 per dozen
: 6 up to but not including 11 dozen: \$0.40 per dozen
: 11 or more dozen : \$0.35 per dozen
: *Extra eggs are priced at 1/12 the per dozen price each
:
: Write a program that allows the user to input the number of eggs
: wanted, and then calculates the bill. Example of Output:
:
: Enter number of eggs: 126
:
: Purchase: 10 dozen and 6 extra eggs
: Your bill comes to \$ 4.20
:
:
: This program uses if, then, and else. I know how to do this problem,
: its just I don't know how to put it into a program effectively.
:
: If anybody could help me with this, it would be much appreciated.
:
Good day firstly I think ur post would have been more appropriate in the pascal forum.

Never the less here is the code that would do it the best.

Program EggQoute
Uses Crt;

Var
N,Dozen : Integer;
PricePDozen, PricePerEgg, Price : Real;

Begin
Writeln('How many eggs do u want: ');

Dozen = N div 12;

Writeln;
Case Dozen of
0..3 : PricePerDozen := 0.5;
4..5 : PricePerDozen := 0.45;
6..11 : PricePerDozen := 0.4;
Else PricePerDozen := 0.35;

PricePerEgg := PricePerDozen /12;

Price := PricePerEgg * N;

Writeln('The total cost of your eggs will be: ',Price:2:2);
End;

Darkwing Duck aka DWduck signing off :)
PascalHelp Need Help With a Turbo Pascal Program for class on 14 Oct 2012 at 6:39 PM

## Recent Jobs

Official Programmer's Heaven Blogs
Web Hosting | Browser and Social Games | Gadgets

Popular resources on Programmersheaven.com
Assembly | Basic | C | C# | C++ | Delphi | Flash | Java | JavaScript | Pascal | Perl | PHP | Python | Ruby | Visual Basic