Pascal and Delphi

Help With Some Pascal???

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Feb 2008

Posts: 26

Reputation: sura17 is an unknown quantity at this point

Solved Threads: 0

sura17

Offline

Light Poster

Help With Some Pascal???

Feb 4th, 2008

i have to do a seven segemtn display for 2 numbers but at the moment it looks like this:- http://i28.tinypic.com/a176ep.jpg but i want the 1 and 3 to be next to each other but i cannot seen to do this here is my pascal:-

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
Program sevensegmentdigit;
Uses Wincrt;
 
Var
   x,y,n1,n2 : integer;
 
   Procedure One;
      begin
         writeln('   ');
         writeln('  |');
         writeln('  |');
      end;
 
     procedure Two;
      begin
         writeln(' _ ');
         writeln(' _|');
         writeln('|_ ');
      end;
 
     procedure Three;
      begin
         writeln(' _ ');
         writeln(' _|');
         writeln(' _|');
      end;
 
     procedure Four;
      begin
         writeln('   ');
         writeln('|_|');
         writeln('  |');
      end;
 
     procedure Five;
      begin
         writeln(' _ ');
         writeln('|_ ');
         writeln(' _|');
      end;
 
     procedure Six;
      begin
         writeln(' _ ');
         writeln('|_ ');
         writeln('|_|');
      end;
 
     procedure Seven;
      begin
         writeln(' _ ');
         writeln('  |');
         writeln('  |');
      end;
 
     procedure Eight;
      begin
         writeln(' _ ');
         writeln('|_|');
         writeln('|_|');
      end;
 
     procedure Nine;
      begin
         writeln(' _ ');
         writeln('|_|');
         writeln('  |');
      end;
 
     procedure Zero;
      begin
         writeln(' _ ');
         writeln('| |');
         writeln('|_|');
      end;
 
Begin
 
     write('Is Your Number 1 or 2 Digits?...');
     readln(y);
 
     if y = 1 then
 
      begin
 
       write('Enter Number...');
       readln(x);
 
       if x = 1 then
         begin
           One
         end;
 
       if x = 2 then
         begin
           Two
         end;
 
       if x = 3 then
         begin
           Three
         end;
 
       if x = 4 then
         begin
           Four
         end;
 
       if x = 5 then
         begin
           Five
         end;
 
       if x = 6 then
         begin
           Six
         end;
 
       if x = 7 then
         begin
           Seven
         end;
 
       if x = 8 then
         begin
           Eight
         end;
 
       if x = 9 then
         begin
           Nine
         end;
 
       if x = 0 then
         begin
           Zero
         end;
 
       end;
 
       if y = 2 then
       begin
       writeln('Enter First Number...');
       readln(n1);
       writeln('Enter Second Number...');
       readln(n2);
 
       if n1 = 1 then
        begin
         One;
        end;
 
       if n1 = 2 then
        begin
         Two;
        end;
 
       if n1 = 3 then
        begin
         Three;
        end;
 
       if n1 = 4 then
        begin
         Four;
        end;
 
       if n1 = 5 then
        begin
         Five;
        end;
 
       if n1 = 6 then
        begin
         Six;
        end;
 
       if n1 = 7 then
        begin
         Seven;
        end;
 
       if n1 = 8 then
        begin
         Eight;
        end;
 
       if n1 = 9 then
        begin
         Nine;
        end;
 
       if n1 = 0 then
        begin
         Zero;
        end;
 
 
       if n2 = 1 then
        begin
         One;
        end;
 
       if n2 = 2 then
        begin
         Two;
        end;
 
       if n2 = 3 then
        begin
         Three;
        end;
 
       if n2 = 4 then
        begin
         Four;
        end;
 
       if n2 = 5 then
        begin
         Five;
        end;
 
       if n2 = 6 then
        begin
         Six;
        end;
 
       if n2 = 7 then
        begin
         Seven;
        end;
 
       if n2 = 8 then
        begin
         Eight;
        end;
 
       if n2 = 9 then
        begin
         Nine;
        end;
 
       if n2 = 0 then
        begin
         Zero;
        end;
 
    end;
 
End.
Program sevensegmentdigit;
Uses Wincrt;

Var
   x,y,n1,n2 : integer;

   Procedure One;
      begin
         writeln('   ');
         writeln('  |');
         writeln('  |');
      end;

     procedure Two;
      begin
         writeln(' _ ');
         writeln(' _|');
         writeln('|_ ');
      end;

     procedure Three;
      begin
         writeln(' _ ');
         writeln(' _|');
         writeln(' _|');
      end;

     procedure Four;
      begin
         writeln('   ');
         writeln('|_|');
         writeln('  |');
      end;

     procedure Five;
      begin
         writeln(' _ ');
         writeln('|_ ');
         writeln(' _|');
      end;

     procedure Six;
      begin
         writeln(' _ ');
         writeln('|_ ');
         writeln('|_|');
      end;

     procedure Seven;
      begin
         writeln(' _ ');
         writeln('  |');
         writeln('  |');
      end;

     procedure Eight;
      begin
         writeln(' _ ');
         writeln('|_|');
         writeln('|_|');
      end;

     procedure Nine;
      begin
         writeln(' _ ');
         writeln('|_|');
         writeln('  |');
      end;

     procedure Zero;
      begin
         writeln(' _ ');
         writeln('| |');
         writeln('|_|');
      end;

Begin

     write('Is Your Number 1 or 2 Digits?...');
     readln(y);

     if y = 1 then

      begin

       write('Enter Number...');
       readln(x);

       if x = 1 then
         begin
           One
         end;

       if x = 2 then
         begin
           Two
         end;
      
       if x = 3 then
         begin
           Three
         end;

       if x = 4 then
         begin
           Four
         end;
   
       if x = 5 then
         begin
           Five
         end;

       if x = 6 then
         begin
           Six
         end;

       if x = 7 then
         begin
           Seven
         end;

       if x = 8 then
         begin
           Eight
         end;

       if x = 9 then
         begin
           Nine
         end;

       if x = 0 then
         begin
           Zero
         end;

       end;

       if y = 2 then
       begin
       writeln('Enter First Number...');
       readln(n1);
       writeln('Enter Second Number...');
       readln(n2);

       if n1 = 1 then
        begin
         One;
        end;

       if n1 = 2 then
        begin
         Two;
        end;

       if n1 = 3 then
        begin
         Three;
        end;

       if n1 = 4 then
        begin
         Four;
        end;

       if n1 = 5 then
        begin
         Five;
        end;

       if n1 = 6 then
        begin
         Six;
        end;

       if n1 = 7 then
        begin
         Seven;
        end;

       if n1 = 8 then
        begin
         Eight;
        end;

       if n1 = 9 then
        begin
         Nine;
        end;

       if n1 = 0 then
        begin
         Zero;
        end;


       if n2 = 1 then
        begin
         One;
        end;

       if n2 = 2 then
        begin
         Two;
        end;

       if n2 = 3 then
        begin
         Three;
        end;

       if n2 = 4 then
        begin
         Four;
        end;

       if n2 = 5 then
        begin
         Five;
        end;

       if n2 = 6 then
        begin
         Six;
        end;

       if n2 = 7 then
        begin
         Seven;
        end;

       if n2 = 8 then
        begin
         Eight;
        end;

       if n2 = 9 then
        begin
         Nine;
        end;

       if n2 = 0 then
        begin
         Zero;
        end;

    end;

End.

can some help me do this plz thank you

•

Join Date: Oct 2007

Posts: 1,953

Reputation: Duoas has much to be proud of

Solved Threads: 214

Duoas

Offline

Posting Virtuoso

Re: Help With Some Pascal???

Feb 4th, 2008

How non-standard are you willing to go?

The standard way, you will have to re-write your program to take a whole number and create a string for each part of the number.

For example, if given the number '42', you would make the strings

 Help with Code Tags 
 Pascal and Delphi Syntax (Toggle Plain Text) 
 '      _ '
 ' |_|  _|'
 '   | |_ '
 '      _ '
 ' |_|  _|'
 '   | |_ '

If your numbers are always three lines high, this is easy enough. Just adjust your functions to append the correct stuff to the end of the strings instead of using writeln.

Then, once you are done calling the zero, one, two, etc. functions, writeln each of the three strings to the screen.

BTW, use a case statement instead of a zillion ifs.

Hope this helps.

•

Join Date: Feb 2008

Posts: 26

Reputation: sura17 is an unknown quantity at this point

Solved Threads: 0

sura17

Offline

Light Poster

Re: Help With Some Pascal???

Feb 5th, 2008

i dont really understand can you explain that a bit more please

•

Join Date: Oct 2007

Posts: 1,953

Reputation: Duoas has much to be proud of

Solved Threads: 214

