Ada Programming Assignment - Computer Science
Please see the attached Ada programming assignment instruction PDF and a numbers.txt file associated with the programming assignment.
Ada Programming Assignment
63 472 199 211 70 403 137 416 250 82 119 142 8 379 128 277 384 412 97 140 281 358 495 121 206 389 427 24 120 218 450 23 247 341 64 322 499 158 279 74
Sample Ada Programming/f.adb
with text_io;
use text_io;
procedure F is
--always need these two lines to print integers
package int_io is new integer_io(integer);
use int_io;
task One; -- task spec
task body One is
X: integer:=6;
begin
for I in 1..10 loop
put(X+I);
end loop;
end one;
begin
for J in 90..100 loop
put(J);
end loop;
end F;
__MACOSX/Sample Ada Programming/._f.adb
Sample Ada Programming/test_task_types.adb
with text_io;
use text_io;
procedure Test_Task_Types is
package int_io is new integer_io(integer);
use int_io;
Size: constant Integer := 10;
task type MyTaskType is
entry SetValue(Val: Integer);
entry GetValue(Val: out Integer);
end MyTaskType;
task body MyTaskType is
Value : Integer;
begin
accept SetValue(Val: Integer) do -- Val is only visible w/in entry block
Value := Val;
end SetValue;
Value := Value * 2;
accept GetValue(Val: out Integer) do
Val := Value;
end GetValue;
end MyTaskType;
MyTasks: array(1..Size) of MyTaskType;
begin -- Task_Type
for Index in 1..Size loop
MyTasks(Index).SetValue(Index);
end loop;
declare -- for declaring new variables
Val: Integer;
begin
for Index in 1..Size loop
MyTasks(Index).GetValue(Val);
Put(Item => Val, Width => 4); -- using named parameters
end loop;
New_Line;
end;
end Test_Task_Types;
__MACOSX/Sample Ada Programming/._test_task_types.adb
Sample Ada Programming/testsem.adb
with text_io;
with sem;
use text_io;
use sem;
procedure testsem is
s: semaphore;
begin
s := newsem;
P(s); -- try switching the order of P & V here and see what happens
V(s);
put(done);
new_line;
end testsem;
__MACOSX/Sample Ada Programming/._testsem.adb
Sample Ada Programming/sem.ads
package sem is
type semaphore is private;
procedure P(s: semaphore);
procedure V(s: semaphore);
function newsem return semaphore;
private
task type semtask is entry P; entry V; end semtask;
type semaphore is access semtask;
end sem;
__MACOSX/Sample Ada Programming/._sem.ads
Sample Ada Programming/adt_stack.adb
package body adt_stack is
procedure push(s:in out stack; x:integer) is
begin
if (s.index > 20) then
raise stack_overflow;
else
s.the_stack(s.index) := x;
s.index := s.index + 1;
end if;
end;
procedure pop(s: in out stack; x: out integer) is
begin
if (s.index <= 1) then
raise stack_underflow;
else
s.index := s.index - 1;
x := s.the_stack(s.index);
end if;
end;
procedure initialize(s: out stack) is
begin
s.index := 1;
end;
end adt_stack;
__MACOSX/Sample Ada Programming/._adt_stack.adb
Sample Ada Programming/hello.adb
with text_io; -- always need these two lines for reading and printing
use text_io;
procedure hello is
task Foo;
task body Foo is
begin
Put(In foo);
New_Line;
end Foo;
begin
Put(Hello World); New_Line;
end Hello;
__MACOSX/Sample Ada Programming/._hello.adb
Sample Ada Programming/stack.adb
package body stack is
subtype stack_index is integer range 1..20;
the_stack: array (stack_index) of integer;
index: integer:= 1;
procedure push(x:integer) is
begin
if (index > 20) then
raise stack_overflow;
else
the_stack(index) := x;
index := index + 1;
end if;
end;
function pop return integer is
begin
if (index <= 1) then
raise stack_underflow;
else
index := index - 1;
return the_stack(index);
end if;
end;
end stack;
__MACOSX/Sample Ada Programming/._stack.adb
Sample Ada Programming/protected_stack.ads
package Protected_Stack is
procedure push(x:integer);
function pop return integer;
stack_overflow, stack_underflow:exception;
end Protected_Stack;
__MACOSX/Sample Ada Programming/._protected_stack.ads
Sample Ada Programming/adt_main.adb
with text_io;
with adt_stack;
procedure adt_main is
use text_io;
package int_io is new integer_io(integer);
use int_io;
use adt_stack;
x,y,z:integer;
s1, s2: stack;
begin
initialize(s1);
initialize(s2);
put(Enter number of pushes > );
get(x);
put(Enter number of pops > );
get(y);
for i in 1..x loop
push(s1,i);
push(s2,100-i);
end loop;
for i in 1..y loop
pop(s1,z);
put(z); new_line;
end loop;
new_Line;
for i in 1..y loop
pop(s2,z);
put(z); new_line;
end loop;
exception
when stack_overflow =>
put(Stack has overflowed); new_line;
when stack_underflow =>
put(Stack has underflowed); new_line;
end adt_main;
__MACOSX/Sample Ada Programming/._adt_main.adb
Sample Ada Programming/new_stack.adb
-- This is the version of the stack package that uses a
-- task to support mutually exclusive access to the stack.
package body new_stack is
subtype stack_index is integer range 1..20;
the_stack: array (stack_index) of integer;
index: integer:= 1;
finished: boolean := FALSE;
task stack_call is
entry push(x:integer);
entry pop(y:out integer);
end stack_call;
task body stack_call is
begin
loop
select
accept push(x: integer) do
if (index > 20) then
raise stack_overflow;
else
the_stack(index) := x;
index := index + 1;
end if;
end push;
or
accept pop(y:out integer) do
if (index <= 1) then
raise stack_underflow;
else
index := index - 1;
y:= the_stack(index);
end if;
end pop;
or
terminate;
end select;
end loop;
end stack_call;
procedure push(x:integer) is
begin
stack_call.push(x);
end;
function pop return integer is
r:integer;
begin
stack_call.pop(r);
return r;
end;
end new_stack;
__MACOSX/Sample Ada Programming/._new_stack.adb
Sample Ada Programming/f2.adb
with text_io;
use text_io;
procedure F2 is
package int_io is new integer_io(integer);
use int_io;
task One is
entry E;
end One;
task body One is
X: integer:=6;
begin
for I in 1..10 loop
accept E do
put(X+I);
end;
end loop;
end one;
begin
for J in 90..99 loop
One.E;
put(J);
end loop;
end F2;
__MACOSX/Sample Ada Programming/._f2.adb
Sample Ada Programming/sem.adb
-- Semaphore package
package body sem is
task body semtask is
begin
loop
select
accept P;
accept V;
or
terminate;
end select;
end loop;
end semtask;
function newsem return semaphore is
begin
return new semtask;
end newsem;
procedure P(s: semaphore) is
begin
s.P;
end;
procedure V(s: semaphore) is
begin
s.V;
end;
end sem;
__MACOSX/Sample Ada Programming/._sem.adb
Sample Ada Programming/test_new_stack.adb
-- this procedure creates tasks that access the same stack. Thus, the
-- stack, as implemented by the stack package, must provide mutual
-- exclusion.
with text_io;
with new_stack;
procedure test_new_stack is
use text_io;
package int_io is new integer_io(integer);
use int_io;
use new_stack;
task one;
task two;
task three is
entry onedone;
entry twodone;
end three;
task body one is
begin
Put(One running); New_Line;
for i in 1..10 loop
push(i);
end loop;
three.onedone;
exception
when stack_overflow =>
put(Stack has overflowed); new_line;
three.onedone;
end;
task body two is
begin
Put(Two running); New_Line;
for i in 91..100 loop
push(i);
end loop;
three.twodone;
exception
when stack_overflow =>
put(Stack has overflowed); new_line;
three.twodone;
end;
task body three is
j: integer;
begin
accept onedone;
accept twodone;
for i in 1..20 loop
j:= pop;
put(j); new_line;
end loop;
exception
when stack_underflow =>
put(Stack has underflowed); new_line;
end;
begin
null;
end;
__MACOSX/Sample Ada Programming/._test_new_stack.adb
Sample Ada Programming/protected_test.adb
-- this procedure creates tasks that access the same stack. Thus, the
-- stack, as implemented by the stack package, must provide mutual
-- exclusion.
with text_io;
with Protected_Stack;
procedure protected_test is
use text_io;
package int_io is new integer_io(integer);
use int_io;
use Protected_Stack;
task one;
task two;
task three is
entry onedone;
entry twodone;
end three;
task body one is
begin
Put(One running); New_Line;
for i in 1..10 loop
push(i);
end loop;
three.onedone;
exception
when stack_overflow =>
put(Stack has overflowed); new_line;
three.onedone;
end;
task body two is
begin
Put(Two running); New_Line;
for i in 91..100 loop
push(i);
end loop;
three.twodone;
exception
when stack_overflow =>
put(Stack has overflowed); new_line;
three.twodone;
end;
task body three is
j: integer;
begin
accept onedone;
accept twodone;
for i in 1..20 loop
j:= pop;
put(j); new_line;
end loop;
exception
when stack_underflow =>
put(Stack has underflowed); new_line;
end;
begin
null;
end;
__MACOSX/Sample Ada Programming/._protected_test.adb
Sample Ada Programming/main.adb
with text_io;
with stack;
procedure main is
use text_io;
package int_io is new integer_io(integer);
use int_io;
use stack;
x,y,z:integer;
begin
put(Enter number of pushes > );
get(x);
put(Enter number of pops > );
get(y);
for i in 1..x loop
push(i);
end loop;
for i in 1..y loop
z := pop;
put(z);
end loop;
exception
when stack_overflow =>
put(Stack has overflowed); new_line;
when stack_underflow =>
put(Stack has underflowed); new_line;
end main;
__MACOSX/Sample Ada Programming/._main.adb
Sample Ada Programming/adt_stack.ads
package adt_stack is
type stack is private;
procedure initialize(s: out stack);
procedure push(s: in out stack; x:integer);
procedure pop(s: in out stack; x: out integer);
stack_overflow, stack_underflow:exception;
private
type int_array is array(1..20) of integer;
type stack is record
the_stack: int_array;
index: integer;
end record;
end adt_stack;
__MACOSX/Sample Ada Programming/._adt_stack.ads
Sample Ada Programming/stack.ads
package stack is
procedure push(x:integer);
function pop return integer;
stack_overflow, stack_underflow:exception;
end stack;
__MACOSX/Sample Ada Programming/._stack.ads
Sample Ada Programming/protected_stack.adb
package body Protected_Stack is
subtype stack_index is integer range 1..20;
the_stack: array (stack_index) of integer;
index: integer:= 1;
protected P_Stack is
procedure Protected_Push(X:Integer);
function Protected_Pop return Integer;
end P_Stack;
protected body P_Stack is
procedure Protected_Push(x:integer) is
begin
if (index > 20) then
raise stack_overflow;
else
the_stack(index) := x;
index := index + 1;
end if;
end;
function Protected_Pop return integer is
begin
if (index <= 1) then
raise stack_underflow;
else
index := index - 1;
return the_stack(index);
end if;
end;
end P_Stack;
procedure push(x:integer) is
begin
P_Stack.Protected_Push(X);
end Push;
function pop return Integer is
begin
return P_Stack.Protected_Pop;
end;
end Protected_Stack;
__MACOSX/Sample Ada Programming/._protected_stack.adb
Sample Ada Programming/new_stack.ads
package new_stack is
procedure push(x:integer);
function pop return integer;
stack_overflow, stack_underflow:exception;
end new_stack;
__MACOSX/Sample Ada Programming/._new_stack.ads
CATEGORIES
Economics
Nursing
Applied Sciences
Psychology
Science
Management
Computer Science
Human Resource Management
Accounting
Information Systems
English
Anatomy
Operations Management
Sociology
Literature
Education
Business & Finance
Marketing
Engineering
Statistics
Biology
Political Science
Reading
History
Financial markets
Philosophy
Mathematics
Law
Criminal
Architecture and Design
Government
Social Science
World history
Chemistry
Humanities
Business Finance
Writing
Programming
Telecommunications Engineering
Geography
Physics
Spanish
ach
e. Embedded Entrepreneurship
f. Three Social Entrepreneurship Models
g. Social-Founder Identity
h. Micros-enterprise Development
Outcomes
Subset 2. Indigenous Entrepreneurship Approaches (Outside of Canada)
a. Indigenous Australian Entrepreneurs Exami
Calculus
(people influence of
others) processes that you perceived occurs in this specific Institution Select one of the forms of stratification highlighted (focus on inter the intersectionalities
of these three) to reflect and analyze the potential ways these (
American history
Pharmacology
Ancient history
. Also
Numerical analysis
Environmental science
Electrical Engineering
Precalculus
Physiology
Civil Engineering
Electronic Engineering
ness Horizons
Algebra
Geology
Physical chemistry
nt
When considering both O
lassrooms
Civil
Probability
ions
Identify a specific consumer product that you or your family have used for quite some time. This might be a branded smartphone (if you have used several versions over the years)
or the court to consider in its deliberations. Locard’s exchange principle argues that during the commission of a crime
Chemical Engineering
Ecology
aragraphs (meaning 25 sentences or more). Your assignment may be more than 5 paragraphs but not less.
INSTRUCTIONS:
To access the FNU Online Library for journals and articles you can go the FNU library link here:
https://www.fnu.edu/library/
In order to
n that draws upon the theoretical reading to explain and contextualize the design choices. Be sure to directly quote or paraphrase the reading
ce to the vaccine. Your campaign must educate and inform the audience on the benefits but also create for safe and open dialogue. A key metric of your campaign will be the direct increase in numbers.
Key outcomes: The approach that you take must be clear
Mechanical Engineering
Organic chemistry
Geometry
nment
Topic
You will need to pick one topic for your project (5 pts)
Literature search
You will need to perform a literature search for your topic
Geophysics
you been involved with a company doing a redesign of business processes
Communication on Customer Relations. Discuss how two-way communication on social media channels impacts businesses both positively and negatively. Provide any personal examples from your experience
od pressure and hypertension via a community-wide intervention that targets the problem across the lifespan (i.e. includes all ages).
Develop a community-wide intervention to reduce elevated blood pressure and hypertension in the State of Alabama that in
in body of the report
Conclusions
References (8 References Minimum)
*** Words count = 2000 words.
*** In-Text Citations and References using Harvard style.
*** In Task section I’ve chose (Economic issues in overseas contracting)"
Electromagnetism
w or quality improvement; it was just all part of good nursing care. The goal for quality improvement is to monitor patient outcomes using statistics for comparison to standards of care for different diseases
e a 1 to 2 slide Microsoft PowerPoint presentation on the different models of case management. Include speaker notes... .....Describe three different models of case management.
visual representations of information. They can include numbers
SSAY
ame workbook for all 3 milestones. You do not need to download a new copy for Milestones 2 or 3. When you submit Milestone 3
pages):
Provide a description of an existing intervention in Canada
making the appropriate buying decisions in an ethical and professional manner.
Topic: Purchasing and Technology
You read about blockchain ledger technology. Now do some additional research out on the Internet and share your URL with the rest of the class
be aware of which features their competitors are opting to include so the product development teams can design similar or enhanced features to attract more of the market. The more unique
low (The Top Health Industry Trends to Watch in 2015) to assist you with this discussion.
https://youtu.be/fRym_jyuBc0
Next year the $2.8 trillion U.S. healthcare industry will finally begin to look and feel more like the rest of the business wo
evidence-based primary care curriculum. Throughout your nurse practitioner program
Vignette
Understanding Gender Fluidity
Providing Inclusive Quality Care
Affirming Clinical Encounters
Conclusion
References
Nurse Practitioner Knowledge
Mechanics
and word limit is unit as a guide only.
The assessment may be re-attempted on two further occasions (maximum three attempts in total). All assessments must be resubmitted 3 days within receiving your unsatisfactory grade. You must clearly indicate “Re-su
Trigonometry
Article writing
Other
5. June 29
After the components sending to the manufacturing house
1. In 1972 the Furman v. Georgia case resulted in a decision that would put action into motion. Furman was originally sentenced to death because of a murder he committed in Georgia but the court debated whether or not this was a violation of his 8th amend
One of the first conflicts that would need to be investigated would be whether the human service professional followed the responsibility to client ethical standard. While developing a relationship with client it is important to clarify that if danger or
Ethical behavior is a critical topic in the workplace because the impact of it can make or break a business
No matter which type of health care organization
With a direct sale
During the pandemic
Computers are being used to monitor the spread of outbreaks in different areas of the world and with this record
3. Furman v. Georgia is a U.S Supreme Court case that resolves around the Eighth Amendments ban on cruel and unsual punishment in death penalty cases. The Furman v. Georgia case was based on Furman being convicted of murder in Georgia. Furman was caught i
One major ethical conflict that may arise in my investigation is the Responsibility to Client in both Standard 3 and Standard 4 of the Ethical Standards for Human Service Professionals (2015). Making sure we do not disclose information without consent ev
4. Identify two examples of real world problems that you have observed in your personal
Summary & Evaluation: Reference & 188. Academic Search Ultimate
Ethics
We can mention at least one example of how the violation of ethical standards can be prevented. Many organizations promote ethical self-regulation by creating moral codes to help direct their business activities
*DDB is used for the first three years
For example
The inbound logistics for William Instrument refer to purchase components from various electronic firms. During the purchase process William need to consider the quality and price of the components. In this case
4. A U.S. Supreme Court case known as Furman v. Georgia (1972) is a landmark case that involved Eighth Amendment’s ban of unusual and cruel punishment in death penalty cases (Furman v. Georgia (1972)
With covid coming into place
In my opinion
with
Not necessarily all home buyers are the same! When you choose to work with we buy ugly houses Baltimore & nationwide USA
The ability to view ourselves from an unbiased perspective allows us to critically assess our personal strengths and weaknesses. This is an important step in the process of finding the right resources for our personal learning style. Ego and pride can be
· By Day 1 of this week
While you must form your answers to the questions below from our assigned reading material
CliftonLarsonAllen LLP (2013)
5 The family dynamic is awkward at first since the most outgoing and straight forward person in the family in Linda
Urien
The most important benefit of my statistical analysis would be the accuracy with which I interpret the data. The greatest obstacle
From a similar but larger point of view
4 In order to get the entire family to come back for another session I would suggest coming in on a day the restaurant is not open
When seeking to identify a patient’s health condition
After viewing the you tube videos on prayer
Your paper must be at least two pages in length (not counting the title and reference pages)
The word assimilate is negative to me. I believe everyone should learn about a country that they are going to live in. It doesnt mean that they have to believe that everything in America is better than where they came from. It means that they care enough
Data collection
Single Subject Chris is a social worker in a geriatric case management program located in a midsize Northeastern town. She has an MSW and is part of a team of case managers that likes to continuously improve on its practice. The team is currently using an
I would start off with Linda on repeating her options for the child and going over what she is feeling with each option. I would want to find out what she is afraid of. I would avoid asking her any “why” questions because I want her to be in the here an
Summarize the advantages and disadvantages of using an Internet site as means of collecting data for psychological research (Comp 2.1) 25.0\% Summarization of the advantages and disadvantages of using an Internet site as means of collecting data for psych
Identify the type of research used in a chosen study
Compose a 1
Optics
effect relationship becomes more difficult—as the researcher cannot enact total control of another person even in an experimental environment. Social workers serve clients in highly complex real-world environments. Clients often implement recommended inte
I think knowing more about you will allow you to be able to choose the right resources
Be 4 pages in length
soft MB-920 dumps review and documentation and high-quality listing pdf MB-920 braindumps also recommended and approved by Microsoft experts. The practical test
g
One thing you will need to do in college is learn how to find and use references. References support your ideas. College-level work must be supported by research. You are expected to do that for this paper. You will research
Elaborate on any potential confounds or ethical concerns while participating in the psychological study 20.0\% Elaboration on any potential confounds or ethical concerns while participating in the psychological study is missing. Elaboration on any potenti
3 The first thing I would do in the family’s first session is develop a genogram of the family to get an idea of all the individuals who play a major role in Linda’s life. After establishing where each member is in relation to the family
A Health in All Policies approach
Note: The requirements outlined below correspond to the grading criteria in the scoring guide. At a minimum
Chen
Read Connecting Communities and Complexity: A Case Study in Creating the Conditions for Transformational Change
Read Reflections on Cultural Humility
Read A Basic Guide to ABCD Community Organizing
Use the bolded black section and sub-section titles below to organize your paper. For each section
Losinski forwarded the article on a priority basis to Mary Scott
Losinksi wanted details on use of the ED at CGH. He asked the administrative resident