Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. - Turbo Pascal
Формулировка задачи:
1)
Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры.
апп
Решение задачи: «Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.»
textual
Листинг программы
uses crt; var r:real; x:integer; begin clrscr; for x:=-4 to 10 do begin write('x=',x:3,' '); if (x>=-4) and (x<-2) then writeln('y=',x+3:2) else if (x>=-2) and (x<4) then writeln('y=',-(x/2):5:2) else if (x>=4) and (x<6) then writeln('y=',-2:2) else if (x>=6) and (x<=10) then writeln('y=',sqrt(4-sqr(x-8))-2:5:2); end; readkey; end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
- Затем объявляются две переменные: r типа real и x типа integer.
- Строка clrscr очищает экран перед началом вывода.
- Далее идет цикл for, который выполняется 21 раз (от -4 до 10 включительно).
- Внутри цикла выводится значение переменной x с помощью функции write.
- Затем проверяется условие для вычисления значения переменной y. Если x больше или равно -4 и меньше -2, то выводится значение x + 3. Если x больше или равно -2 и меньше 4, то выводится значение x / 2. Если x больше или равно 4 и меньше 6, то выводится -2. Если x больше или равно 6 и меньше 10, то выводится sqrt(4 - sqr(x - 8)) — 2.
- После выполнения цикла читается нажатая клавиша с помощью функции readkey.
- Конец программы.