Duoas

Offline

Posting Virtuoso

Re: Help With Some Pascal???

Feb 5th, 2008

You need to write three separate lines of text for each number, right? But all the numbers must be horizontally arranged? So, get yourself three string variables and set them to the empty string to begin with:

 Help with Code Tags 
 Pascal Syntax (Toggle Plain Text) 
var s1, s2, s3: string;
begin
  s1 := '';
  s2 := '';
  s3 := '';
var s1, s2, s3: string;
begin
  s1 := '';
  s2 := '';
  s3 := '';

Now, each number routine (zero, one, two, etc.) can add itself to the end of the strings.

 Help with Code Tags 
 Pascal Syntax (Toggle Plain Text) 
procedure zero;
  begin
  s1 := s1 +' _ ';
  s2 := s2 +'| |';
  s3 := s3 +'|_|'
  end;
procedure zero;
  begin
  s1 := s1 +' _ ';
  s2 := s2 +'| |';
  s3 := s3 +'|_|'
  end;

When done, you can print the strings with writeln:

 Help with Code Tags 
 Pascal Syntax (Toggle Plain Text) 
  writeln( s1 );
  writeln( s2 );
  writeln( s3 );
  writeln( s1 );
  writeln( s2 );
  writeln( s3 );

Hope this helps.

•

Join Date: Feb 2008

Posts: 26

Reputation: sura17 is an unknown quantity at this point

Solved Threads: 0

sura17

Offline

Light Poster

Re: Help With Some Pascal???

Feb 5th, 2008

this doesnt really seem to work as i cant get them to be next to each other

•

Join Date: Jun 2006

Posts: 71

Reputation: Micheus is an unknown quantity at this point

Solved Threads: 4

Micheus

Offline

Junior Poster in Training

Re: Help With Some Pascal???

Feb 5th, 2008

•

Originally Posted by sura17

this doesnt really seem to work as i cant get them to be next to each other

You must test the code that Duoas post for You. I think You don't.

Just try Duoas's code by other way - may be You can see:

 Help with Code Tags 
 Pascal Syntax (Toggle Plain Text) 
var s1, s2, s3: string;
 
procedure zero;
  begin
  s1 := s1 +' _ ';
  s2 := s2 +'| |';
  s3 := s3 +'|_|';
  end;
 
procedure PrintResult;
begin
  writeln( s1 );
  writeln( s2 );
  writeln( s3 );
end;
 
begin
  s1 := '';
  s2 := '';
  s3 := '';
 
  zero; // 1st digit
  zero; // 2nd digit
 
  PrintResult;
end.
var s1, s2, s3: string;

procedure zero;
  begin
  s1 := s1 +' _ ';
  s2 := s2 +'| |';
  s3 := s3 +'|_|';
  end;

procedure PrintResult;
begin
  writeln( s1 );
  writeln( s2 );
  writeln( s3 );
end;

begin
  s1 := '';
  s2 := '';
  s3 := '';
  
  zero; // 1st digit
  zero; // 2nd digit

  PrintResult;
end.

You will see this:

Help with Code Tags

Pascal and Delphi Syntax (Toggle Plain Text)

 _  _
| || |
|_||_|

"It always has, at least, two ways to make one same thing. Exactly that they are certain and wrong"(Micheus)

Brazil - Blumenau

•

Join Date: Feb 2008

Posts: 26

Reputation: sura17 is an unknown quantity at this point

Solved Threads: 0

sura17

Offline

Light Poster

Re: Help With Some Pascal???

Feb 5th, 2008

but i wnt the user to type in say 24 and 24 comes up

•

Join Date: Jun 2006

Posts: 71

Reputation: Micheus is an unknown quantity at this point

Solved Threads: 4

Micheus

Offline

Junior Poster in Training

Re: Help With Some Pascal???

Feb 6th, 2008

•

Originally Posted by sura17

but i wnt the user to type in say 24 and 24 comes up

And You have had implement this at first. You just will need to use the code that You post at first in this thread and change it by using the Douas approach.

Your code was working. Isn't it right?
So, You just need to surronud display "problem" - It is that the Duoas had suggested to You. I just examplefy with Zero's procededure, You will need to change Your others number's procedures to use some thing like this: s1 := s1 +' |' ; and not some thing like this: writeln(' |');

bye

"It always has, at least, two ways to make one same thing. Exactly that they are certain and wrong"(Micheus)

Brazil - Blumenau