Цикл while в Паскаль
В этом уроке мы научимся использовать цикл while в программах Паскаль Если в программе Pascal нужно повторить одни и те же действия неизвестное количество раз, пока вывполняется какое-либо условие, то используется цикл while. Этот цикл исполняется, пока исполняется условие. Цикл while в Паскаль задаётся
while (условие) do
begin
...команды
end;
Цикл while в паскаль исполняется, пока верно это условие. Если вы хотите, чтобы цикл исполнялся, пока условие не выполняется, используется такая конструкция. not это ключевое слово, обозначающее отрицание.
while (not(условие)) do
begin
...
end;
Пример программы га паскаль с циклом while Ввод числа в паскаль с клавиатуры в заданном диапазоне Пользователь вводит число. Если число меньше 10 и больше 20, программа запрашивает число снова. Если было введено число большее 10 и меньшее 20, оно выводится на экран.
var n: real;
begin
n := -1;
while not((n > 10) and (n < 20)) do
begin
writeln('Введите число большее 10 и меньшее 20.');
readln(n);
end;
writeln('Вы ввели число ', n, '.');
end.
Пример прогарммы на паскаль решение уравнение методом перебора. Задаётся точность решения уравнения eps > 0 и шаг перебора dx. Пользователь вводит границы поиска корней уравнения. Уранвение для примера x-9=0 оно задается в условии цикла while
// вводим переменные
var eps, a, b, dx, x: real;
// начинаем программу
begin
// запрашиваем границы поиска нулей
writeln('Введите начальную границу поиска.');
readln(a);
writeln('Введите конечную границу поиска.');
readln(b);
// задаём шаг перебора и погрешность eps
dx := 0.1;
eps := 0.001;
// вводим x и приравниваем его к начальной границе поиска
x := a;
// пока заданное уравнение при подставленном x
// больше погрешности eps
while (abs(x - 9) > eps) do
begin
// изменяем x на dx
x := x + dx;
end;
// когда условие в цикле while не исполнилось,
// выводим корень уравнения на экран
writeln(x);
end.
Вернуться к содержанию
Следующая тема Процедуры и функции в Паскаль
Полезно почитать по теме циклы в pascal паскаль
Цикл for в pascal
Поделиться: