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

Algorithm For Displaying Date Month Year-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: Display, Algorithm, Subtype, Code, Month, Date, Roman, Enumeration, Ada, Boolean, Character

Typology: Exercises

2011/2012

Uploaded on 07/20/2012

savitri_122
savitri_122 🇮🇳

4.6

(14)

184 documents

1 / 3

Toggle sidebar

This page cannot be seen from the preview

Don't miss anything!

bg1
C8-1
Algorithm
1. Use a subtype to represent the numbers for months
2. Use an enumeration to represent the named months
3. Use an enumeration to represent the roman months
4. Get the inputs from the user
5. Convert the month into roman and named formats using
a. New_Type_Package’Val(Month_Type’Pos(Month) –1);
6. Display the months in all three formats to the user.
Note: The enumerations range from 0 to (number_of_elements_in_Enumeration –1).
Code Listing
Compiling: c:/docume~2/jk/desktop/16070/codeso~1/translate_dates.adb (source file time stamp: 2003-09-
24 01:35:00)
1. --------------------------------------------------------------------
2. -- Program to accept different date formats
3. -- Programmer : Jayakanth Srinivasan
4. -- Date Last Modified : 09-23-2003
5. --------------------------------------------------------------------
6.
7. with Ada.Text_Io;
8. with Ada.Integer_Text_Io;
9.
10. procedure Translate_Dates is
11. --use a subtype to limit the date to be between 1 and 31.
12. subtype Date_Type is Integer range 1..31;
13. -- use a subtype to limit the month to be between 1 and 12
14. subtype Month_Type is Integer range 1..12;
15.
16. -- define an enumeration type for roman months
17. type Roman_Month_Type is
18. (I,
19. Ii,
20. Iii,
21. Iv,
22. V,
23. Vi,
24. Vii,
25. Viii,
26. Ix,
27. X,
28. Xi,
29. Xii);
30.
31. -- define an enumeration type for names of months
32. type Named_Month_Type is
docsity.com
pf3

Partial preview of the text

Download Algorithm For Displaying Date Month Year-Computer Programming-Assignment Solution and more Exercises Aeronautical Engineering in PDF only on Docsity!

C8-

Algorithm

1. Use a subtype to represent the numbers for months

2. Use an enumeration to represent the named months

3. Use an enumeration to represent the roman months

4. Get the inputs from the user

5. Convert the month into roman and named formats using

a. New_Type_Package’Val(Month_Type’Pos(Month) –1);

6. Display the months in all three formats to the user.

Note: The enumerations range from 0 to (number_of_elements_in_Enumeration –1).

Code Listing

Compiling: c:/docume~2/jk/desktop/16070/codeso~1/translate_dates.adb (source file time stamp: 2003-09- 24 01:35:00)

  2. -- Program to accept different date formats
  3. -- Programmer : Jayakanth Srinivasan
  4. -- Date Last Modified : 09-23-
  7. with Ada.Text_Io;
  8. with Ada.Integer_Text_Io;
  10. procedure Translate_Dates is
  11. --use a subtype to limit the date to be between 1 and 31.
  12. subtype Date_Type is Integer range 1..31;
  13. -- use a subtype to limit the month to be between 1 and 12
  14. subtype Month_Type is Integer range 1..12;
  16. -- define an enumeration type for roman months
  17. type Roman_Month_Type is
  18. (I,
  19. Ii,
  20. Iii,
  21. Iv,
  22. V,
  23. Vi,
  24. Vii,
  25. Viii,
  26. Ix,
  27. X,
  28. Xi,
  29. Xii);
  31. -- define an enumeration type for names of months
  32. type Named_Month_Type is
  1. (January,
  2. February,
  3. March,
  4. April,
  5. May,
  6. June,
  7. July,
  8. August,
  9. September,
  10. October,
  11. November,
  12. December);
  14. -- create a package that can print the month in roman numerals
  15. package Roman_Month_Io is new Ada.Text_Io.Enumeration_Io(Enum => Roman_Month_Type);
  17. -- create a package that can print the month's name
  18. package Named_Month_Io is new Ada.Text_Io.Enumeration_Io(Enum => Named_Month_Type);
  20. Year : Integer;
  21. Date : Date_Type;
  22. Month : Month_Type;
  23. Roman_Month : Roman_Month_Type;
  24. Named_Month : Named_Month_Type;
  26. begin
  27. Ada.Text_Io.Put("Please Enter the Date 1..31 : ");
  28. Ada.Integer_Text_Io.Get(Date);
  29. Ada.Text_Io.New_Line;
  31. Ada.Text_Io.Put("PLease Enter the Month 1 ..12 : ");
  32. Ada.Integer_Text_Io.Get(Month);
  33. Ada.Text_Io.New_Line;
  35. Ada.Text_Io.Put("PLease Enter the Year: ");
  36. Ada.Integer_Text_Io.Get(Year);
  37. Ada.Text_Io.New_Line;
  39. -- convert the month into roman month
  40. Roman_Month := Roman_Month_Type'Val(Month_Type'Pos(Month)-1);
  42. -- convert the month into the name
  43. Named_Month := Named_Month_Type'Val(Month_Type'Pos(Month)-1);
  45. -- display the dates in regular format
  46. Ada.Text_Io.Put(" i. ");
  47. Ada.Integer_Text_Io.Put(Date);
  48. Ada.Text_Io.Put(" / ");
  49. Ada.Integer_Text_Io.Put(Month);
  50. Ada.Text_Io.Put(" / ");
  51. Ada.Integer_Text_Io.Put(Year);
  52. Ada.Text_Io.New_Line;
  54. -- display the date in named format
  55. Ada.Text_Io.Put(" ii. ");
  56. Ada.Integer_Text_Io.Put(Date);
  57. Ada.Text_Io.Put(" ");
  58. Named_Month_Io.Put(Named_Month);