АЛГОРИТМЫ РАЗВЕТВЛЕННОЙ СТРУКТУРЫ Условие задания: Определить попадает ли точка с заданными координатами (x, y) в круг заданного радиуса r. 1. - презентация

1 АЛГОРИТМЫ РАЗВЕТВЛЕННОЙ СТРУКТУРЫ Условие задания: Определить попадает ли точка с заданными координатами (x, y) в круг заданного радиуса r. 1

2 Блок-схема алгоритма решения задачи Начало х, y, r X²+y² r² Попадает Попадает Не попадает Не попадает ДА НЕТ 2 Конец

3 1. Запуск системы программирования (на рабочем столе ярлык Паскаль ABC) 2. Набор и редактирование программы (в окне редактора набрать программу) 2. Сохранение программы на диске (выбрать в меню Файл команду Сохранить как и выбрать папку, в которую будет сохранен файл и набрать имя файла) 2. Компиляция и выполнение программы (создание загрузочного модуля, т.е. перевод программы в машинные коды и на этом же этапе идет проверка синтаксических ошибок) (Выбрать пункт меню Программа команда Выполнить; Или через панель выполняемых команд нажать кнопку - ; или с помощью «горячей клавиши» - F9; ) Компиляция идет до первой обнаруженной ошибки. Ошибку необходимо исправить и компиляцию повторить и так до тех пор пока не будет ошибок. Далее программа начинает выполняться по алгоритму 5. Ввод исходных данных, если это предусмотрено в программе (в нижнем окне вводим значения переменных через пробел, если надо ввести несколько значений и в конце нажать клавишу Enter) Последовательность работы в системе Паскаль ABC (отладка программы) 3

4 6. В окне результата (под окном редактора, в котором находится программа) появится ответ, который необходимо проанализировать, т.е. убедиться, что он верен. 7. Если необходимо набрать следующую программу (Выбираем Файл Новый) и далее переход на п. 2) (Выбираем Файл Новый) и далее переход на п. 2) 8. Завершение работы с системой программирования (Выбираем Файл Выход или кнопку закрытия окна) (Выбираем Файл Выход или кнопку закрытия окна) 4 Последовательность работы в системе Паскаль ABC (отладка программы) продолжение

5 { заголовок программы } Program pr2; { заголовок программы } { описание переменных} var x, y, r :real; { описание переменных} { начало раздела операторов } Begin { начало раздела операторов } { процедура вывода(так оформляется приглашение к вводу) } write(введи х=); { процедура вывода(так оформляется приглашение к вводу) } { ввод координаты x } readln(x); { ввод координаты x } {приглашение к вводу координаты y} write(введи y=); {приглашение к вводу координаты y} {ввод координаты y } readln(y); {ввод координаты y } {приглашение к вводу радиуса} write(введи радиус окружности r=); {приглашение к вводу радиуса} { ввод радиуса окружности } readln(r); { ввод радиуса окружности } { условный оператор ( если условие выполняется, то выводится информация, что точка попадает в круг иначе выводится информация, что точка не попадает в круг) } if sqr(x)+sqr(y)<=sqr(r) then writeln(точка с координатами(,x:5:1, ;,y:5:1,) попадает в круг с радиусом r=,r:5:1) else writeln(точка в круг не попадает ) { конец программы} end. { конец программы} 5 Текст программы на языке Паскаль