Randomize, пишу программу

[JetV97]

Здравствуйте! Я решил создать программу которая выводила бы рандомные числа.

Код: Выделить всё

var x, y, z : integer;
a : string;
begin
randomize;
repeat
write ('С какого числа начинать? прим. начинать с 0 или с 1:');
readln (x);
write ('До какого числа '' рандромировать''? прим. до 10 или 5, или как вам угодно:');
readln (y);
repeat
z := x + random (y);
writeln (z);
readln;
write ('Если хотите поменять параметры, нажмите 0. Если хотите выйти нажмите 1. если хотите рандомнуть ещё раз нажмите 2. (после ввода нажмите enter)');
readln (a);
if a = '0' then
until;
else
if a = '1' then
break;
else
if a = '2' then
until;
else
writeln ('Чё?');
readln
end.

Не компилируется! Помогите пожалуйста.

[Paster Fob]

Не компилируется!

Ещё бы!
Перед else ; не должно быть .Нет условия выхода из цикла.Вместо условных операторов лучше применить оператор выбора.

[JetV97]

Спасибо.

[Paster Fob]

побыстрому накалякал.Посмотри и изменяй как тебе угодно

Код: Выделить всё

var
  i,n,x,y,z:integer;

begin
  randomize;
  write('введите диапозон чисел x..y');
  readln(x,y);
  write('введите кол-во чисел : ');
  readln(n);
  for i:=1 to n do begin
    z:=random(y-x)+1+x;
    writeln(z);
  end;
  readln
end.

[JetV97]

Спасибо еще раз. Пока вы не написали, я пробовал изменять свою программу. Все вроде правильно, но говорит, что break not' allowed. скажите что тут не так

Код: Выделить всё

var x, y, z : integer;
a, b : string;
begin
randomize;
repeat
write ('С какого числа начинать? прим. начинать с 0 или с 1:');
readln (x);
write ('До какого числа '' рандромировать''? прим. до 10 или 5, или как вам угодно:');
readln (y);
z := x + random (y);
writeln (z);
readln;
write ('Если хотите поменять параметры, нажмите 0. Если хотите выйти нажмите 1. если хотите рандомнуть ещё раз c такими же параметрами оставте поле пустым. (после ввода нажмите enter)');
readln (a);
until a = '0';
if a = '1' then break;
repeat
if a = '' then
z := x + random (y);
writeln (z);
writeln ('Еще разок? Если да, введите 1, оставте поле пустым (не забудте нажать Enter)');
readln (b);
until b = '1'
end.

[A.N.Onim]

Кажется у вас break идёт после цикла:

Код: Выделить всё

until a = '0';
if a = '1' then break;

[JetV97]

Ну... Если '1', то repeat, если '0', то break

[sign]

JetV97, употребляйте отступы. Будет читабельней и ошибки видней.
Переписал (не исправляя и не правя (кроме одного write)) вашу программу:

Код: Выделить всё

var x, y, z : integer;
    a, b : string;
begin
  randomize;
  repeat
    write ('С какого числа начинать? прим. начинать с 0 или с 1:');
    readln (x);
    write ('До какого числа '' рандромировать''? прим. до 10 или 5, или как вам угодно:');
    readln (y);
    z := x + random (y);
    writeln (z);
    readln;
    write('Если хотите поменять параметры, нажмите 0.');
    write('Если хотите выйти нажмите 1.');
    write('Если хотите повторить нажмите Enter)');
    readln (a);
  until a = '0';
  if a = '1' then break;
  repeat
    if a = '' then z := x + random (y);
    writeln (z);
    writeln ('Еще разок? Если да, введите 1, оставте поле пустым (не забудте нажать Enter)');
    readln (b);
  until b = '1'
end.


[Oleg_D]

Спасибо, sign, я то же самое хотел предложить, но вы опередили.
В этом случае хорошо видно, что Break расположен за пределами циклов, а это недопустимо.

[JetV97]

Всё, всё понял, огромное спасибо, исправил! Еще раз спасибо!!!

Добавлено спустя 17 минут 48 секунд:
Чё-то я сильно накосячил...