Docsity
Docsity
Prepare for your exams
Prepare for your exams

Study with the several resources on Docsity

Earn points to download
Earn points to download

Earn points by helping other students or get them with a premium plan

Guidelines and tips
Guidelines and tips
Sell on Docsity
Sell on Docsity
Docsity AI
Docsity AI
Log inSign up

Prepare for your exams

Study with the several resources on Docsity

Find documents

Prepare for your exams with the study notes shared by other students like you on Docsity

Search for your university

Find the specific documents for your university's exams

Docsity AINEW

Summarize your documents, ask them questions, convert them into quizzes and concept maps

Explore questions

Clear up your doubts by reading the answers to questions asked by your fellow students

Earn points to download

Earn points by helping other students or get them with a premium plan

Share documents
download point icon20 Points

For each uploaded document

Answer questions
download point icon5 Points

For each given answer (max 1 per day)

All the ways to get free points
Get points immediately

Choose a premium plan with all the points you need

Study Opportunities

Choose your next study program

Get in touch with the best universities in the world. Search through thousands of universities and official partners

Community

Ask the community

Ask the community for help and clear up your study doubts

Free resources

Our save-the-student-ebooks!

Download our free guides on studying techniques, anxiety management strategies, and thesis advice from Docsity tutors

Package Specification Listing-Computer Programming-Assignment Solution, Exercises of Aeronautical Engineering

Biju Patnaik University of TechnologyAeronautical Engineering

This is solution to assignment for Aeronautical Engineering and Computer Programming course. It was submitted to Prof. Chitraksh Gavde at Biju Patnaik University of Technology, Rourkela. It includes: Package, Specification, If, Then, Else, Listing, Package, Procedure, Function, Return

Typology: Exercises

2011/2012

Uploaded on 07/20/2012

savitri_122
savitri_122 🇮🇳

4.6

(14)

184 documents

1 / 6

Toggle sidebar

This page cannot be seen from the preview

Don't miss anything!

bg1
C-10 1.
For X = 3
Case 1.
IF x >= 0 THEN
x:= x+1;
ELSIF x >=1 THEN
x := x + 2;
END IF;
In the case above, only the x:= x+1 statement is executed and the result is 4;
Case 2.
IF x >= 0 THEN
x := x + 1;
END IF;
IF x >= 1 THEN
x := x + 2;
END IF;
In this case, both the x:=x+1 and x:= x+2 statements will be executed and the result is 6.
docsity.com
pf3
pf4
pf5

Partial preview of the text

Download Package Specification Listing-Computer Programming-Assignment Solution and more Exercises Aeronautical Engineering in PDF only on Docsity!

C-10 1.

For X = 3

Case 1.

IF x >= 0 THEN x:= x+1; ELSIF x >=1 THEN x := x + 2; END IF ;

In the case above, only the x:= x+1 statement is executed and the result is 4;

Case 2.

IF x >= 0 THEN x := x + 1; END IF ; IF x >= 1 THEN x := x + 2; END IF ;

In this case, both the x:=x+1 and x:= x+2 statements will be executed and the result is 6.

C-10 2.

Package Specification Listing

Checking: c:/docume~2/jk/desktop/16070/codeso~1/my_math_package.ads (source file time stamp: 2003- 09-24 03:27:46)

  2. -- Package specified to implement two arithmetic functions
  3. -- Specifier : Jayakanth Srinivasan
  4. -- Date Last Modified : 09/23/
  8. package My_Math_Package is
  9. subtype Menu_Choice is Integer range 1 .. 3;
  11. procedure Menu (
  12. My_Menu_Choice : out Menu_Choice );
  14. function Add (
  15. X : Float;
  16. Y : Float )
  17. return Float;
  19. function Multiply (
  20. X : Integer;
  21. Y : Integer )
  22. return Integer;
  23. end My_Math_Package;

23 lines: No errors

Package Code Listing

Compiling: c:/docume~2/jk/desktop/16070/codeso~1/my_math_package.adb (source file time stamp: 2003- 09-24 03:27:46)

