Протабулировать функцию - Free Pascal (697)
Формулировка задачи:
Выручайте
Напечатать таблицу значений функции
в интервале от -10 до 10 с шагом 1
(Не забудьте отразить условие, что на 0 делить нельзя)
.Решение задачи: «Протабулировать функцию»
textual
Листинг программы
- const lin = '+----+-----------+';
- var x: integer;
- begin
- writeln(lin);
- writeln('| x | f(x) |');
- writeln(lin);
- for x := -10 to 10 do
- begin
- write('|', x:3, ' |');
- if abs(x) = 1
- then write(' undefined')
- else write((3 - 2 * x) / (x + 1) + 4 / (x - 1):10:6);
- writeln(' |')
- end;
- write(lin);
- readln
- end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
