comp.lang.ada
 help / color / mirror / Atom feed
* Help in translating
@ 1997-03-12  0:00 Beamish
  1997-03-15  0:00 ` Robert Dewar
  0 siblings, 1 reply; 3+ messages in thread
From: Beamish @ 1997-03-12  0:00 UTC (permalink / raw)



I need some help in doing this assignment. If anyone can answer this and
e-mail me back I'd really appreciate it. Thanks in advance.

Rewrite the following Modula-2 code in Ada:
MODULE Swap;
     IMPORT XIO;
     VAR this, that : INTEGER;
     PROCEDURE Exchange(VAR First, Second : INTEGER);
       VAR Temp : INTEGER;
       BEGIN
         Temp := First;
         First := Second;
         Second := Temp;
       END Exchange;
  BEGIN
     XIO.IntIn(this);
     XIO.IntOut(that);
     Exhange(this, that);
     XIO.IntOut(this, 1);
     XIO.IntOut(that, 1);
  END Swap.




^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~1997-03-23  0:00 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-03-12  0:00 Help in translating Beamish
1997-03-15  0:00 ` Robert Dewar
1997-03-23  0:00   ` the one and only real true kibo

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox