Пользователь
: 50
Бесконечный цикл (Pascal)
Нужна помощь
program rand; uses crt; var a,b,c,c1:integer; begin textbackground(black); ClrScr; TextColor (white); writeln(‘Дано выражение:’); while true do begin randomize; TextColor (white); a := random(100)+1; b := random(a)+1; write(a,’-‘,b,’=’); readln(c); c1:=a-b; if c=c1 then begin textcolor (green); writeln(‘Да’); delay(500); end else begin textcolor (red); writeln(‘Нет’); delay(1000); end; end; end.
как мне сделать так чтобы при правильном ответе паскаль менял цвет ответа, тоесть if c=c1 перекрасить ответ в зелёный цвет
else в красный?
Последний раз редактировалось _fynjy_; 13.12.2010 в 21:36 .
Пользователь
: 50
Repeat randomize; textbackground(black); TextColor (white); a := random(100)+1; b := random(a)+1; write(a,’-‘,b,’=’); readln(c); c1:=a-b; Until (c=c1) or (c<>c1);
добавлял это но он повторяется только 1 раз
Источник: www.programmersforum.ru
Ч.2. Цикл WHITE в Pascal. Как исправить бесконечный цикл.
#11 Цикл While «с предусловием» — пример. Паскаль
Ранее мы уже рассмотрели цикл for (т.н. «цикл с известным числом повторений»), для которого число витков определялось правой и левой границей счетчика.
Далее мы рассмотрим цикл while, число повторов которого определяется иначе, а именно на основании проверки истинности логического выражения.
Когда используется
Цикл while используется, когда заранее неизвестно сколько раз нужно будет выполнить тело цикла (набор действий).
Например, в случае если повтор цикла зависит от данных, которые вводит пользователь на очередном витке.
Цикл while — структура
while do begin < группа операторов >end;
while (a
— операторные скобки для тела цикла обязательны, если в нём более одного действия.
В качестве условия можно использовать более сложное выражение, лишь бы возвращаемый результат имело логический тип:
while (a5) do // выполняй пока «а» меньше «b» и «а» не равно 5 begin a := a + 1; // например, увеличивай каждый раз на 1 writeln(‘a —>’ + a); end;
Условие выхода из while
Цикл типа while в Паскале выполняется до тех пока истинно логическое выражение в заголовке данного цикла.
То есть:
- Если логическое выражение истинно — то делается следующий виток цикла.
- Если логическое выражение ложно — то цикл завершается, и программа выполняется далее (по инструкциям, которые записаны в коде ниже тела цикла).
Бесконечный циклы и как с ними бороться
Как возникают бесконечные циклы
В for счетчик цикла (который обязательно есть в таком цикле) проходит заранее известное (и конечное) число значений, которое определяется в заголовке цикла for на основании правой и левой границ.
Pascal с нуля 2 — Целочисленная арифметика (div & mod)
В цикле же while проверка логического условия приводит к тому, что есть возможность (в некотором смысле «опасность») получить зависание программы за счет бесконечного числа раз повторения цикла.
Эта ситуация может возникнуть при следующих условиях (они должны выполняться одновременно):
- Цикл while выполнился хотя бы один первый раз.
- Во всех последующих итерациях (повторах) тела цикла логическое выражение по-прежнему возвращает только true и никогда false.
Приведём пример бесконечного цикла (небольшая программа, которую можно запустить):
var a: integer; begin a := 8; while (a < 100) do // пока a < 100 write(a, ‘ ‘); // выводим очередное значение a end.
В этой программе используется цикл, решение об очередном выполнении которого принимается на основании проверки условия:
Но фактически, мы видим, что ещё до начала цикла была выполнена операция присваивания:
a := 8;
— а это значит, что на самом деле в цикле первый раз мы проводим сравнение (паскаль проводит):
результат которого истинен, а цикл первый раз выполнится (первое условие для «угрозы бесконечности» у нас уже есть). Что же происходит далее?
В теле цикла значение переменной $a$ никак не меняется, а значит не меняется от витка к витку и значение логического выражения:
— и потому цикл оказывается бесконечным.
Как избежать этой ситуации? Рассмотрим далее.
Как бороться с бесконечными циклами
Чтобы цикл с проверкой логического условие не был бесконечным необходимо:
- изменять в теле цикла компоненты логического выражения (значения входящих в него переменных)
— это не даёт гарантии защиты «от бесконечности», так как ваше логическое выражение или ваш алгоритм изменения переменных могут быть построены так, что несмотря на изменение значений переменных логическое выражение все равно каждый раз будет возвращать true, но без этого вы точно получите бесконечный цикл (если он начнётся, а выражение изменяться не будет).
Эту проблему непросто понять сходу, но по мере решения задач вы будете сталкиваться с «зацикливанием» и тогда уже сможете лучше разобраться в особенностях работы цикла while в Паскаль.
Главное: анализируйте ваш код на предмет того, что в каком-то витке условие должно вернуть false — без этого любой while, который начал выполняться станет бесконечным.
Примеры кода (решения задач)
Далее рассмотрим примеры решения задач (код программ), в которых продемонстрируем различные ситуации, в которых удобно использовать цикла while.
Пример №1 — цикл с неизвестным число повторений
Пользователь вводит целые числа. Пока он не введёт число большее $17$, в ответ на каждое введённое число выводите сумму этого числа и числа $8$, если же введённое число больше $17$, то цикл необходимо завершить.
Решим эту задачу:
program Project1; var a: integer; begin a := 1; // любое значение, чтобы цикл мог начаться while (a
Пример №2 — замена for на while
Цикл while — самая универсальная конструкция из всех циклов Паскаля. любой другой цикл можно заменить на него (хотя это не всегда рекомендуется делать). Рассмотрим код (запустите его):
var i: integer; begin for i:= 1 to 10 do write(i, ‘ ‘); // выводим значения через пробел writeln(); // переносим строку i:=1; // начальное значение счетчика while i
— в этой задаче мы выводим числа от $1$ до $10$ два раза, делая одно и тоже разными циклами.
По сути в while в примере выше мы тоже используем переменную счетчик, но уже сами управляем её изменением в теле цикла, в то время как в for этого не требуется.
Для циклов с известным числом повторений рекомендуется использовать именно for, так как по его заголовку сразу видно, сколько раз выполнится тело (по крайней мере, это видно намного лучше чем, скажем, в цикле while).
Видео-пояснения
Для данного урока есть такие видео-пояснения:
Задачи для самостоятельного решения
- Решите с помощью цикла while:
Пользователь вводит целое число N, большее 8.
Выведите на экран последовательность четных числел от 8 до N,
Например:
- для N=21:
8 10 12 14 16 18 20
8 10 12 14 16 18 20 22
- этот видео-пояснение
- а также это уточнение про отладку.
Ниже мы приведём ещё пару задач на эту же тему.
- С использованием if()
- С использованием if() и break;
- в одном витке цикла должен быть только 1 readln()
- не использовать «обмен» (т.е. не присваивать одной переменной значение другой)
Подсказка: Если не получается решить:
- посмотрите эту видео-подсказку
- посмотрите вариант с одним readln()
- Решение с использованием счетчика
- Решение без счетчика
4 8 12 16. 100
46541
—Polzovatel: 12 Otvet: 6 —Polzovatel: 12 Otvet: 7 —Polzovatel: 90 Otvet: 8 —Polzovatel: 55 Otvet: 7 —Polzovatel: 100 Otvet: 6 —Polzovatel: 123644 Otvet: 5 —Polzovatel: 77 Otvet: 6 —Polzovatel: 1 Otvet: 7
—Polzovatel: 12 Otvet: 4 —Polzovatel: 16 Otvet: 5 —Polzovatel: 5 Otvet: 6 —Polzovatel: 10 Otvet: 7 —Polzovatel: 8 Otvet: 8 —Polzovatel: 9 Otvet: 7 —Polzovatel: 9 Otvet: 6 —Polzovatel: 20 Otvet: 7
Дополнительная проверка знаний (решать не обязательно):
Key Words for FKN + antitotal forum (CS VSU):
- паскаль while пример кода
- while примеры В паскаль
- цикл с предусловием примеры
- цикл с постусловием примеры Паскаль
- Паскаль как работают циклы
- Паскаль как работает цикл while объяснение
- замена for на while пример Паскаль
- паскаль бесконечный цикл
- Паскаль зацикливание программы
- Паскаль бесконечный цикл пример и как избавиться от зацикливания
Источник: fkn.ktu10.com
Циклы в Turbo Pfscal V.7.0
При решении большинства задач определенные последовательности действий необходимо выполнять не одно число раз. К примеру, для обнаружения чьей-либо фамилии в списке, нужно перебирать все фамилии пока не найдем нужную или не дойдем до конца списка. Подобные повторяющиеся действия называют циклами и реализуют в программе с помощью специальных инструкций.
В среде программирования Turbo Pascal используют 3 вида циклических операторов:
- while — оператор цикла с предварительным условием (с предусловием);
- repeat — оператор цикла с последующим условием (с постусловием);
- for — оператор цикла с управляющим параметром (с параметром).
Оператор цикла While
Для цикла с предусловием характерна проверка условия перед выполнением цикла. Если условие носит истинный характер, то будет выполняться продолжение цикла, иначе — цикл завершится.
где представляет собой оператор, который может быть простым или составным, а предствлено выражением булевого типа.
Действия оператора цикла while заключаются в следующем:
- вначале выполняется проверка значения логического выражения, пока оно будет истинным, выполняется , указанный после do. В случае изменения значения логического выражения на ложное выполняется выход из цикла;
- если изначально логическое выражение ложно, то не выполнится ни разу. В случае, когда логическое выражение будет истинным постоянно, цикл станет выполняться до бесконечности долго.
Рассмотрим пример написания программы, с помощью которой вычислим и выведем на экран таблицу значений функции y = a x x при x = 1,2, 3. 30; a = 10.1, используя цикл while.
var y, a : real; x : integer;
Источник: spravochnick.ru