'About Repeat.. until and While.. do' Thread RSS Feed

About Repeat.. until and While.. do

Fri, 01 Mar 2002 04:46:40 -0700

Hi, am new here.. anyway, I was hoping somebody could give me information about programming using repeat and while..

The problem is :

using while .. do

5
5 4
5 4 3
5 4 3 2
5 4 3 2 1

and using repeat until
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1

I've been puzzling over this for a while and all my efforts have given me an output of:
5
4
3
2
1

for the 'while' and similar output for the 'repeat'

Is the process similar to the 'for'?
I've been able to do the required output using FOR command, but I cannot seem to apply it to REPEAT and WHILE.

Your help would be greatly appreciated.

Re: About Repeat.. until and While.. do

Sat, 02 Mar 2002 06:09:09 -0700

program looptest;

var
  I, N:integer;
  
begin
  WriteLn('using while .. do');
  N:=5;
  while ( N >= 1 ) do begin
    I:=5;
    while (I >= N ) do begin
      write(I ,#32);
      dec(I)
    end;
    writeln;
    dec(N);
  end;
  WriteLn( 'using repeat .. until');
  N:=5;
  repeat
    I:=0;
    repeat
      inc(I);
      write(I, #32);
    until ( I >= N );
    writeln;
    dec(N);
  until ( N < 1 );
end.

Thank you very much ^^

Sat, 02 Mar 2002 06:23:42 -0700

The code is a great help.. now I'm beginning to understand the logic involved better :)

Many thanks for your quick reply!