Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

about my source code?

Posted on 1998-10-28
11
Medium Priority
?
245 Views
Last Modified: 2010-04-16
Can you make this source code into 5 procedures and 1 function into an arrangement order?
this source code is to arrange an input into an ascending order or descending order.

uses crt;
var n1,n2,n3,n4,n5 : real;
    ans:string;
    opt:char;

procedure ascending(var a1,a2,a3,a4,a5 :real); forward;
procedure descending(var d1,d2,d3,d4,d5 : real); forward;

Procedure Choice;
begin
  write(opt);
  writeln;
  case opt of
    '1' : begin
            ascending(n1,n2,n3,n4,n5);
            writeln(n1:8:2,n2:8:2,n3:8:2,n4:8:2,n5:8:2);
          end;
    '2' : begin
            descending(n1,n2,n3,n4,n5);
            writeln(n1:8:2,n2:8:2,n3:8:2,n4:8:2,n5:8:2);
          end;
  end;
end;


function UserAnswer:boolean;
begin
  readln(ans);
  if (pos('N',ans)=0) and (pos('n',ans)=0) then UserAnswer:=true
  else UserAnswer:=false;
end;

procedure order(asc:boolean; var x,y:real);
var temp: real;
begin
  if asc then begin
    if x>y then begin
      temp:=x;
      x:=y;
      y:=temp;
    end
  end
  else if not asc then begin
    if x<y then begin
      temp:=y;
      y:=x;
      x:=temp;
    end;
  end;
end;

procedure input(var n1,n2,n3,n4,n5:real);
begin
  write('Enter 1st number : ');readln(n1);
  write('Enter 2nd number : ');readln(n2);
  write('Enter 3rd number : ');readln(n3);
  write('Enter 4th number : ');readln(n4);
  write('Enter 5th number : ');readln(n5);
end;

procedure ascending(var a1,a2,a3,a4,a5 :real);
begin
  order(true,n1,n2);
  order(true,n1,n3);
  order(true,n1,n4);
  order(true,n1,n5);
  order(true,n2,n3);
  order(true,n2,n4);
  order(true,n2,n5);
  order(true,n3,n4);
  order(true,n3,n5);
  order(true,n4,n5);
end;

Procedure descending(var d1,d2,d3,d4,d5:real);
begin
  order(false,n1,n2);
  order(false,n1,n3);
  order(false,n1,n4);
  order(false,n1,n5);
  order(false,n2,n3);
  order(false,n2,n4);
  order(false,n2,n5);
  order(false,n3,n4);
  order(false,n3,n5);
  order(false,n4,n5);
end;

Function GetUserChoice:char;
begin
    writeln('Press `1` for ascending order or `2` for decending order');
    write('What order would you like the numbers to appear ? ');
    GetUserChoice:=readkey;
end;

begin
  repeat
    clrscr;
    input(n1,n2,n3,n4,n5);
    repeat
      opt:=GetUserChoice;
      choice;
    until (opt in ['1','2']);
    write('Would you like to view the Descending order ? ');
    if UserAnswer then begin
      descending(n1,n2,n3,n4,n5);
      writeln(n1:8:2,n2:8:2,n3:8:2,n4:8:2,n5:8:2);
    end;
    writeln;
    write('Continue ? ');
  until not UserAnswer;
End.

0
Comment
Question by:lewis_loo
  • 2
  • 2
  • 2
  • +5
11 Comments
 
LVL 7

Expert Comment

by:Inteqam
ID: 1215873
I understood the code , but i didn't understand what you want , can you explain more?

0
 
LVL 1

Expert Comment

by:saam
ID: 1215874
i don't understand your question..
but i can give you a tip about your function UserAnswer

UserAnswer := (pos('N',ans)=0) and (pos('n',ans)=0)

/saam
0
 
LVL 3

Expert Comment

by:elfie
ID: 1215875
home work assignment?
0
[Webinar] Cloud Security

