Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.82
loli
4 / 4 / 2
Регистрация: 09.10.2009
Сообщений: 83
#1

Цикл for - Free Pascal

09.10.2009, 22:28. Просмотров 1594. Ответов 4
Метки нет (Все метки)

Задался вопросом , почему цикл в паскале
Delphi
1
2
read(i);
for i:=1 to i do
равносилен
Delphi
1
2
read(k);
for i:=1 to k do
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2009, 22:28
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Цикл for (Free Pascal):

Итерационный цикл и цикл с известным числом повторения - Pascal
5.12-интерационный цикл 4.9-цикл с известным числом повторений

Цикл FOR,WHILE и Цикл DO WHILE (DENWER+PHP) - Pascal
Составить алгоритм и программу для вычисления произведения чисел: 13, 14.3, 15.6, 16.9, …, 40.3 Цикл FOR, Цикл WHILE B Цикл DO WHILE

Цикл: Как реализовать цикл или что-то другое, чтобы возвращаться в окно редактирования с помощью букв "Y" и"N". - Free Pascal
Как реализовать цикл или что-то другое чтобы не возвращаться в окно редактирования не с помощью цифр, а например с помощью букв "Y" и"N". в...

Создать программу по всем 3 видам циклов...цикл с параметром,цикл с условием,цикл,и цикл с предусловием... - Turbo Pascal
Найти сумму чисел 1 в квадрате до 10 c квадрате...операцию возведению в степень не использовать учесть особенности получения квадратного...

Написать в турбо паскале, Цикл с параметром, Цикл, с постусловием, и с предусловием пожалуйста - Turbo Pascal

Как реализовать бесконечный цикл While, но чтобы этот цикл не грузил процессор? - Visual C++
Допустим есть цикл: while (1) { ... } Как сделать так, чтобы бесконечный цикл не грузил процессор. Избавиться от...

4
Puporev
Модератор
54039 / 41672 / 14753
Регистрация: 18.05.2008
Сообщений: 97,993
09.10.2009, 22:34 #2
Он так же равносилен read(a), tread(b) и так далее по алфавиту. Потому что буква здесь это имя переменной, а фактическое звучание она приобретает после ввода числа с клавиатуры и прочтения программой.
Только пользуйтесь лучше readln(a);
0
Somebody
2799 / 1610 / 150
Регистрация: 03.12.2007
Сообщений: 4,210
Завершенные тесты: 3
09.10.2009, 23:04 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Я так понял, вопрос про то, что i - это и счётчик цикла, и конечное значение. Конечное значение вычисляется один раз перед выполнением цикла и сохраняется, сравнение происходит именно с сохранённым значением. Если нужно выполнять сравнение перед/после каждой итерации, то надо использовать while или repeat.
0
loli
4 / 4 / 2
Регистрация: 09.10.2009
Сообщений: 83
09.10.2009, 23:26  [ТС] #4
Кинь ссылку на какую-нибудь документацию по этому вопросу. А то не солидно выглядит.
0
Somebody
2799 / 1610 / 150
Регистрация: 03.12.2007
Сообщений: 4,210
Завершенные тесты: 3
09.10.2009, 23:45 #5
http://www.freepascal.org/docs-html/ref/refsu42.html#x112-11900010.2.4
Remark: Free Pascal always calculates the upper bound before initializing the counter variable with the initial value.
Object Pascal Language Guide (Delphi help)
For purposes of controlling execution of the loop, the expressions initialValue and finalValue are evaluated only once, before the loop begins. Hence the for...to statement is almost, but not quite, equivalent to this while construction:

Код
begin
  counter := initialValue;
  while counter <= finalValue do
  begin
    statement;
    counter := Succ(counter);
  end;
end
The difference between this construction and the for...to statement is that the while loop re-evaluates finalValue before each iteration. This can result in noticeably slower performance if finalValue is a complex expression, and it also means that changes to the value of finalValue within statement can affect execution of the loop.
0
09.10.2009, 23:45
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2009, 23:45
Привет! Вот еще темы с ответами:

Цикл: Как грамотно организовать цикл с получением количества верных и неверных ответов? - VBA
Доброго времени суток, товарищи. Вот есть у меня два рандомно генерируемых числа, проверка произведения которых проверяется вводом ответа...

.NET 3.x Почему если условие входа в цикл не выполняется, функция заново входит в цикл - C#
Сам код: private void traverse_node(TreeControlItem node) { TreeControlItem childNode = default(TreeControlItem);...

Как переделать программу, чтобы внешний цикл был repeat.until, а цикл for вложенным? Паскаль - Pascal ABC
const x = 0.29; var y, sv, sz, fact, st: real; i, j, zn: integer; begin sz := 0; writeln('cycles for and while');

Нормально ли для системы один и тот же цикл запускать цикл 20 раз в секунду с итерацией до 1000 - Delphi
Нормально ли для системы один и тот же цикл запускать цикл 20 раз в секунду с итерацией до 1000? Или это большая перегрузка для...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru