Question

Как в Паскале зациклить программу? То есть как выполнять одну и ту же операцию много раз, используя один раз введенные данные в начале? Если можно, приведите небольшой пример.

Answer 1

Это делается с помощь цикла for либо цикла while либо цикла repeat
Цикл for:
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

for i := 1 to n do
write ('(*) ');

readln
end.

Цикл While
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

i := 1;
while i <= n do begin
write ('(*) ');
i := i + 1
end;

readln
end.

Цикл repeat
var
i, n: integer;

begin
write ('Количество знаков: ');
readln (n);

i := 1;
repeat
write ('(*) ');
i := i + 1
until i > n;

readln
end.

Answer 2

В Паскале можно использовать циклы для многократного выполнения операций. Самый распространенный тип цикла в Паскале - это цикл "for".

Вот небольшой пример программы на Паскале, который считывает число с клавиатуры и выводит на экран числа от 1 до этого числа:

pascalCopy code
program LoopExample;
var
  n, i: integer;
begin
  writeln('Введите число: ');
  readln(n);
  
  writeln('Числа от 1 до ', n, ':');
  for i := 1 to n do
    writeln(i);
  
  readln;
end.

В этом примере программа сначала запрашивает число у пользователя, используя readln(n). Затем она выводит на экран числа от 1 до n с помощью цикла for. Код for i := 1 to n do указывает, что переменная i будет принимать значения от 1 до n, а блок кода между do и end будет выполняться для каждого значения i.

После завершения цикла программа ожидает нажатия клавиши Enter с помощью readln, чтобы она не закрывалась сразу после выполнения.