Заполненить таблицу значений функции - Pascal ABC
Формулировка задачи:
Добрый день уважаемые программисты!
Помогите мне пожалуйста
Составить блок-схему и программу для заполнения таблицы значений функции y = f(x) на отрезке с указанным шагом изменения аргумента. Вид функции задается в лабораторной работе № 1. Значение функции выводить с точностью до тысячных долей.
Результат вывести в следующем виде:
я прикрепляю к тему:
Заранее спасибо
Вариант задания которое нужно сделать
Функция | Интервал изменения аргумента |
Шаг изменения аргумента |
Решение задачи: «Заполненить таблицу значений функции»
textual
Листинг программы
const a=-pi; b=pi; h=pi/10; var x,y:real; begin writeln('----------------'); writeln('| x | y=f(x) |'); writeln('----------------'); x:=a; while x<=b do begin if x<0 then y:=x*ln(abs(cos(x))) else if x<=2.5 then y:=1+x*x else y:=x-2; writeln('|',x:5:2,'|',y:7:3,' |'); x:=x+h; end; write('----------------'); end.
Объяснение кода листинга программы
- const a=-pi; — задает значение константы a равное -π
- b=pi; — задает значение константы b равное π
- h=pi/10; — задает значение константы h равное π/10
- var x,y:real; — объявляет переменные x и y типа real
- begin — начало блока кода
- writeln('----------------'); — выводит строку
----------------
- writeln('| x | y=f(x) |'); — выводит строку
| x | y = f(x) |
- x:=a; — присваивает переменной x значение a
- while x<=b do — начинает цикл while x меньше или равно b
- begin
- if x<0 then y:=xln(abs(cos(x))) — если x отрицательное, то y равно xln(abs(cos(x)))
- else if x<=2.5 then y:=1+xx — иначе, если x меньше или равно 2.5, то y равно 1+xx
- else y:=x-2; — иначе, если x больше 2.5, то y равно x-2
- writeln('|',x:5:2,'|',y:7:3,' |'); — выводит строку
| x | y |
- x:=x+h; — увеличивает значение переменной x на h
- end;
- write('----------------'); — выводит строку
----------------
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д