Практическая работа в PascalABC с циклом Repeat Until

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 2 ЦИКЛИЧЕСКИЕ ПРОЦЕССЫ     (продолжение) 2. ЦИКЛ С ПОСТУСЛОВИЕМ       или ЦИКЛ  "ДО" Сначала выполняется тело цикла, затем проверяется условие. Выход из цикла осуществляется, когда УСЛОВИЕ СТАНЕТ ИСТИННЫМ , если условие  ЛОЖНО, то цикл повторяется. REPEAT      тело цикла UNTIL условие; repeat ­ (рипид) ­ повторять until  ­ (антил) ­ ДО тех пор пока Проверка условия производится после выполнения тела цикла, что делает применение цикла "ПОКА" более предпочтительным, когда требуется пропустить цикл вообще. Вычислить  Y 1     для любого Х, с проверкой корректности ввода. X     Program Func;        var x,y: real;     Begin       repeat          write('X='); readln(x);       until (x<>0);       y:=1/x;       writeln('x=',x,' y=',y);     End. З А Д А Н И Я: 1. Вычислить сумму ряда: 0.6, 0.7, 0.8, 0.9. 2. Вывести таблицу функции y=cos(x) ,    где x изменяется в градусах от 10 до 45 с шагом 5. 3. Определить, что больше сумма ряда: 1.1 , 1.3 , ... , 93.1    или произведение: 5*7*...*11. 4. Вычислить значение функции y=1/(x­5), на отрезке от 0 до 10 с шагом 1 и с проверкой отсутствия деления на 0.