Как в Паскале зациклить программу? То есть как выполнять одну и ту же операцию много раз, используя один раз введенные данные в начале? Если можно, приведите небольшой пример.
Answers & Comments
Neostar
Это делается с помощь цикла 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;
Answers & Comments
Цикл 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.