. ----------------------------------------------------------- . -- Package implementation of My_Math package . -- Implementer : Jayakanth Srinivasan . -- Date Last Modified : 09/23/ . ----------------------------------------------------------- . with Ada.Integer_Text_Io; . with Ada.Text_Io; . with Ada.Float_Text_Io; |

C-10 3.

Algorithm

1. Display the menu to the user

2. Get the menu choice from the user

3. If Choice is 1 then

a. Prompt the user for two floating point numbers

b. Clear the screen

c. Compute the sum using the math package

d. Display the answer in the required format.

4. If Choice is 2 then

a. Prompt the user for two integer numbers

b. Clear the screen

c. Compute the product using the math package

d. Display the answer in the required format.

5. If Choice is 3 then

a. Exit the program

Code Listing

Compiling: c:/docume~2/jk/desktop/16070/codeso~1/test_math.adb (source file time stamp: 2003-09- 03:47:18)

  2. -- Program to implement a menu driven program using the
  3. -- the math package
  4. -- Programmer : Jayakanth Srinivasan
  5. -- Date Last Modified : 09/23/
  7. with My_Math_Package;
  8. with Ada.Text_Io;
  9. with Ada.Float_Text_Io;
  10. with Ada.Integer_Text_Io;
  11. with Screen;
  13. procedure Test_Math is
  14. Choice : My_Math_Package.Menu_Choice;
  15. X,
  16. Y : Integer;
  18. Number_X,
  19. Number_Y : Float;
  21. begin
  22. loop
  23. -- obtain the choice from the user
  24. My_Math_Package.Menu(Choice);
  25. -- exit if the user chooses 3
  1. exit when Choice = 3;
  3. case Choice is
  4. when 1 =>
  5. -- obtain two floating point numbers
  6. Ada.Text_Io.Put ("Please Enter the Value of X : ");
  7. Ada.Float_Text_Io.Get(Number_X);
  8. Ada.Text_Io.Skip_Line;
  10. Ada.Text_Io.Put("Please Enter the Value of Y : ");
  11. Ada.Float_Text_Io.Get(Number_Y);
  12. Ada.Text_Io.Skip_Line;
  14. -- clear the screen
  15. Screen.Clearscreen;
  17. -- display the results
  18. Ada.Text_Io.Put("Adding");
  19. Ada.Float_Text_Io.Put(Number_X);
  20. Ada.Text_Io.Put("and");
  21. Ada.Float_Text_Io.Put(Number_Y);
  22. Ada.Text_Io.Put(":");
  24. Ada.Text_Io.New_Line;
  26. Ada.Float_Text_Io.Put(Number_X);
  27. Ada.Text_Io.Put("+");
  28. Ada.Float_Text_Io.Put(Number_Y);
  29. Ada.Text_Io.Put("=");
  30. Ada.Float_Text_Io.Put(My_Math_Package.Add(Number_X, Number_Y));
  31. Ada.Text_Io.New_Line;
  33. when 2=>
  34. -- obtain two integers
  35. Ada.Text_Io.Put ("Please Enter the Value of X : ");
  36. Ada.Integer_Text_Io.Get(X);
  37. Ada.Text_Io.Skip_Line;
  39. Ada.Text_Io.Put("Please Enter the Value of Y : ");
  40. Ada.Integer_Text_Io.Get(Y);
  41. Ada.Text_Io.Skip_Line;
  42. -- clear the screen
  43. Screen.Clearscreen;
  45. -- display the product
  46. Ada.Text_Io.Put("Multiplying");
  47. Ada.Integer_Text_Io.Put(X);
  48. Ada.Text_Io.Put("and");
  49. Ada.Integer_Text_Io.Put(Y);
  50. Ada.Text_Io.Put(":");
  52. Ada.Text_Io.New_Line;
  54. Ada.Integer_Text_Io.Put(X);
  55. Ada.Text_Io.Put("*");
  56. Ada.Integer_Text_Io.Put(Y);
  57. Ada.Text_Io.Put("=");
  58. Ada.Integer_Text_Io.Put(My_Math_Package.Multiply(X, Y));