Объектно-ориентированное программирование на С++ - eDrive

37
void Whiles1 () {
int temp = 10, count = 1;
AnsiString result = MyForm–>Label1–>Caption;
while (2 * temp > 3 * count++) result = result + IntToStr (temp––) + ' '; // 10 9 8 7
MyForm–>Label1–>Caption = result;
}
Оператор повторения с постусловием относится к числу наименее надежных
управляющих структур, так как условие его завершения проверяется
только после начала работы.
void Whiles2 () {
int x = 9;
do
MyForm–>Label1–>Caption = MyForm–>Label1–>Caption +
IntToStr (x––) + " в квадрате равно " + IntToStr (x * x) + '\n';
while (x);
}
А вот пример «вечного цикла», выход из которого возможен только с
помощью оператора перехода:
void Whiles3 () {
int leapYear, year;
TLabel *lb = MyForm–>Label1;
try { year = StrToInt (MyForm–>Edit1–>Text);
} catch (...) {
lb–>Caption = "Вводите годы целыми числами"; return;
}
while (1) {
if (year > 0) {
if ((year % 100) == 0) leapYear = ((year % 400) == 0);
else leapYear = ((year % 4) == 0);
if (leapYear) lb –>Caption = " – високосный";
else lb –>Caption = " – не високосный";
break;
}
else { lb –>Caption = " – неверный";
break;
}
} lb –>Caption = IntToStr (year) + lb –>Caption + " год";
}