Операторы языка Turbo Pascal repeat … until … Дибиров Магомедшапи Дибиргаджиевич. - презентация

1 Операторы языка Turbo Pascal repeat … until … Дибиров Магомедшапи Дибиргаджиевич

2 Оператор цикла с постпроверкой условия: repeat … until … Оператор repeat … until … применяется в тех случаях, когда количество повторения действий в цикле заранее не известно и зависит от выполнения какого-либо условия. Общий вид оператора repeat … until … Для завершения цикла необходимо, чтобы список операторов влиял на значение выражения условие. repeat список операторов until условие;

3 Блок схема оператора цикла с постпроверкой условия: repeat … until … Список операторов Условие Да Нет

4 Пример: Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39. Program Demo2; uses CRT; var a : integer; begin clrscr; a:= 5001; repeat a:=a-1 until a mod 39 = 0 do; write ( Искомое число =, a : 5); readkey end.

5 Задания: Составить программу для вычисления значений функции F(x) на отрезке [a, b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции: X:=a повторять вычислить F(x); x:=x+h пока не (x>b)

6 Задания: Составить программу для вычисления значений функции F(x) на отрезке [a, b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции: