Ввод функции с клавиатуры

[Rus5]

Данная программа строит график функций y=cos(x), как сделать так, чтобы функцию можно было задавать с клавиатуры, а не в тексте программы



program cosinus;
uses Graphabc;
var x,y:real;
begin
setwindowsize(600,600);
line(300,0,300,600);
line(0,300,600,300);
x:=-100;
while x<=100 do
begin
y:=-cos(x);
circle(trunc(x*20+300),trunc(y*20+3 00),2);
x:=x+0.01
end;
end.

[Mad_Cat]

Зачем???

[Rus5]

если вводить с клавиатуры, то возможно построение и других функций, не только у=кос(х), да и будет удобней

[ViktorR]

Такая программа вероятно представляет интерес ...
Думаю, что это не сложно, надо написать всего то, что-то похожее на MathCad.
Простая версия - вывод меню с набором предлагаемых функций и возможностью установки некоторых параметров, например фазы, частоты, амплитуды, для тригонометрических функций, ...

[Rus5]

можете объяснить поподробней с выводом меню, как реализовать это, хотя бы словестно, благодарю.

[ViktorR]

Как вариант:
1. Выводим сообщение:
0 - A*Cos(f*x+fi)
1 - A*Sin(f*x+fi)
2 - a*x^2+b*x+c
3 - ln(x)

2. Выводятся запросы:
- Выберете номер функции для графического представления:
- Введите начальное и конечное значение X;
Выбранный номер используется в структуре Case, где формируются дополнительные вопросы.
Например, если пользователь нажал 2, то появляется запрос:
Введите коэффициенты параболы, ...
Внимание: в Вашей программе нет масштабирования графика. Это так-же следует учитывать.

[Rus5]

благодарю за помощь