In this webinar you will learn:

-Why existing firewall and DMZ architectures are not suited for securing cloud applications
-How to make your enterprise “Cloud Ready”, and fix your aging DMZ architecture
-How to transform your enterprise and become a Cloud Enabler

 
LVL 4

Expert Comment

by:davidmwilliams
ID: 1215876
 This is clearly a homework question -- and you're asking us to do too much to bother, for 5 points.
  Here's a hint ... use an array to avoid so much repetition
0
 

Expert Comment

by:flobecker
ID: 1215877
You're right!
Only teachers can imagine such *%&$# questions. REAL coders use arrays!

0
 

Expert Comment

by:flobecker
ID: 1215878
You're right!
Only teachers can imagine such *%&$# questions. REAL coders use arrays!

0
 
LVL 7

Expert Comment

by:Inteqam
ID: 1215879
lewis_loo :
 are you there?

0
 
LVL 1

Author Comment

by:lewis_loo
ID: 1215880
yeah, Of course it's an assignment but I want to have some knowledge from you all. This source code is already finished, I want you all to build in a complex, difficult and a shortcut to arrange my source code, so I can learn more in Pascal. The program suppose not to use an array and I want to know how to sort it within a short program, If you all have any idea, Please send to me, of course I will learn more from you than my teacher.

0
 
LVL 1

Author Comment

by:lewis_loo
ID: 1215881
yeah, Of course it's an assignment but I want to have some knowledge from you all. This source code is already finished, I want you all to build in a complex, difficult and a shortcut to arrange my source code, so I can learn more in Pascal. The program suppose not to use an array and I want to know how to sort it within a short program, If you all have any idea, Please send to me, of course I will learn more from you than my teacher.

0
 
LVL 3

Expert Comment

by:vikiing
ID: 1215882
You're saying "I want you all to build in a complex, difficult and a shortcut to arrange my source code, so I can learn more in Pascal". The fact of doing things more complicated and difficult will really *NOT* help to learn Pascal, nor any other programming language (to be true, nor any other thing in your life).
0
 
LVL 3

Accepted Solution

by:
daitt earned 0 total points
ID: 1215883
That's good procedures (ofcourse if we don't use arrays). There's not much change I can make:

   procedure order(asc:boolean; var x,y:real);
   var temp: real;
   begin
      if (asc xor (x<y)) then begin
          temp:=x;
          x:=y;
          y:=temp;
      end
  end;

You don't need the forward procedures. Just simply move order, ascending, descending procedures above others.
And your interface confuses me. What do you really want? You want to let the users sort once (ascending or descending), then ask them if they want to sort descending (maybe descending sorting is much more important than ascending one??). Perhaps:

    begin
      repeat
        clrscr;
        input(n1,n2,n3,n4,n5);
        repeat
          opt:=GetUserChoice;
          choice;
        until not (opt in ['1','2']);
        write('Continue ? ');
      until not UserAnswer;
    End.

Then the user can simply enter other number in order to quit this set of numbers.
And ofcourse, the comment of saam (about UserAnswer) is worth seeing.
Good luck.
daitt
0

Featured Post

Vote for the Most Valuable Expert

It’s time to recognize experts that go above and beyond with helpful solutions and engagement on site. Choose from the top experts in the Hall of Fame or on the right rail of your favorite topic page. Look for the blue “Nominate” button on their profile to vote.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Aerodynamic noise is the cause of the majority of the noise produced by helicopters. The inordinate amount of noise helicopters produce is a major problem in the both a military and civilian setting. To remedy this problem the use of an aerogel coat…
In a use case, a user needs to close an opened report by simply pressing the Escape (Esc) key. This can be done by adding macro code in Report_KeyPress or Report_KeyDown event.
this video summaries big data hadoop online training demo (http://onlineitguru.com/big-data-hadoop-online-training-placement.html) , and covers basics in big data hadoop .
Screencast - Getting to Know the Pipeline

886 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question