Условие представляет собой выражение логического типа, а оператор после do называется телом цикла. Перед каждой итерацией цикла условие вычисляется, и если оно истинно, то выполняется тело цикла, в противном случае происходит выход из цикла.
Если условие всегда оказывается истинным, то может произойти зацикливание:
Оператор цикла repeat имеет следующую форму:
repeat
операторы
until условие
В отличие от цикла while , условие вычисляется после очередной итерации цикла, и если оно истинно, то происходит выход из цикла. Таким образом, операторы, образующие тело цикла оператора repeat , выполняются по крайней мере один раз.
Обычно оператор repeat используют в ситуациях, где условие нельзя проверить, не выполнив тело цикла. Например:
Если условие всегда оказывается ложным, то может произойти зацикливание:
Источник: pascalabc.net
простейшая программа в Паскале
Циклы в Pascal.
Циклы в Паскаль представляют собой многократно — повторяющиеся действия. В этой статье мы рассмотрим операторы цикла For To и For Downto. Эти операторы используются в том случае, если нам необходимо, чтобы какое-то действие повторилось несколько раз.
Создадим программу, которая будет выводить на экран квадраты чисел от 1 до 10.
Использование цикла For..to.
program ciklih1; uses crt; var N:integer; begin clrscr; For N:=1 To 10 Do writeln (sqr(N)); readln end.
Строка №3. Записываем переменну «N». Она будет использоваться в качестве счетчика цикла. Практически во всех программах, использующих цикл For применяется счетчик цикла
В строке №6 записываем цикл For..To..Do. Счетчик цикла «N» показывает сколько раз должен быть выполнен цикл. В нашем примере счетчик будет принимать 10 различных значений от 1 до 10. Соответственно, цикл будет выполнен 10 раз. После слова Do записываются операторы, которые должны выполниться 10 раз при разных значениях счетчика.
В нашем примере за словом Do идет оператор вывода на экран Writeln, который выводит на экран квадрат переменной «N» (т.е. счетчика цикла).
В строке №7 выводим квадрат переменной «N» на экран. Благодаря циклу For квадрат переменной будет выведен 10 раз. Сначала для числа 1, затем для 2, затем для 3 и т.д. до 10.
В примере переменная «N» является счетчиком цикла. В операторе For указывается начальное значение счетчика «1» и конечное значение «10». Причем не обязательно, чтобы начально значение было равно 1. Можно поставить 2 или 3 или 4 и т.д. Соответственно, квадраты чисел будут выводиться, начиная с 2, 3 или 4. Следует также скажать, что счетчик цикла может увеличиваться только на 1.
Движение круга в PascalABC
Форма записи For N:=1 To 10 Do увеличивает счетчик на еденицу. Если вместо To записать DownTo, то это будет форма записи, которая уменьшает счетчик на еденицу.
Напишем программу, которая будет выводить на экран кубы чисел от 10 до 5
program ciklih2; uses crt; var N: integer; begin clrscr; For N:=10 Downto 5 Do writeln (N*N*N); readln end.
В строке №6 записываем цикл For. Однако, в отличии от предыдущего примера, здесь вместо «To» употребляется «Downto». Поэтому действие, которое стоит после слова Do (строка №7) будет выполнено 5 раз в порядке уменьшения переменной «N». Т.е. сначала выведется 10 в кубе, затем 9 в кубе, затем 8 в кубе и т.д. до 5 в кубе.
Источник: mojainformatika.ru
Вопрос Как в паскале сделать повторение программы?
Я создал калькулятор в паскале и хочу чтобы после ответа калькулятор продолжал работу только заново.
chdm
chdm
Регистрация 9 Ноя 2013 Сообщения 80 Репутация 0 Спасибо 0 Монет 0
while True do begin код калькулятора end; repeat код калькулятора until False;
Иван1995
Иван1995
Регистрация 1 Дек 2013 Сообщения 68 Репутация 0 Спасибо 0 Монет 0
Циклически вызывать функцию, в которой у тебя будет твой калькулятор..
цыдып
цыдып
Регистрация 19 Дек 2013 Сообщения 69 Репутация 0 Спасибо 0 Монет 0
Калькулятор в консоли? если да, то нужно определенный кусок кода обернуть в конструкцию repeat — until. Почитайте про это в интернете и вообще про циклы в Pascal.
нурлыбек
нурлыбек
Регистрация 30 Ноя 2013 Сообщения 80 Репутация 0 Спасибо 0 Монет 0
while true do begin тело самой программы которая не перестанет работать end;
dfsyhrt
dfsyhrt
Регистрация 3 Ноя 2013 Сообщения 66 Репутация -3 Спасибо 0 Монет 0
ты ничего не сделал. ты тупо спи*дин чужой код.
Похожие темы
- limpopo23
- 3 Апр 2023
- Компьютерные вопросы
Ответы 5 Просмотры 112
Ответы 7 Просмотры 170
Ответы 4 Просмотры 176
Ответы 4 Просмотры 172
Ответы 5 Просмотры 221
Поделиться:
- Крипта, интернет, софт
- Разработка игрового ПО
- Компьютерные вопросы
- Обратная связь
- Условия и правила
- Политика конфиденциальности
- Помощь
- RSS
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.
Источник: 4cht.com