Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/25: Рейтинг темы: голосов - 25, средняя оценка - 4.92
Proudly

Как использовать циклы while, for, repeat

28.02.2014, 22:27. Показов 4759. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Объясните доступным и понятным языком как использовать циклы while, for, repeat. Понять не могу ни как.
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
28.02.2014, 22:27
Ответы с готовыми решениями:

Где можно найти информацию и различные примеры про то, как устроены вложенные циклы (for/repeat...untile/while)?
Доброго времени суток.Не можете подсказать,где можно найти информацию и различные примеры про то,как устроены вложенные...

Циклы for, repeat и while.
Решила задачу с помощью цикла For. Помогите сделать с Repeat и While! Прошу!:) procedure TForm1.Button1Click(Sender: TObject); var...

Циклы for, while, repeat.
помогите составить программу для циклов for, while , repeat,

2
13 / 13 / 3
Регистрация: 26.02.2014
Сообщений: 78
28.02.2014, 22:49
При входе в цикл For уже известно, сколько раз будет он повторятся, то есть он имеет "счетчик". И то, что происходит в его теле не будет влиять на него.
Задается он так:
For переменная(то есть сам счетчик) := значение to конечное значение (то есть то, при котором он перестанет работать) do
Например, в качестве счетчика будет переменная "a", нужно, чтобы цикл повторился 5 раз, тогда напишем:
for a:=1 to 5 do
тело;

While и repeat же будут повторяться, пока выполняется или не выполняется условие прямо в теле цикла.
Цикл while будет работать, пока выполняется условие, а цикл repeat, пока не выполняется условие.
While задается так:

While условие do
Begin
тело;
End;

Repeat так:

Repeat
Тело;
Until условие;
1
 Аватар для FedorBoom
102 / 70 / 79
Регистрация: 06.02.2014
Сообщений: 211
01.03.2014, 00:15
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
var i{это счетчик цикла, очень полезная штука}: integer;
 begin
  {1. Цикл For} 
    for i:= 1{Начало} to 5{конец} do begin
   {твои операции}
   {цикл for называется цикл с параметром, потому что у него ограниченное число повторений, заданное 
    параметром i, который за за каждый оборот цикла увеличивается (если писать to) или уменьшается (если
    писать downto) }
   end;
 
  {2. Цикл While-Do} 
     while i>0{в таком случае цикл каждый раз проверяет, больше ли i за 0, и если это так, то
     оно продолжает цикл} do begin
    {твои операции}
    {цикл while полезен тем, что позволяет сделать бессчетное количество повторений. Один из способов 
     стрельбы в ногу, аккуратней с тем, чтобы цикл не вошел в бесконечность, иначе, скорее всего, весь 
     Паскаль придется перезагружать. Для избежания этого в параметр while ставится одна из переменных, 
     что будет изменяться постоянно, пока i выполняет условие, указанное тобой. Цикл while нужен, если тебе 
     надо узнать, например, через какое количество времени переменная превысит лимит, и тому подобные 
     задачи. }
   end;
 
   {3. Цикл Repeat-Until}   
     Repeat begin
    {твои операции} 
     end;
     until i<0;
 
     {этот товарищ поможет тебе, если тебе обязательно нужно провернуть цикл хотя бы раз, потому что это 
      цикл с постусловием. В остальном не отличается от While-Do. Ах, нет, параметр (наподобие i, или какой
      ты там себе напридумаешь), будет проверяться с точностью наоборот: пока i не выполнит условие, цикл
      не прекратится}
  end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.03.2014, 00:15
Помогаю со студенческими работами здесь

Циклы While и Repeat
Вычислить сумму ряда с заданной степенью точности α:

Циклы: for, while, repeat.
Составить программу для вычисления произведения конечного ряда: http://www.ljplus.ru/img4/n/i/nikitosique/1.jpg

Циклы for.to, repeat.until, while.do
Дана таблица целых a,a,...a. Найти тройки чисел a, a, a удовлетворяющие условию a&lt;=(a + a)/2.

Циклы(For,Repeat,While)
помогите пожалуйста: Даны натуральное число «n» , действительное «x». Вычислить cos x+ cos x(в квадрате)+ …+cos x(в степени n). (нужно...

Циклы While, Repeat.
Приписать к числу 566 справа 3-и цифры так, чтобы полученное 6-ти значное число делилось на 2,3,4,6,7,8,9. Помогите пожалуйста!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru