образец решения

Блок-схему добавляю.

спасибо!

НаЗдоровье Вам! Заходите, когда будет нужно.

можете помочь, пожалуйста!

вот ещё

Вы просили: "можете помочь", но НЕ написали, какую именно помощь Вы просите?
Я могу только догадываться, будто Вы совсем не вникаете в смысл программ, которые я для Вас пишу, проверяю у себя перед отправкой к Вам. Вы тупо переписываете мой код, добавляете в него свои ошибки, ленитесь скомпилировать свой изменённый код и проверить работу своей испорченной программы её запуском. При этом Вы отправляете всю эту порчу преподавателю, верно?

Если Вы НЕ хотите вникать в прог-смысл, то отправляйте преподу мой проверенный продукт. А если вносите изменения, то надо обязательно сделать проверку! Иначе зачем Вы учитесь и тратите время?

Читаем правки Вашего преподавателя: "Для Pascal ABC операторы uses crt; clrscr; Readkey; НЕ нужны!" - спасибо, будем знать, что Вы изучаете Pascal ABC . Вы должны были сообщить об этом в самом начале своей консультации.

"Для max задают Ymax = -10000" . Для поиска Ymin в рядом-квадратике вписано "Ymin = 10000" . Вы должны понять отсюда, что в первом предварительном присваивании надо задать такое большое значение для Ymin , которое будет заведомо больше любого Y(x) Вашей функции. Тогда в первом же цикл-шаге произойдёт корректирующая замена фиктивно-завышенного значения на реальное Y(x)-значение.
Оператор Ymin = 10000 по совету Вашего препода будет работать правильно только для фукций, значения которых НЕ превышают 10000 ! Если этим оператором Вы будете решать задачи с бОльшими Y-значениями (по физике например), то Ваша прога вычислит Ymin НЕправильно. Мой оператор
Ymin := 1E30 (= 1*10³⁰) - бесконечно большое число - избавлен от этого недостатка. Но для решения Ваших задач придётся подчиниться Вашему преподу.

"Нет печати в цикле!!! В проге есть!" - это моя недоделка. Вы не прислали методичку, и я не знал, что в Вашем учеб-заведении прямоугольничек с волнистой линией внизу означает "печать" (вывод значений на экран). Я смутно догадывался об этом, и добавил на всяк-случай "Печать" выше овала со словом "Конец". Теперь я буду знать об этом точно (Спасибо Вам!). Сейчас надо просто добавить Печать-прямоугольничек в контур цикла Блок-схемы, где оператор writeln() выводит промежуточные результы на экран. Сами сможете?

"Только что присвоено и сравниваем?" - тут чисто Ваша ошибка. Вы когда копировали мой код, то испортили оператор в ромбике
x <= xk заменой его на бессмысленный оператор x <= x1
Исправляйте. И будьте внимательны в программировании, иначе Вам удачи не видать.

спасибо Вам большое!