'setting a speed in Pascal' Thread RSS Feed

setting a speed in Pascal

Tue, 22 Jan 2013 12:09:37 -0700

Hi, all.
I'd like to know how I can set the speed of the steps followed by a program in Pascal. I'm doing a program that deletes the letters of a sentence, from the end of that sentence to the beggining, and it has to be one letter per second.

waiting for suggestions,

siriss.

Re: setting a speed in Pascal

Tue, 22 Jan 2013 20:25:45 -0700

The CRT unit has a procedure called delay.

program howto ;

uses crt ;

begin
    delay(1000)
end

The argument of delay is the length of the delay in milliseconds. delay(1000) pauses the program for one second. Depending on how accurate your delay has to be you might want to use delay(950) or some other number less than 1000. Experiment.

Re: setting a speed in Pascal

Tue, 22 Jan 2013 23:30:49 -0700

Well, stil not working..

Program del_sentence;
var s: string;
i: byte;
uses crt;
begin
clrscr;
writeln('sentence is deleting itself');
readln(s);
for i:=length(s) downto 2 do begin
s[i]:=' ';
delay(1000);
end;
end.

What .. did I miss? Everything seemed fine to me.,
Thanks again.

Re: setting a speed in Pascal

Tue, 22 Jan 2013 23:39:18 -0700

Re: setting a speed in Pascal

Tue, 22 Jan 2013 23:42:32 -0700

Re: setting a speed in Pascal

Thu, 24 Jan 2013 02:29:08 -0700

program del_sentence ;

uses crt ;   { 'uses' must be first statement after 'program'  }

var
   s : string ;
   i : byte ;

begin
   clrscr ;
   write ('Enter a sentence. ') ;
   readln(s) ;
   writeln('sentence is deleting itself') ;

   while length(s) > 0 do begin
      writeln(s) ;
      delete(s,length(s),1) ;   { use 'delete' - not s[1] = '' }
      delay (1000)              { 'delay' does not seem to work on my machine
                                  I had to use 15000 for a one second delay
                                  experiment }
   end
end.