This is what i have done so far:-

Program ssd;
uses wincrt;

var
x:real;

Begin

  x:=1;
   repeat
     clrscr;
     gotoxy(32,0);
     writeln(x:5:2);
     x:=x+0.001;
   until KeyPressed;
  
  clrscr;
  gotoxy(20,0);
  writeln('You Have Filled The Amount Of £',x:5:2);

end.

This is my ticker, it goes up on 0.01's forever but its slow and i did this on purpose as its realistic, and when you press a key the ticker stops and it tells you how much you filled up but now i gotta convert this that the pascal font doesnt show up but the seven segement display shows.

i have done my seven segemnt display but i dont want to show my code on here as alot of people want it so can anyone help my?

Thank You
:D

Recommended Answers

All 2 Replies

Your program displays your code simply because it comes to the end.

If you press F5 you will see that your seven segment display is there.

Naturally, you want to see that display on the normal screen. In that case you will need to stop the program from coming to a sudden end. My suggestion is that you insert a read statement into the code.

Program ssd;
uses wincrt;

var
x:real;
any:char;

Begin

x:=1;
repeat
clrscr;
gotoxy(32,0);
writeln(x:5:2);
x:=x+0.001;
until KeyPressed;

clrscr;
gotoxy(20,0);
writeln('You Have Filled The Amount Of £',x:5:2);
read(any)

end.

Reflecting on my suggestion in the previous post, I see that the variable any: char; is unnecessary.

Consequently, forget read(any) in the second last line and replace it with readln

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.