вывести различные цифры

[DinamoBrynsk]

Программа должна выводить 6 различных цифер

var k,i:integer;
x,s:string;
begin
randomize;
k:=0;
repeat
a:=random(9);
str(a,x);
for i:=1 to length(s)-1 do
if s[i]<>x then begin
 s:=s+x;
 k:=k+1;
 end;
until k=6;
write(s);
end.

происходит зацикливание, почему?

[xDyPx]

Скорее всего, это условие

if s[i]<>x then begin
 s:=s+x;
 k:=k+1;
 end;

не срабатывает.

[Valio]

Предположим что строка имеет вид 1234, а Random вернуло цифру 5.

Что будет происходить с k? Предположим k = 0.

for i:=1 to length(s)-1 do
if s[i]<>x then 
   begin

   s:=s+x;

   k:=k+1;

   end;

Проходя в цикле for всю строку будет выполняться условие s[i]<>x, так как [1,2,3,4] <> 5 и код внутри if будет выполнен 3 раза (ибо to length(s)-1). Тоесть за раз этот код прибавит к k сразу 3 раза.

В следствии чего может произойти так что until k=6;никогда не отработает.

PS: переменная a не указана в var.

Вариант исправления (непроверялся):

begin
randomize;
k:=0;

repeat

a:=random(9);
str(a,x);

k := k + 1; // сразу прибавим что цифра добавлена
for i:=1 to length(s)-1 do
if s[i] = x then begin // если встретим эту цифру то...
 k:=k-1; // вычтим обратно из k
 Break; // выйдем из цикла for.
 end;

until k=6;

Правда надо ещё со строкой подумать... Надо также прибавить к строке цифру, а потом если нашли повторное число то удалить её...

[DinamoBrynsk]

Предположим что строка имеет вид 1234, а Random вернуло цифру 5.
Что будет происходить с k? Предположим k = 0.
Почему к=0??? будет равно 4, потому что в изначально строка пустая

[Valio]

Сообщение от DinamoBrynsk

Предположим что строка имеет вид 1234, а Random вернуло цифру 5.
Что будет происходить с k? Предположим k = 0.
Почему к=0??? будет равно 4, потому что в изначально строка пустая

Смысл был в том, что твой код будет делать k := k + 1 столько раз сколько выполниться s[i]<>x. А это условие может выполниться более одного раза при проходе по строке.

[DinamoBrynsk]

Сообщение от Valio

А это условие может выполниться более одного раза при проходе по строке.

почему ведь в строке будут всегда разные цифры

[Valio]

Допиши это и смотри чему равны s, k, a.

......
Write(s, '--'); Write(a, '--'); Writeln(k); Readln;
Until k = 6;
....

Вот так будет работать как надо.

Var
  s, x : String;
  i, k, a : Integer;

Begin
Randomize;
k := 0; s := '';

Repeat
a := Random(9);
x := IntToStr(a);

s := s + x;
k := k + 1;

For i := 1 to Length(s) - 1 Do
  If s[i] = x Then
    Begin
      k := k - 1;
      Delete(s, Length(s), 1);
    End;
Write(s, '--'); Write(a, '--'); Writeln(k); Readln;
Until k = 6;

End.

[Stilet]

x := IntToStr(a);

для автора на всякий случай замечу что в паскале этой функции нет и нужно писать

val(a,x,e);

Где e - еще одна переменка integer, принимающая номер ошибочного символа, если же число удается перевести в целое е сравнивается к нулю.